AD-A269  945 


REPORT  DOCUMENTATION  PAGE 


1,  .iGcNCV  USE  ONLY 


4,  title  and  subtitle 


tsa<^T  OJ! 


^  P  k-  E  A  N  '  5  ,  A  ’  ^  S  }  V  J 

FINAL/01  DEC  91  TO  31  MaR  93 


UUGM  CODE  DEVELOPMENT  (U) 


B  AUT^iOB.S) 


Professor  3.  Eidelraan 


:  7  P  C  R  F-  C  R  :  N  G 


Science  Applications  International  Corp 
1710  Goodridge  Drive.  MS  2-3-1 
McLean  VA  22102 


I  b77S/DARPA 
j  F49C20-89-C-00R7 


A£0SR-TR-  i  y  2 


i  3.  iPONSC-?‘Nri  VONi^C  vNC- 

■  AFOSR/NM 

110  DUNCAN  AVE,  SUITE  131 15 
BOLLING  AFB  DC  20332-0001 


ill.  :3UP'7'’‘'..,i  r,.^Ry 


OTIC 

EUECTE I 
SEP  2  8 199^  I 


‘"i  S  P  \  >  .'I  I  S  ■  N I J  "P  0  '*  O  R  i  %  G 

'■‘jisCY  PEP  :-.r  'ii^vsiR 
F49620-89-C-0087 


MJ.3  ;‘STA;,iUTiCN  \'/Ai|.A3il  ■■ 


i  APPROVED  FOR  PUBLIC  RELEASE;  DISTRIBUTION  IS  UNLIMITED 


13.  ABSTRACT 


12b  DfSi'RlSUTiON  CODE 


r— ) 


The  primary  objective  o£  SAIC  was  to  develop  an  unstructured  grid  algorithm  and  code 
that  dvnamically  adapts  to  the  computed  solution  of  the  time  dependent  Euler  equations 
of  gasdynamics  in  two  and  three  spatial  dimensions.  Important  requirements  that  were 
imposed  on  the  algorithm  were;  robustness,  accuracy,  efficiency,  flexibility,  and 
adaptability.  The  main  research  and  code  development  effort  was  focused  on  achieving 
these  objectives:  extensive  testing  and  code  validation  effort  was  undertaken  to 
demonstrate  the  code's  performance  for  realistic  CFD  problems.  The  method  is  accurate 
in  all  flow  regimes  from  subsonic  to  hypersonic.  The  main  achievement  was  the 
development  of  the  AUGUST  rode  Adaptive  Unstructured  Grid  Upwind  Second  Order  for 
Triangles),  AUGUST  is  Implemenced  for  solution  of  Euler's  equations  on  dynamically 
adaptive  triangular  or  tetrahedral  grids.  The  code  fully  implements  the  Second-Order 
Godunov  method,  allowing  ac'v.rai-e  and  robust  numerical  solution  of  Euler  equations  ol 
gas  dynamics.  A  new  method  was  developed  for  Direct  Dynamic  Grid  Refinement  (DDR).  The 
AUGUST  code  was  also  implemented  for  multiphase,  multicomponent  flows.  A  combined 
structured/unstructured  version  ot  the  AUGUST  code  was  also  developed.  The  AUGUST  code 
was  extensively  validated  for  a  wide  rantre  r\f  • «.-  --•»  ^ag  proven  to  be  robust 


14.  SUBJECT  TERMS 


17,  SECURITY  CLASSIFICATION 

UN(^^?I^ED 


93-22349 


llillli 


IS.  NUMBER  0*  PAGES 

255 

16  PRICE  CODE 


stLUHIIY  CLASSIFICATION 


19  SECURITY  CLASSIFICATION  20  LIMITATION  OF  ABSTRAv,T 
SJNt^l^'rVlED  3AR(SAME  AS  REPORT) 


'I  r-  :o  ')■  S)  SrOO 


298  Rev 


UUGM  CODE  DEVELOPMENT 


ScmnceAppIkuOhnskftemation^Corporation 

An  Employee-Owned  Company 


UUGM  CODE  DEVELOPMENT 


Science  Applications  International  Corporation 

An  Employee-Owned  Company 


Accesion  For 

NTIS  CRA&I 
DTIC  TAB 
Unannounced  □ 

Justitication  . 


By . 

Distribution/ 


Availability  Codes 

Dist 

B± 

Avail  a 
Spo 

nd  1  or 
ciai 

lA- 


Post  Office  Box  1303,  1710  Goodridge  Drive.  McLean,  Virginia  22102  (703)  821  4300 


UUGM  CODE  DEVELOPMENT 


SAIC  Final  Report  #SAIC-93/n52 


Final  Report  for  work  accomplished  under 
AFOSR  Contract  #F49620-89-C-0087  during  period 
15  October  1990  through  30  November  1992 


Contributors; 
Shmuel  Eidelman 
William  Grossmann 
Isaac  Lottati 
Xiaolong  Yang 
Marty  Fritts 
Adam  Drobot 
Michael  Kress 
Aaron  Friedman 


Prepared  by: 

Science  Applications  International  Corporation 
Applied  Physics  Operation 
1710  Goodridge  Drive,  MS  2-3-1 
McLean,  VA  22102 


► 


Sponsored  by 

Defense  Advanced  Research  Projects  Agency 
DARPA  Order  No.  6775 

Monitored  by  AFOSR  Under  Contract  No.  F49620-89-C-0087 


July  26,  1993 


The  views  and  conclusions  contained  in  this  document  are  those  of  the  authors  and  should  not  be 
interpreted  as  necessarily  representing  the  official  policies  or  endorsements,  either  expressed  or  implied, 
of  the  Defense  Advanced  Research  Projects  Agency  or  the  U.S.  Government. 


1 


J 


THIS  DOCUMENT  IS  BEST 
QUALITY  AVAILABLE.  THE  COPY 
FURNISHED  TO  DTIC  CONTAINED 
A  SIGNMCANT  NUMBER  OF 
COLOR  PAGES  WHICH  DO  NOT 
REPRODUCE  LEGIBLY  ON  BLACK 
AND  WHITE  MICROFICHE. 


EXECUTIVE  SUMMARY 


Has  progress  report  documents  the  effort  conducted  at  SAIC  from  1 5  October 
1990  through  31  May  1993,  under  DARPA  and  AFOSR  contract  #F49620-89-C-0087 
entitled  "UUGM  Code  Development”. 

Scope  of  Research 

The  primary  objective  of  SAIC  was  to  develop  an  unstructured  grid  algorithm  and 
code  that  dynamically  adapts  to  the  computed  solution  of  the  time  dependent  Eulo- 
equations  of  gasdynamics  in  two  and  three  spatial  dimensions.  Important  requirements 
that  were  imposed  on  the  algorithm  were:  robustness,  accuracy,  eflSciency,  flodbility,  and 
adaptability.  The  main  research  and  code  development  effort  was  focused  on  achieving 
these  objectives;  extensive  testing  and  code  validation  effort  was  undertaken  to 
demonstrate  the  code's  performance  for  realistic  CFD  problems.  The  method  is  accurate 
in  ail  flow  regimes  from  subsonic  to  hypersonic. 

Achievements 

The  main  achievement  was  the  development  of  the  AUGUST  code  (Adaptive 
Unstructured  Grid  IJpwind  £econd  Order  for  Triangles).  AUGUST  is  implemented  for 
solution  of  Euler’s  equations  on  dynamically  adaptive  triangular  or  tetrahedral  grids.  The 
code  fully  irnplemems  the  Second-Order  Godunov  method,  allotting  accurate  and  robust 
numerical  solution  of  Euler  equations  of  gas  dynamics. 

A  new  method  was  developed  for  Qirect  Dynamic  Grid  Refinement  (DDR).  This 
method  allows  grid  refinement  in  arbitrary  regions  of  the  computational  domain,  using 
only  one  level  of  undirectness  in  the  logical  data  structure.  The  DDR  is  an  integral  part  of 
the  AUGUST  solver  and  allows  manipulation  of  the  grid  as  a  part  of  the  solution.  The 
adapted  grid  is  not  only  more  refined  in  the  adaptation  regions  of  the  flow  but  is  also 
improved  structurally  due  to  a  refinement  algorithm. 

The  AUGUST  code  was  also  implemented  for  multiphase,  multicomponent  flows. 
We  used  a  multiple-fluid  description,  where  a  separate  set  of  conservation  laws  is  used  to 
describe  every  flow  component.  In  our  approach  Laerangian  tracers  are  used  to  describe 
sparse  or  discrete  flow  components  that  do  not  form  a  continuum.  Use  of  unstructured 
triangular  grids  allows  adjustment  of  the  grid  resolution  to  the  accuracy  requirements  in 
the  flow  subdomains. 

A  combined  structured/unstructured  version  of  the  AUGUST  code  was  also 
developed.  Following  this  approach  the  unstructured  adaptive  grid  is  used  only  in  the 
flow  re^ons  requiring  adaptation  or  description  of  the  complex  geometry  elements.  The 
structured  grid  is  used  to  simulate  the  larger  part  of  the  computational  domain.  This 
approach  has  allowed  us  to  capitalize  on  the  advantages  of  both  structured  and 
unstructured  grid  approaches.  Using  the  structured/unstructured  grid  version  of  the 


AUGUST  code,  we  simulated  the  shock  wave  focusing  problem  for  the  reflector  used  for 
extracorporeal  shock^wave  lithotripsy.  In  this  simulation,  we  showed  that  the  solution 
smoothly  transits  through  the  interfaces  between  the  grids,  maintaining  the  same  accuracy 
and  resolution. 

The  AUGUST  code  was  extensively  validated  for  a  wide  range  of  probieir. :  and 
has  proven  to  be  a  robust  tool.  The  code  was  initiated  at  the  start  of  the  UUGM  r.roject 
and  has  now  evolved  into  a  production  code  that  is  used  for  many  applied  problems.  The 
list  of  applications  includes  potential  flow  past  an  ellipse,  hypersonic  flow  past  a  flat  plate, 
shock  dilation  over  single  and  double  wedges,  mine  explosions  under  vehicles,  pulsed 
detonation  engines,  shock  focusing  in  air,  wd  nonideal  auturst  in  multiphase  media.  TIm 
code  has  shown  the  required  robustness  and  insensitivity  to  the  initial  user  specified  grid. 
The  number  of  nodes  required  to  obtain  a  high-quality  solution  is  significantly  smaller  than 
for  structured  grid  codes.  This  is  particularly  true  for  transient  problems  with  complicated 
flows  having  discontinuities. 

It  is  important  to  note  that  the  AUGUST  code  obtains  a  high  resolution  solution 
with  no  "knobs."  The  various  flow  regimes,  except  those  requiring  a  diflferent  definition  of 
boundary  and  initial  conditions,  were  simulated  using  the  same  code. 
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1.  INTRODUCTION 

•  1.1  RECENT  CFD  DEVELOPMENT 

Computational  fluid  dynamics  (CFD)  development  over  the  past  twenty  years  has 
truly  been  outstanding.  The  recent  CFD  developments  that  are  particularly  important  are: 
1)  advances  in  flow  solvers  in  all  the  regimes  of  fluid  flow  (very  low  speed  and  subsonic 
^  flows,  transonic  flow,  supersonic  and  hypersonic  flows),  2)  advances  in  unstructured 

adaptive  gridding  techniques  and,  3)  advances  in  chemical  and  particle  kinetic  modeling 
for  fluid  flows.  Developments  in  gi  aphics  and  visualization,  construction  of  graphical  user 
interfaces  (GUIs)  and  advances  in  large  database  management  have  also  played  an 
important  role  in  the  scale  and  complexity  of  problems  that  can  now  be  realistically 
^  simulated  by  CFD  techniques.  SAIC  has  been  involved  in  all  aspects  of  these 

developments  and  is  on  the  forefront  of  CFD  technology  development. 

DARPA,  NASA,  DNA  and  DOE  have  for  the  most  part  been  the  largest 
benefactors  of  CFD  development,  and  each  agency  today  is  actively  pursuing  CFD 
^  applications  to  real  problems.  Full  3-D  unsteady  flows  about  military  and  commercial 

aircraft  are  routinely  simulated  to  assess  aerodynamic  performance  characteristics,  and 
where  it  used  to  require  several  hundred  hours  of  CRAY  CPU  time  it  now  takes  minutes 
to  an  hour  on  a  supercomputer  or  a  like  time  on  workstations,  depending  on  the  specifics 
of  the  problem  being  solved.  The  U.S.  Marine  Corps'  latest  initiative  in  the  development 

•  of  blast  (due  to  land  mines)  resistant  vehicles  is  being  pursued  successfully  with  the  aid  of 
full  3-D  CFD  simulations  of  land  mine  blast  effects  on  truck  configurations.  The  CFD 
technology  developed  in  SAIC's  (JUGM  contract  is  playing  a  leading  role  in  this  Marine 
Corps  effort  (see  Section  3.4).  Many  other  such  examples  of  improvements  in  CFD 
performance  exist.  In  view  of  this,  it  is  quite  appropriate  to  begin  to  transition  CFD 

•  technology  into  other  disciplines  that  can  take  advantage  of  realistic  CFD  based 
simulation. 

1.2  UNSTRUCTURED  MESHES  IN  COMPLEX  GEOMETRIES 

•  Current  emphasis  in  CFD  calls  for  solutions  of  applied  physical  problems  for 
complex  realistic  geometries.  ^  In  addition  to  the  inherent  difficulties  in  describing  the 
details  of  the  complex  three-dimensional  geometry,  the  flow  fields  usually  have  an 
inhomogeneous  structure.  Regions  of  rapid  change  of  the  flow  functions  and  chemical 
reactions  will  be  embedded  in  regions  where  the  flow  gradients  are  relatively  small. 

•  Accurate  simulations  of  flows  in  regions  with  strong  gradients  is  key  to  the  overall 
accuracy  of  physical,  chemical  and  biological  simulations.  For  this  reason  most  of  the 
software  and  hardware  computational  resources  are  defined  by  the  accuracy  requirements 
of  these  flow  regions  and  geometry  of  the  computational  domain. 

•  Early  CFD  research  was  almost  entirely  concerned  with  the  formulation  the 
mathematical  models  of  the  flow  and  methods  of  solution.  Mesh  generation  was  regarded 
as  secondary  and  meshes  were  developed  for  specific  cases.  During  this  early  period  very 
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significant  improvements  were  made  in  the  methods  of  integration  of  the  partial 
differential  equations  of  gasdynamics.  Presently,  as  a  result  of  steady  improvement  in  the 
various  integration  techniques,  the  advantages  which  could  be  gained  by  using  bette  low 
solvers  have  become  limited.  On  the  other  hand  substantial  progress  is  anticipatec  .  the 
areas  of  grid  generation  and  algorithm  development.^ 

Currently,  most  numerical  simulations  employ  structured  meshes  comp"ied  of 
quadrilaterals  in  two  dimensions  or  hexahedra  in  three  dimensions.  However,  it  has 
become  evident  that  the  quadrilateral  structured  grids  cannot  satisfy  the  requirements  of 
large  scale  numerical  simulations  over  complex  geometries  in  three  dimensions.  The 
physics  of  the  flow  abr-u  a  complete  aircraft  is  extremely  complex.  Yet  the  flow  in  many 
distinct  regions  and  regimes  may  be  represented  by  fairly  well-known  physical  theories. 
Vortices  shed  by  lifting  surfaces  are  confined  to  faiily  thin  wake  regions.  Exhaust  plumes 
can  be  initially  approximated  by  regular  bounding  surfaces.  Flow  disturbances  due  to 
shocks  are  confined  to  thin  discontinuities.  Boundary  layers  are  restricted  to  near-wall 
regions.  Each  of  these  flow  regions  requires  different  theories,  different  resolution  and 
different  numerical  algorithms.  This  diversity  of  computational  requirements  cannot  je 
satisfied  by  the  quadrilateral  structured  grids. 

Recently  proposed  alternatives  to  quadrilateral  grids  use  triangles  in  two 
dimensions  and  tetrahedra  in  three  dimensions.  For  these  grids  the  mesh  will  generally 
lose  its  structure,  allowing  a  new  degree  of  flexibility  in  treating  complex  geometries. 
Unstructured  grids  can  relatively  easily  be  adapted  to  follow  flow  features,  thereby 
increasing  the  solution  accuracy.  The  result  has  been  the  development  of  adaptive 
refinement  techniques  which  have  been  used  with  great  success  for  two  dimensional 
simulations  on  unstructured  triangular  grids.  These  methods  have  resulted  in  the 
resolution  of  previously  difficult  details  in  the  evolving  flows  over  complex  configurations. 

However,  it  is  not  a  trivial  task  to  adapt  this  approach  to  three-dimensional 
simulations.  One  of  the  problems  is  the  generation  of  the  adaptive  grid.  Since  the  grid  is 
constructed  from  the  volume  elements  (tetrahedra)  the  moving  front  is  made  up  of  a 
surface  of  triangular  faces.  It  should  be  noted  that  this  moving  front  can  and  will  change 
its  shape  during  the  computation  as  time  evolves.  It  is  necessary  to  take  care  when 
determining  the  intersections  of  planar  faces,  and  to  ensure  that  no  overlapping  of 
tetrahedra  occurs. 

2.  UTJGM:  UNIVERSAL  CFD  SIMULATION  ENVIRONMENT 

The  Ultimate  Unstructured  Grid  Method  (UUGM)  represents  a  new  approach  to 
the  computational  domain  discretizarion.  The  principal  advantage  of  the  method  is  most 
apparent  for  simulations  of  complicated  flow  regimes  with  physical  and  chemical 
processes  over  bodies  with  complex  geometries  in  three  dimensions. 

The  uatal  technique  employed  in  regridding  is  called  hierarchical  dynamic 
refinement  (H  refinement).  The  idea  here  is  to  retain  a  history  of  the  original  grid  and  the 
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subdivisions  needed  to  change  it  into  the  current  grid,  so  that  it  is  always  possible  to 
retrace  these  steps  and  get  back  to  previous  grids.  While  this  feature  is  useful  in  modeling 
reversible  processes,  it  is  generally  unnecessary,  and  it  increases  overhead  costs.  Our 
implementation  (Direct  Dynamic  Refinement)  is  Markovian,  in  the  sense  that  the  way 
regridding  is  done  depends  only  on  the  current  grid  and  flow  conditions. 

The  other  distinguishing  feature  is  the  use  of  the  Second-order  Godunov  method 
to  solve  the  Euler  equations  of  gasdynamics.  The  philosophy  behind  it  is  to  treat  the  local 
values  of  the  dependent  variables  at  every  point  on  the  grid  as  initial  conditions  for  a 
Riemann  problem,  and  to  use  the  resultant  solution  of  that  problem  to  calculate  the  fluxes 
of  material,  momentum,  and  energy  from  one  cell  to  the  rest.  Previous  implementations  of 
this  method  were  confined  to  structured  meshes. 

2.1  MATHEMATICAL  MODEL  AND  INTEGRATION  ALGORITHM 

We  consider  a  system  of  two-dimensional  Euler  equations  written  in  conservation 
law  form  as 


where 


dU  dF  dG 
dt  dx  dy 


=  0. 


p 

pu 

pv 

(/  = 

pu 

,  F  = 

pu-+p 

,  G  = 

puv 

pv 

puv 

pv  +p 

e 

u{e+p) 

v{e  +  p) 

(2.1) 


Here  m.  v  are  the  x,  y  velocity  vector  components,  p  is  the  pressure,  p  is  the  density  and  e 
is  total  energy  of  the  fluid.  We  assume  that  the  fluid  is  an  ideal  gas  and  the  pressure  is 
given  by  the  equation  of  state. 


p  =  {y-\)[e- 


(i/^+v^)]. 


(2.2) 


where  y  is  the  ratio  of  specific  heats  ana  is  typically  taken  as  1 .4  for  air.  It  is  assumed  that 
an  initial  distribution  of  the  fluid  parameters  is  given  at  t  =  0,  and  the  boundary  conditions 
defining  a  unique  solution  are  specified  for  the  computational  domain. 

The  system  of  governing  equations  in  Eq.  (2  .1)  can  be  written  as 

ilL+W-0  =  Q.  (2.3) 

dt 

where  Q  represents  the  convective  flux  vector.  Integrating  Eq.  (2.3)  over  space  and  using 
Gauss'  theorem  produces  the  expression 
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4-\VdA  +  i  Qdl  =  Q, 


(2.4) 


where  cB  =  ndl,  n  is  the  unit  normal  vector  in  the  outward  direction,  and  dJ  is  the  element 
of  length  on  the  boundary  of  the  domain.  Here  Q  is  the  domain  of  computation  and  dO.  is 
the  boundary  of  this  domain. 

We  seek  a  solution  to  the  system  of  Eq.  (2.1)  in  the  computational  domain,  which 
is  decomposed  in  part  into  triangles  with  arbitrary  connectivity  and  in  part  into  rectangles 
using  a  logically  structured  grid.  We  use  the  advantage  of  the  unstructured  grid  (Refs.  5-8) 
to  describe  the  curved  boundary  of  the  computational  domain  and  areas  that  need 
increased  local  resolution;  this  covers  a  small  part  of  the  total  computational  domain.  The 
largest  area  of  the  computational  domain  is  decomposed  by  the  structured  grid.  The 
numerical  technique  for  solving  Euler's  equation  on  an  unstructured  grid  is  described  in 
Refs.  9-11,  and  the  technique  for  the  structured  grid  is  described  in  Ref  9.  These 
numerical  techniques  apply  some  of  the  ideas  that  were  introduced  in  Refs.  13-14.  The 
structured  and  unstructured  codes  apply  the  center-based  formulation,  i.e.,  the  primitive 
variables  are  defined  in  the  center  of  the  cell,  which  makes  the  cell  the  integration  volume, 
while  the  fluxes  are  computed  across  the  edges  of  the  cell.  The  basic  algorithmic  steps  of 
the  Second-Order  Godunov  method  can  be  defined  as  follows; 

1.  Find  the  value  of  the  gradient  at  the  baricenter  of  the  cell  for  each  gasdynamic 
parameter  {//; 

2.  Find  the  interpolated  values  of  U  at  the  edges  of  the  cell  using  the  gradient  values; 

3.  Limit  these  interpolated  values  based  on  the  monotonicity  condition;  ^  ^ 

4.  Subject  the  projected  values  to  the  characteristics  constraints; 

5.  Solve  the  Riemann  problem  applying  the  projected  values  at  the  two  sides  of  the  edges; 

6.  Update  the  gas  dynamic  parameter  U  according  to  the  conservation  equations  (1) 
applying  to  the  fluxes  computed  and  the  current  timestep. 

As  was  recommended  in  Ref  1 1,  we  prefer  the  version  based  on  triangle  centers 
over  the  vertex-based  version  of  the  code.  For  the  same  unstructured  grid,  a  center-based 
algorithm  will  result  in  smaller  control  volumes  than  a  vertex-based.  In  addition,  for  the 
Second-Order  Godunov  solver,  implementation  of  the  boundary  conditions  is  more 
straightforward  and  accurate  for  the  center-based  algorithm  than  in  the  vertex-based 
version.  These  two  factors,  along  with  the  effects  of  grid  connectivity,  strongly  affect  the 
algorithm  accuracy  and  performance  and  are  the  main  reasons  for  the  superiority  of  the 
center-based  version  over  the  vertex  version. 

Equation  (2.4)  can  be  discretized  for  each  element  (cell)  in  the  domain 
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(2.5) 


(ur-u:) .  _ 


M 


At 


j=i 


where  Aj  is  the  area  of  the  cell;  At  is  the  marching  timestep;  U "  and  U”*'  are  the 
primitive  vari^les  at  the  center  of  the  cell  at  time  n  and  at  the  updated  («  +  l)st  timestep; 
Qj  is  the  value  of  the  fluxes  across  the  boundaries  on  the  circumference  of  the  cell  where 
iij  is  the  unit  normal  vector  to  the  boundary  edge  j,  and  ALj  is  the  length  of  the  boundary 
edge  j.  The  fluxes  2  "  are  computed  applying  the  Second-Order  Godunov  algorithm,  and 
Eq.  (2.5)  is  used  to  update  the  physical  primitive  variables  according  to  computed 
fluxes  for  each  marching  timestep  At.  The  marching  timestep  is  subjected  to  the  Courant- 
Friedrichs-Lewy  (CFL)  constraint. 


Prelected  values  at  the  edge 


Value  at  baricenter  of  right  cell 


Figure  2.1.1  Representative  triangular  cell  in  the  mesh  showing  fluxes  and  projected 

values 

To  obtain  second-order  spatial  accuracy,  the  gradient  of  each  primitive  variable  is 
computed  in  the  baricenter  of  the  cell.  This  gradient  is  used  to  define  the  projected  values 
of  primitive  variables  at  the  two  sides  of  the  cell  edge,  as  shown  in  Fig,  2.1.1.  The 
gradient  is  approximated  by  a  path  integral 

fvC/“V^  =  (f  U^dl.  (2.6) 

J/j  '  > 


The  notation  is  similar  to  the  one  used  for  Eq.  (2.5),  except  that  the  domain  Q  is  a  single 
cell  and  and  Uj  are  values  at  the  baricenter  and  on  the  edge  respectively.  The  gradient 

is  estimated  as 

S;uf'=\f^U^n^AL^  (2.7) 

A  /=! 
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where  t/ is  an  average  value  representing  the  value  ot  ^..mitive  variable  for  edge  j. 

The  gradients  that  are  computed  at  each  baricenter  are  used  to  project  values  for 
the  two  sides  of  each  edge  by  piecewise  linear  interpolation.  The  interpolated  values  are 
subjected  to  monotonicity  constraints.^  The  monotonicity  constraint  ensures  :  at  the 
interpolated  values  do  not  create  new  extrema. 


The  monotonicity  limiter  algorithm  can  be  written  in  the  following  form 


(2.8) 


where  Ar  is  the  vector  from  the  baricenter  to  the  point  of  intersection  of  the  edge  with  the 
line  connecting  the  baricenters  of  the  cells  over  the  two  sides  of  this  edge.  Here  (j)  is  the 
coefficient  that  limits  the  gradient  V  f/, . 

First  we  compute  the  maximum  and  minimum  values  of  the  primitive  variable  in 
the  ;th  cell  and  its  three  neighboring  cells  that  share  common  edges  (see  Fig.  2.1.1). 


C/:^=min(f/r'‘) 


k=i,  1,2,3. 


(2.9) 


The  limiter  can  be  defined  as 


^J  =  min  {1,^*},^  =  1,2,3 


(2.10) 


where  the  superscript  Ir  stands  for  left  and  right  of  the  three  edges  (6  combinations 
altogether);  ^ is  defined  by 


nun 

cell 


lAU'' 


.k  =  \.2,2  (2.11) 


where  U','  ■  Ar  ^  and 


j  rrttu*  -rj^ 

^  cell  ^  ceU  ^  i 

Afrmn  _  yr  mm  // 

ceil  “  ^  cell  ^  «  j 


(2.12) 


To  obtain  second-order  accuracy  in  time  and  space,  we  subject  the  projected 
values  of  the  left  and  right  side  of  the  cell  edge  to  characteristic  constraints  following  Ref 
4.  The  one-dimensional  characteristic  predictor  is  applied  to  the  projected  values  at  the 
half  timestep  / "  +  A//2.  The  characteristic  predictor  is  formulated  in  the  local  system  of 
coordinates  for  the  one-dimensional  Euler  equation.  We  illustrate  the  implementation  of 
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the  characteristic  predictor  in  the  direction  of  the  unit  vector  ng.  The  Euler  equations  for 
this  direction  can  be  written  in  the  form 


W,  +  A(W)W„^=0-, 


f  ■) 

T 

'u  -T  o'' 

U 

■;  A{W)  = 

0  M  r 

P. 

^0  pc^ 

(2.13) 

(2.14) 


where  t  =  p~\p  denotes  density,  u,  p  are  the  velocity  and  pressure.  The  matrix  A(W) 
has  three  eigenvectors  (lU,  r#)  (/  for  left  and  r  for  right,  where  #  stands  for  +,  0,  -) 
associated  with  the  eigenvalues  A.*  =u  +  c,A‘  =u,X~=u-c. 


An  approximation  of  the  value  projected  to  an  edge,  accurate  to  second  order  in 
space  and  time,  can  be  written  as 


2  dt 


dr 


^r-^A{W,) 


dW 


dr 


(2.15) 


An  approximation  to  written  as 


(2.16) 


where 


(m.m.)= 


max  (2.  * ,  o) 
min  (a  ■ ,  O) 


for  the  cell  on  the  left  of  the  edge 
for  the  cell  on  the  right  of  the  edge. 


(2.17) 


The  gradients  applied  in  the  process  of  computing  the  projected  values  at  r "  +  A//2  are 
subjected  to  the  monotonicity  limiter. 

Following  the  characteristic  predictor  described  above,  the  full  Riemann  problem  is 
solved  at  the  edge.  The  solution  of  the  Riemann  problem  defines  the  flux  through 

the  edge.  The  fluxes  through  the  edges  of  triangles  are  then  integrated  (Eq.  2.5),  thus 
giving  an  updated  value  of  the  variables  at  /  .  One  of  the  advantages  of  this  algorithm  is 

that  calculation  of  the  fluxes  is  done  over  the  largest  loop  in  the  system  (the  loop  over 
edges)  and  can  be  vectorized  or  parallelized.  This  leads  to  an  efficient  algorithm. 
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We  have  carried  out  an  extensive  and  painstaking  series  of  tests  in  the  course  of 
developing  and  implementing  the  algorithm.  Most  of  these  used  a  standard  benchmark, 
the  exploding  diaphragm  or  "Sod  problem"  (Fig.  2.1.2).  In  this  problem  two  regions 
containing  an  ideal  gas  at  different  densities  and  pressure  are  separated  by  an  infinitely  thin 
interfece  (the  diaphragm).  A  shock  wave,  a  rarefaction  wave,  and  a  contact  discontinuity 
propagate  away  from  that  point  at  different  speeds  when  this  diaphragm  is  instantaneously 
removed.  The  Riemann  solution  yields  an  analytical  solution  in  terms  of  simple  waves 
which  can  be  compared  with  the  numerical  approximation. 


We  used  this  problem  as  a  testbed  to  compare  structured  vs.  unstructured  grids, 
first-order  vs.  second-order  Godunov  schemes,  schemes  with  and  without  limiters,  etc. 
For  example.  Fig,  2.1.2  shows  that  the  solution  obtained  with  an  unstructured  grid  is 
noticeably  better  than  that  obtained  with  a  structured  grid. 


Analytical  reatiits 
Stmcttzred  giid 


Figure  2.1.2  Density  profile  comparison  between  analytical  results  and  results  obtained  by 
applying  the  second-order  Godunov  algorithm  using  structured  or  unstructured  grids. 
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2.2  MULTIPHASE  MULTICOMPONENT  REACTIVE  FLOW 


Multiphase  multicomponent  reacting  flows  (MPMCRF)  consist  of  material  media 
(continua  and  particles)  dispersed  in  a  flow  varying  in  space  and  time.  Two  basic 
approaches  can  be  used  to  describe  MPMCRFs.  h^erogeneous  and  homogeneous  phase 
descriptions.  For  homogeneous  mixtures  one  assumes  that  each  mixture  component 
occupies  the  same  volume  with  other  mixture  components  on  an  equal  basis  (Vi=V2=... 

This  approach  is  justified  for  an  interpenetrating  mixture  of  gases  or  a  dilute 
suspension  of  particles  in  a  gas.  In  a  heterogeneous  description  of  a  suspension,  each 
component  occupies  only  part  of  the  global  volume  {Vi+V2+...+Vn=V).  Therefore  in 
the  mathematical  description  of  the  heterogeneous  suspensions,  in  addition  to  the  density 
of  the  i-th  component  pj  one  needs  to  introduce  the  fractional  volume  of  the  components: 

(2.18) 

which  allows  us  to  define  the  real  density  of  each  of  the  components  as  cr,  =  — . 

Consider  a  chemically  reacting  system  containing  an  V-component  gaseous  phase 
and  one  solid  particle  phase.  The  conservation  equations  can  be  written  as  follows:^ 

Conservation  of  Mass 


Global  continuity  for  gaseous  phase. 


^  f  \ 


(2.19) 


Continuity  of  N-l  species  or  components  of  gaseous  phase: 


dY' 


dt  dx 


(2.20) 


Continuity  for  solid  particle  phase; 


dt 


■  + 


(2.21) 


In  the  above  equation  of  mass  conservation,  pg  is  the  partial  gas  density.  The  gas  volume 
fraction  is  The  relation  between  partim  gas  density  and  material  density  Og  is 
i-  Similarly,  we  define  the  partial  phase  density  Pp  and  material  density  c^. 
The  relation  between  the  two  is  then  p^  We  assume  volume  conservation, 

which  is 

(2.22) 
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The  species  diffusion  velocity  V  ‘  is  calculated  through  Pick's  law: 


D  dY' 
Y'  dx,  ’ 


(2.23) 


where  D  is  the  diffusion  coefficient.  Finally,  we  assume  mass  conservation  in  all  chemical 
reactions;  # 


N 


and  = 


(2.24) 


Conservation  of  Momentum 


Conservation  of  momentum  for  the  gaseous  phase: 


dx 


dx 


du 


rg)k 


dx, 


3y+M 


dx  j  dx  I 


(2.25) 


Conservation  of  momentum  for  the  particle  phase; 


dx 


dx  .. 


In  the  above  momentum  conservation  equations,  pp  and  pg  are  the  pressure  of  the  solid 
particle  and  gaseous  phases  respectively,  F  represents  the  interaction  force  between  the 
two  phases,  and  t  is  the  stress  tensor  for  the  particle  phase,  to  be  determined  by 
experimental  or  empirical  correlations. 


For  the  gaseous  phase,  the  stress  tensor  can  be  written  as 


du ,  du 

- ^  +  • — ■' 


^dx j  dx.j 


(2.27) 


where  p  is  the  dynamic  viscosity  and  /r'is  the  second  viscosity  coefficient. 

Conservation  of  Energy 

The  governing  equation  for  conservation  of  energy  for  the  gaseous  phase  is  usually  written 
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"r.)] 


dt 

dx !  ‘  Sx ! 


+  -^[p  uu  (^  *  +  iz>^  "  r.>.  f,ij] 


(s)i 


p  ~'^ Pi  ^ 
3  J 


du 


(a>k 


Sii+P 


du 


(g>> 


dx. 


(2.28) 


J  J 


^  (Pt'  “  (P)i  p' 

The  equation  for  conservation  of  energy  for  the  particle  phase  has  the  form 

Yt  V )] ^ if"  Vp ^<p>>  ’^p  +  r.A  " r.;.  V<t>p» (p>, P  p ] 


_£-_/'  \+F^’‘*u  -O 

^».  1"  ("p;;  ‘  ^  •  ^(p>i  ^p- 


(2.29) 


j  (^X  j 


In  the  conservation  of  energy, 


dx. 


and 


(p)j 

dx , 


are  the  heat  flux  gradients  in  the  yth 


direaion  in  the  gaseous  and  particle  phases,  respectively.  Qp  is  the  energy  source  due  to 
heterogeneous  chemical  reactions  (between  the  gaseous  and  particle  phases),  plus  heat 

N 

transfer  between  the  two  phases.  Here  O  ^  =  ^(-  o)  ^Ah is  the  energy  source  due  to 

i=l 

homogeneous  (gaseous)  chemical  reactions,  which  is  defined  in  the  chemical  reaction 
model. 

Conservation  of  Number  of  Particles 

An  equation  for  total  conservation  of  particles  is  given  by 


dn  d  j  ^  ^ 

- -I - (w  „  M  f  „> ,  =  0  . 

dt  dx 


Equation  of  State 

The  equation  of  state  for  ail  gases  can  be  put  into  the  generic  form 

where  for  an  ideal  gas  the  form  is 


(2.30) 


(2.31) 
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(■32) 


and 

An  equation  of  state  for  the  particle  phase  can  be  written  in  symbolic  form  as 

p,=/{a,,T^). 

where  the  exact  form  of  Eq.  (2.34)  that  is  to  be  used  in  a  numerical  simulation  depends  on  • 

experimental  data  or  results  from  physical  approximations. 

In  the  above  equations,  yg  is  the  ratio  of  specific  heats  of  the  gaseous  mixture  and 
Rji  is  the  universal  gas  constant. 

Chemical  Reaction  Model 


33) 


(2.34) 


A  phenomenological  chemical  reaction  model  for  the  gaseous  phase  (including  M  chemical 
reactions)  has  been  formulated  as 


a;'  vi'’)5*r“‘exp 


^  /T  ^ 

^  ak 

N  {  Y  J  n  'i 

ni  ^ 

(2.35) 


Similarly,  a  phenomenological  heterogeneous  (for  gas  and  particle  phases)  chemicals 
reaction  model  can  be  written  symbolically  as 

=  ••••).  P-36) 

and  again  the  exact  form  of  Eq.  (2.36)  will  depend  on  experimental  data  or 
approximations  from  physical  models. 

The  following  nomenclature  defines  the  symbols  used  in  the  above  system  of 
equations  (2.19)  -  (2.36):  B  -  chemical  reaction  collision  frequency  factor;  -  specific 
heat  for  solid  particle;  e  -  internal  energy;  D  -  mass  diffusion  coefficient;  E  -  activation 

energy  for  the  Ath  reaction;  Fj  -  interphase  force  in  ;th  direction;  I  -  source  function 
generated  by  chemical  reaction;  pg  -  gas  pressure;  q/  -  heat  flux  in  the  /th  direction;  Rjj  - 
universal  gas  constant;  t  -  time;  T  -  temperature;  «/  -  velocity  in  /th  direction;  Vj  - 
species  diffusion  velocity  in  /th  direction;  fV^  -  molecular  weight  of  /th  component  of  gas; 
X/  -  coordinate  in  /th  direction  -  mode  fraction  of  /th  component  of  gas;  F  -  mass 
fraction  of  ith  component  of  gas;  a  -  temperature  exponent  of  the  Ath  reaction;  y  -  ratio 
of  specific  heat;  A  -  thermal  conductivity  of  gas;  -  dynamic  viscosity  of  gas;  p'-  second 
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viscosity  coefficient  of  gas;  Xjj  -  stress  tensor;  q>  '  -  mass  rate  of  production  of  species  i; 
p  -  density;  v/jt  -  stoichiometric  coefficient  for  species  /  appearing  as  a  reactant  in  the  kth 
reaction;  v'j  -  stoichiometric  coefficient  for  species  i  appearing  as  a  product  in  the  /rih 
reaction;  (|>  -  vciume  fraction;  o  -  material  density.  Subscripts  are  defined  as  follows;  g  - 
gas  phase;  p  -  particle  phase;  ij,k,  -  direction  indexes;  /  -  species  index.  Superscripts 
refer  to  species  type. 

The  comprehensive  mathematical  model  and  system  of  equations  given  above  for 
an  MPMCRF  simulation  of  advanced  material  synthesis  processes  is  based  on  volume 
averaging,  assuming  that  each  phase  or  component  can  be  described  by  continuous  flow. 
Such  averaging  leads  to  a  loss  of  information  that  can  be  recovered  by  appropriate  closure 
relations.  The  closure  relations  such  as  interphase  forces,  chemical  reaction  models  and 
the  equations  of  state  are  usually  developed  from  correlations  involving  experimental  data 
or  from  simple  physical  or  chemical  models  describing  interphase  or  intraphase 
interactions.  Such  correlations  are  generally  only  valid  within  the  range  of  known 
experimental  data;  the  choice  of  appropriate  closure  models  reflects  the  understanding  of 
the  underlying  physical  and  chemical  nature  of  the  system  to  be  simulated. 

2.3  DIRECT  DYNAMIC  REFINEMENT  METHOD  FOR  UNSTRUCTURED 
TRIANGULAR  GRIDS 


As  stated,  an  unstructured  grid  is  very  well  suited  to  implement  boundary 
conditions  on  complex  geometrical  shapes  and  to  refine  the  grid  if  necessary.  This  feature 
of  the  unstructured  triangular  grid  is  compatible  with  efficient  use  of  memory  resources. 
The  adaptive  grid  enables  the  code  to  capture  moving  shocks  and  large>gradient  flow 
features  with  high  resolution.  The  memory  resources  available  can  be  very  efficiently 
distributed  in  the  computational  domain  to  accommodate  the  resolution  needed  to  capture 
the  main  features  of  the  solution’s  physical  property.  Dynamic  refinement  controls  the 
resolution  priorities.  These  priorities  can  be  set  according  to  the  physical  features  that  the 
user  wishes  to  emphasize  in  the  simulation.  The  user  has  control  over  the  resolution  of  the 
physical  features,  vrithout  being  restricted  to  the  initial  grid.  The  alternative  to  Direct 
Dynamic  Refinement  is  the  hierarchical  dynamic  refinement^  (H  refinement)  that  keeps  a 
history  of  the  initial  grid  (mother  grid)  and  the  subdivision  of  each  level  (daughter  grids). 
In  the  H  refinement  method,  it  is  necessary  to  keep  overhead  information  on  the  level  of 
each  triangle  subdivision,  and  double  indirect  indexing  is  required  to  keep  track  of  the  H 
refinement  process.  As  mentioned,  H  refinement  relies  heavily  on  the  initial  grid  as  it 
subdivides  the  mother  grid,  and  returns  to  that  grid  after  the  passage  of  the  shock. 


The  Direct  Dynamic  Refinement  (DDR)  method  for  capturing  the  shock  requires 
the  refinement  to  be  in  the  region  ahead  of  the  shock.  This  requirement  minimizes  the 
dissipation  in  the  interpolation  process  when  assigning  values  to  the  new  triangles  created 
in  the  refined  region.  Additionally,  it  requires  that  the  coarsening  of  the  grid  be  done  after 
the  passage  of  the  shock.  The  interpolation  and  extrapolation  in  the  refinement  and 
coarsening  of  the  grid  is  done  in  the  region  where  the  flow  features  are  smooth. 
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Figure  2.3.1  Illustration  of  the  grid  refinement  process 


a.  Origmai  grid. 


b.  Paixit  remavaL 


c.  Coastructing  o£  new  ceila. 


Figure  2.3.2  Illustration  of  the  grid  coarsening  process. 


The  physics  of  the  problem  is  involved  in  the  process  that  identifies  the  region  of 
refinement  and  coarsening.  Error  criteria  can  be  derived  that  will  allow  grid  adaptation  to 
stationary  or  moving  pressure  or  density  discontinuiiies,  region  of  high  vortical  actjv:v, 
etc.  There  should  be  an  error  indicator  specially  suited  to  capture  and  identify  the  rc2:  m 
of  importance  for  each  of  the  physics  features  to  be  resolved. 

The  original  FUGGS  algorithm  reported  in  Ref  9  was  modified  to  able 
adaptivity  of  the  grid  in  the  course  of  the  computation.  In  AUGUST,  v  p  have 
implemented  an  algorithm  with  multiple  criteria  for  capturing  a  variety  of  feat„  es  that 
might  exist  in  the  physics  of  the  problem  to  be  solved.  To  identify  the  location  of  a 
moving  shock,  we  use  the  flux  of  total  energy  into  triangles.  The  fluxes  entering  and 
leaving  triangles  are  the  most  accurate  physical  variables  computed  by  the  Godunov 
algorithm  for  solving  the  Euler  equations,  and  are  used  to  update  the  physical  variables  for 
each  timestep  in  each  triangle.  A  shock  wave  means  that  there  is  a  "step-function”  change 
in  the  cell  that  is  caused  by  an  influx  of  energy,  momentum  or  density.  Stationary  shocks 
can  be  identified  by  density  gradients  that  are  computed  in  the  course  of  implementing  the 
Second-Order  Godunov  algorithm. 

In  Fig.  2.3.1,  we  illustrate  the  basic  process  of  refinement  accomplished  in  the 
DDR.  The  original  grid  is  shown  in  Fig.  2.3.1a.  Figure  2.3.1b  illustrates  a  one-step 
scheme  refinement  in  which  a  new  vertex  is  introduced  into  a  triangular  cell,  forming  three 
new  cells.  This  is  followed  by  reconnection,  which  modifies  the  grid  as  demonstrated  in 
Fig.  2.3.1c.  The  process  of  refinement  and  reconnection  can  be  continued  until  the 
necessary  grid  resolution  is  achieved,  as  illustrated  in  Figs.  2.3. Id  and  2.3.  le.  This  direct 
approach  to  the  grid  refinement  provides  extreme  flexibility  in  resolving  local  flow 
features.  A  similar  simple  method  is  applied  to  grid  coarsening.  In  the  first  step  of 
coarsening  the  marked  vertices,  all  associated  elements  of  the  grid  are  simply  removed,  as 
shown  in  Fig.  2.3.2a.  During  the  second  step,  this  void  in  the  grid  is  filled  with  new  larger 
triangles  (Fig.  2.3.2b)  and  then  reconnected  as  shown  in  Fig.  2.3.2c.  When  a  very  large 
increase  of  the  local  grid  density  is  required,  these  simple  algorithms  of  grid  addition  and 
deletion  can  create  triangles  with  an  unacceptably  large  aspect  ratio.  To  avoid  this 
condition  for  very  large  grid  densities  (when  the  area  of  the  triangles  in  the  dense  region  is 
reduced  to  less  than  2%  of  the  initial  area),  we  introduced  local  grid  relaxation 
immediately  after  the  grid  deletion  procedure. 

AUGUST  has  proven  to  be  a  very  robust  and  efficient  algorithm  capable  of 
computing  transient  phenomena,  and  with  the  ability  to  sense  the  region  of  physical 
interest  and  resolve  it  by  refining  and  coarsening  the  grid  as  needed. 

2.4  STRUCTUREDAJNSTRUCTURED  COMPOSITE  GRIDS 

Structured  rectangular  grids  allow  the  construction  of  numerical  algorithms  that 
perform  an  efficient  and  accurate  integration  of  fluid  conservation  equations.  The 
efficiency  of  these  schemes  results  from  the  extremely  low  storage  overhead  needed  for 
domain  decomposition  and  the  efficient  and  compact  indexing  that  also  defines  domain 
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connectivity.  These  two  factors  allow  code  construction  based  on  a  structured  domain 
decomposition  that  can  be  highly  vectorized  and  parallelized.  Integration  in  physical  space 
on  orthogonal  and  uniform  grids  produces  the  highest  possible  accuracy  of  the  numerical 
algorithms.  The  disadvantage  of  structured  rectangular  grids  is  that  they  cannot  be  used 
for  decomposition  of  computational  domains  with  complex  geometries. 

The  early  developers  of  computational  methods  realized  that,  for  many  important 
applications  of  Computational  Fluid  Dynamics  (CFD),  it  is  unacceptable  to  describe 
curved  boundaries  of  the  computational  domain  using  the  stair-step  approximation 
available  with  the  rectangular  domain  decomposition  technique.  To  overcome  this 
diflBculty,  the  techniques  of  boundary-fitted  coordinates  were  developed.  With  these 
techniques,  the  computational  domain  is  decomposed  into  quadrilaterals  that  can  be  fitted 
to  the  curved  domain  boundaries.  The  solution  is  then  obtained  in  the  physical  space  using 
the  geometrical  information  defining  the  quadrilaterals,  or  in  the  computational  coordinate 
system  that  is  obtained  by  transformation  of  the  original  domain  into  a  rectangular  domain 
The  advantage  of  this  technique  is  that  it  employs  the  same  indexing  method  as  the 
rectangular  structured  domain  decomposition  methods  that  also  serve  to  define  domain 
connectivity.  The  boundary-fitted  coordinate  approach  leads  to  efficient  codes,  with 
approximately  a  4: 1  penalty  in  terms  of  memory  requirement  per  cell  as  compared  with 
rectangular  domain  decomposition.  However,  this  approach  is  somewhat  restricted  in  its 
domain  decomposition  capability,  since  distortion  or  large  size  variations  of  the 
quadrilaterals  in  one  region  of  the  domain  leads  to  unwanted  distortions  or  increased 
resolution  in  other  parts  of  the  domain.  An  example  of  this  is  the  case  of  structured  body 
fitted  coordinates  used  for  simulations  of  flows  over  a  profile  with  sharp  trailing  edges.  In 
this  case,  increased  resolution  in  the  vicinity  of  the  trailing  edge  leads  to  increased 
resolution  in  the  'vhole  row  of  elements  connected  to  the  trailing  edge  elements. 

The  most  effective  methods  of  domain  decomposition  developed  to  overcome  this 
disadvantage  are  those  using  unstructured  triangular  grids.  These  methods  were 
developed  to  cope  with  very  complex  computational  domains.  The  unstructured  grid 
method,  while  efficient  and  powerful  in  domain  decomposition,  results  in  codes  that  must 
store  large  quantities  of  information  defining  the  grid  geometry  and  connectivity,  and  have 
targe  computational  and  storage  overheads.  As  a  rule,  an  unstructured  grid  code  requires 
greater  storage  by  a  factor  of  iO,  and  will  run  about  20  times  slower  per  cell  per  iteration 
than  a  structured  rectangular  code. 

Unstructured  grid  methods  are  used  to  their  best  advantage  when  combined  with 
grid  adaptivity.  This  feature  usually  allows  dynamic  decomposition  of  the  computational 
domain  subregions,  thus  leading  to  an  order-of-magnitude  reduction  in  the  number  of  cells 
for  some  problems,  as  compared  to  the  unstructured  grid  lacking  this  adaptive  capability. 
However,  this  advantage  is  highly  dependent  on  the  problem  solved.  Adaptive 
unstructured  grids  have  an  advantage  over  the  unadaptive  unstructured  domain 
decomposition  if  the  are?,  of  high-resolution  domain  decomposition  is  less  than  one  tenth 
of  the  global  area  of  the  computational  domain.  This  explains  why  the  adaptive 
unstructured  method  may  be  extremely  effective  for  solutions  with  multiple  shock  waves 
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in  complex  geometries,  but  becomes  extremely  inefficient  when  high  resolution  is  needed 
in  a  substantial  area  of  the  computational  domain. 


Our  approach  to  domain  decomposition  combines  the  structured  and  unstrucrured 
methods  for  achieving  better  efficiency  and  accuracy.  Under  this  method,  stru:  •  ' 
rectangular  grids  are  used  to  cover  most  of  the  computational  domain,  and  unstn. 
triangular  grids  are  used  only  to  patch  between  the  rectangular  grids  (Fig.  2.4. 1  .r  to 
conform  to  the  curved  boundaries  of  the  computational  domain  (Fig.  2.4.2).  ,  these 

figures,  an  unstructured  triangular  grid  is  used  to  decompose  the  regions  of  the 
computational  domain  that  have  a  simple  geometry. 


Figure  2,4. 1  A  possible  candidate  configuration  for  hybrid 
structured/unstructured  domain  decomposition. 
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Figure  2.4.2  Hybrid  structured/unstructured  grid  used  to  simulate 
ellipsoidal  reflector,  showing  adaptation  to  curved  boundaries. 
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2.5  THREE-DIMENSIONAL  CAPABILITY 


Once  the  2D  capability  was  fully  developed,  we  initiated  the  development  of  a  fully 
3D  CFD  adaptive  unstructured  simulation  capability.  This  part  of  our  effort  is  not  yet 
documented  in  published  material. 

The  first  step  in  solving  a  3D  CFD  problem  is  to  discretize  the  computational 
domain  into  tetrahedra.  The  grid  generation  is  a  recognized  bottleneck  in  the  time  it  takes 
to  evaluate  an  aerodynamic  configuration.^^  One  could  even  argue  that  it  represents  the 
most  time-consuming  portion  of  the  evaluation  process.  There  are  a  handful  of  codes  that 
are  capable  of  gridding  any  given  domain  into  tetrahedra.  In  order  to  shorten  the  part  to 
our  objective  of  achieving  a  3D  adaptive  solver  capability,  we  decided  to  make  use  of  an 
existing  grid  generator  to  provide  the  initial  grid. 

OCTREE,  which  was  developed  at  Rensselaer  Polytechnic  Institute  (RPI),  is  a 
Finite  Octree  3D  grid  generator  that  provides  the  initial  grid  for  our  adaptive  solver.  The 
productivity  of  a  3D  grid  generator  is  a  function  of  the  complexity  of  the  surfaces  that 
define  the  domain  of  computation.  Usually,  this  task  is  the  most  time-consuming  and 
painful  for  the  user.  OCTREE  does  not  have  a  CAD/CAM  package  to  assist  the  user  in 
defining  the  surfaces  of  the  geometry  to  be  gridded.  Nevertheless,  OCTREE  is  a  very 
robust  and  reliable  grid  generator. 

The  OCTREE  algorithm  is  based  on  the  concept  of  dividing  the  computational 
domain  into  octants.  In  each  step,  the  code  defines  three  planes  that  halve  the  domain  in 
each  of  the  three  dimensions,  thus  dividing  the  volume  into  eight  octants.  Those  three 
planes  intersect  the  surfaces  of  the  geometry,  defining  vertices.  All  the  vertices  are 
collected  and  sorted  into  topological  loops.  If  the  venices  are  not  sufficient  to  define 
correct  topological  loops,  the  code  will  subdivide  the  corresponding  octant  into  eight 
smaller  octants  until  the  topology  is  fully  resolved.  The  user  is  allowed  to  specify  the  level 
of  the  local  octree  subdivision  he  wishes  to  resolve.  Once  the  code  subdivides  the  volume 
into  the  level  of  octree  specified  by  the  user  or  needed  to  resolve  the  local  geometrical 
details,  the  code  defines  tetrahedra  to  fill  the  volume  of  the  computation  domain.  The 
code  provides  the  user  with  an  option  that  improves  the  quality  of  the  tetrahedra  by 
smoothing  and  eliminating  the  very  small  ones. 

As  stated,  OCTREE  provides  the  initial  grid  for  the  3D  solver.  The  adaptivity  of 
the  mesh  is  controlled  by  specific  physical  features  that  the  user  defines  based  on  the 
physics  of  the  problem  to  be  solved.  The  adaptivity  of  the  mesh  automatically  traces  the 
physical  features  in  the  simulation  and  refines  and  coarsens  the  mesh  accordingly  to  the 
criteria  and  the  resolution  specified  by  the  user. 
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Figure  2.5. 1  An  elongated  tetrahedron  can  be  refined  using  smaller  tetrahedra  that  are 

nearly  regular. 

The  target  tetrahedra  are  refined  by  first  subdividing  each  of  the  four  surfaces  into 
smaller  triangles  that  satisfy  the  resolution  set  by  the  user.  There  are  no  constraints  on  the 
way  each  face  is  subdivided.  Each  edge  of  the  face  is  subdivided  according  to  the  local 
resolution  needed,  and  the  points  along  the  edges  are  connected  to  construct  the  best 
triangles  possible.  The  code  adds  points  inside  the  face  along  with  points  on  the  edges  to 
achieve  an  adequate  triangulation  of  the  faces.  The  triangles  of  the  four  faces  of  the  target 
tetraheda  are  used  to  define  smaller  tetrahedra  that  will  fill  the  volume.  If  needed,  the 
code  will  add  points  inside  the  volume  of  the  target  tetrahedron  to  achieve  the  best 
tetrahedra  possible.  The  code  has  the  ability  to  reconnect  tetrahedra  to  improve  quality. 
The  reconnection  is  done  by  pulling  out  an  edge,  sorting  all  the  tetrahedra  connected  to 
this  edge,  deleting  these  tetrahedra  and  filling  the  void  with  better  shaped  tetrahedra. 

Figure  2.5.1  shows  how  the  subdivision  process  can  fill  an  irregular  (elongated) 
tetrahedron  with  smaller  tetrahedra  that  are  nearly  equilateral.  (This  is  not  the  case  with  H 
refinement.)  Figure  2.5.2  shows  points  used  to  create  octree  refinement  to  grid  a  problem 
involving  surface-mine  blast  effects  on  the  underside  of  a  truck.  Figure  2.5.3  is  the 
corresponding  tetrahedral  grid.  The  calculated  overpressures  on  the  surface  of  the  truck 
underbody  for  an  eight-pound  explosive  are  shown  in  Sec.  3  ,4. 

The  algorithm  used  to  solve  the  3D  gasdynamic  equations  is  an  immediate 
extension  of  the  2D  case  described  in  Sec.  2,1.  Thus,  Eq.  (2.6)  is  replaced  by 

dr=  Jc/J’^dS,  (2.6') 

n  dO 
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Figure  2.5.2  Points  used  to  define  structure  of  vehicle. 


Figure  2.5.3  Tetrahedral  grid  generated  by  Finite  Octree  method. 
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where  now  Cl  and  dCl  are  the  volume  and  surface  of  a  tetrahedron,  and  dV  and  dS  are  the 
corresponding  differential  elements.  Its  finite-difference  approximation  is 


(2.r) 

where  the  summation  is  over  the  four  faces  and  m  is  the  normal  to  the  yth  face  with  • 

surface  area  dSj.  In  the  equations  corresponding  to  Eqs.  (2.9)  -  (2. 1 1),  the  range  1 ,  2,  3  is 
replaced  by  1,  2,  3,  4.  Equations  (2.12)  -  (2.16)  are  formally  unchanged,  and  Eq.  (2.17) 
becomes 


max  r  >  O) 
min  .O) 


for  the  cell  on  the  left  of  the  edge 
for  the  cell  on  the  right  of  the  edge. 


(2.17') 


3.  APPLICATIONS 

The  AUGUST  code  was  extensively  validated  for  a  wide  range  of  known  CFD 
problems  and  has  been  shown  to  be  a  robust  simulation  tool.  It  has  been  utilized  on  a 
variety  of  problems  which  span  flow  regimes  ranging  from  low  subsonic  Mach  numbers  to 
hypersonic  Mach  numbers  (Table  3.1). 

Appendbc  C  contains  a  complete  collection  and  description  of  the  CFD  problems 
addressed  during  the  UUGM  research.  Additional  details  of  the  AUGUST  code  are 
contained  in  SAICs  progress  report  for  the  UUGM  DARPA  program,  submitted  in 
November  1991.  Here  we  briefly  describe  the  most  noteworthy  applications. 


It  is  worth  underscoring  again  that  in  the  past  it  was  necessary  to  use  a  sequence 
of  codes  as  well  as  numerical  parameter  adjustment  to  bridge  the  gap  in  flow  phenomena 
occurring  in  different  flow  regimes.  An  important  point  to  be  made  here  is  that  the 
AUGUST  code  allows  robust,  accurate  and  efficient  solutions  across  these  different 
regimes  without  the  necessity  of  adjusting  coefficients  to  enhance  convergence  accuracy 
or  efficiency. 


Table  3.1  AUGUST  Applications 


Problem  Activity 

1 .  Calculation  of  potential  flow  about  an  Reported  at  the  4th  International 

ellipse.  Symposium  on  Computational  Fluid 

Dynamics,  Davis,  CA,  Sept  1991. 

2.  Hypersonic  flow  past  a  flat  plate.  Reported  at  AIAA  Reno  Meeting  (AIAA- 

90-0699),  1990. 


22 


Problem 


Activity 


3.  Shock  on  wedge  with  adaptive  Reported  at  the  Free  Lagrange 

gridding.  Conference,  Jackson  Lake,  WY,  1990, 

4.  Simulation  of  mine  explosion  under  a  Performed  for  U.S.  Army  Corps  of 

vehicle.  Engineers,  Ft.  Belvoir,  VA. 

5.  Simulation  of  pulsed  detonation  engine.  Published  in  J.  of  Propulsion  and  Power 

Nov/Dec  1991  Vol.  7  (6)  pp.  857-865  and 
AIAA  Meeting,  Reno,  NV  1992. 

6.  Shock  focusing  in  air  using  Presented  at  the  ICAM  Conference, 

structured/unstructured  grids.  Rutgers,  NJ,  June  1992. 

7.  Nonideal  airburst  calculations  for  Performed  for  the  Defense  Nuclear 

multiphase  media.  Agency,  Alexandria,  VA. 

8.  Flow  in  the  SARL  wind  tunnel.  Performed  for  Wright-Patterson  AFB. 

9.  Simulation  of  a  shock  on  a  double  Presented  at  the  Army  workshop  on 
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3.1  POTENTIAL  FLOW  OVER  AN  ELLIPSE 

One  of  the  outstanding  early  CFD  computational  challenges  (from  the  point  of 
view  that  no  satisfactory  solution  had  been  obtained)  was  associated  with  simulating 
subsonic  (Mach  0.2  end  less)  flow  over  a  symmetric  elliptical  airfoil  using  the  Euler 
equations  (Fig.  3.1.1).  All  previous  attempts  to  compute  the  flow  over  such  an  ellipse 
resulted  in  spurious  lift  and  drag  values  that  were  significantly  larger  than  the  classical 


10.  Supersonic  spray  coating  devices. 

11.  Nanomaterial  synthesis. 

12.  Dusty  flow  over  a  cylinder. 

13.  Image  processing. 

14.  Multiphase  detonation. 
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Figure  3.1.1  The  grid  used  for  simulating  the  flow  over  an  ellipse. 

potential  flow  solution.  The  potential  flow  result  should  have  been  closely  approximated 
if  there  were  no  numerical  viscosity  present.  This  test  case  is  important  because,  in 
transitioning  from  an  Euler  solver  to  a  full  Navier-Stokes  solver,  one  needs  confidence 
that  the  artificial  (numerical)  viscosity  will  not  dominate  the  physical  viscosity  included  in 
the  Reynolds'  stress  terms.  As  shown  in  Appendix  C-1,  use  of  an  earlier  version  of  the 
AUGUST  code,  the  Fast  Unstructured  Grid  Godunov  Solver  (FUGGS)  code  provided 
solutions  to  this  test  case  that  were  very  close  to  the  potential  flow  solution.  Other 
attempts  resulted  in  lift  and  drag  values  that  were  off  by  several  orders  of  magnitude 
compared  with  the  SAIC  FUGGS  results.  The  results  described  here  were  prepared  for  a 
poster  presented  to  Dr.  Aije  Nachman,  SAICs  UUGM  AFOSR  program  monitor  and  Dr. 
James  Crowley,  SAICs  UUGM  DARPA  program  manager. 

3.2  HYPERSONIC  FLOW  PAST  A  FLAT  PLATE 

To  demonstrate  the  versatility  of  the  method  for  the  entire  range  of  flow  regimes 
we  have  simulated  a  hypersonic  flow  test  problem.  One  of  the  advantages  of  the  Godunov 
methods  is  that  over  the  whole  range  of  calculations  performed  (low  subsonic  flow, 
supersonic  flow,  unsteady  flow  vrith  strong  shock,  or  hypersonic  flow  at  Mach  number 
M=32)  it  is  unnecessary  to  change  or  adjust  the  numerical  algorithm.  In  Ref  17  the 
performance  of  first-  and  second-order  Godunov  methods  was  analyzed  for  hypersonic 
flow  regimes.  There,  as  a  test  problem,  an  analytical  solution  was  used  for  a  hypersonic 
flow  around  a  flat  plate  of  finite  thickness.  This  solution  was  obtained  based  on  the 
analogy  between  hypersonic  flow  over  a  flat  plate  of  finite  thickness  and  a  strong  planar 
explosion.  Here  we  use  an  expression  from  Ref  17  which  defines  the  shape  of  the  shock 
wave  as  a  function  of  plate  thickness  d\  y  is  the  adiabatic  coefficient,  and  a  is  a 
nondimensional  scale  factor  related  to  the  energy  released  at  the  stagnation  point. 
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where  Zy  is  a  coefficient  of  order  unity, 

a  =  /t, 


•  with  kx  =  0.3601 1,  Jt2  =  1 .2537,  and  =  -0. 1 847. 

As  a  direct  comparison  we  solved  the  hypersonic  flow  problem  for  the  same  set  of 
conditions  as  in  Ref  17: 

®  U„  =  1001 1  m/  sec,  p  =  98.72  Pa,  p  -  1.24  x  10 kg/  m  ^  and  y  -  1-2. 

The  grid  used  for  this  simulation  is  shown  in  Fig.  3.2.1a.  This  grid  has  »  5500 
vertices  and  its  spatial  resolution  at  the  leading  edge  of  the  plate  is  of  the  same  order  as 
that  of  a  300  X  60  rectangular  grid  used  in  Ref  5. 


out  flow 


Figure  3.2.1a  Grid  for  simulation  of  hypersonic  flow  over  a  flat  plate. 


Figure  3.2.1b  shows  results  for  this  simulation  in  the  form  of  pressure  contours. 
Figure  3.2.1b  also  represents  the  location  of  the  analytically  calculated  shock  front  by  a 
discrete  line  (squares).  The  shock  resolution  and  accuracy  or  its  location  are  comparable 
to  that  obtained  in  Ref  1 7  even  though  our  triangular  grid  has  less  than  one  third  as  many 
•  nodes  as  the  rectangular  grid  used  in  Ref  17.  This  is  because  in  constructing  the 

triangular  grid  we  had  the  flexibility  to  place  the  highest  concentration  of  nodes  in  the  area 
of  the  leading  edge  where  the  main  properties  of  the  flow  are  established. 
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Figure  3.2.1b  Second  order  solution  for  a  flat  plate,  pressure  contours.  Mach  =  32;  5509 
grid  vertices;  Pmax  ~  ^  ®  ^  ^min  “  ^ 

3J  SHOCK  ON  WEDGE  WITH  ADAPTIVE  GRIDDING  • 

An  unstructured  grid  is  very  suitable  for  implementing  boundary  conditions  on 
complex  geometrical  shapes  and  refining  the  grid  if  necessary.  This  feature  of  the 
unstructured  triangular  grid  is  compatible  with  efficient  usage  of  memory  resources.  The 
adaptive  grid  enables  the  code  to  capture  moving  shocks  and  large-gradient  flow  features  • 

with  high  resolution.  The  memory  resources  available  can  be  very  efficiently  distributed  in 
the  computational  domain  to  accommodate  the  resolution  needed  to  capture  the  main 
features  of  the  physical  property  of  the  solution. 

One  strategy  for  doing  this  is  called  hierarchical  dynamic  refinement  (H  • 

refinement).  It  keeps  a  history  of  the  initial  grid  (other  grid)  and  the  subdivision  of  each 
level  (daughter  grid).  H  refinement  subdivides  the  initial  grid  into  two  or  four  triangles  in 
each  level,  and  keeps  track  of  the  number  of  subdivision  levels  each  triangle  has 
undertaken.  In  the  H  refinement  method,  one  has  to  keep  overhead  information  on  the 
level  of  each  triangle  subdivision,  and  needs  double  indirect  indexing  to  keep  track  of  the  • 

H  refinement  process.  This  slows  down  the  computation  by  partially  disabling  the 
vectorization  of  the  code.  As  mentioned,  H  refinement  relies  heavily  on  the  initial  grid  as 
it  subdivides  the  mother  grid  and  returns  back  to  it  after  the  passage  of  the  shock. 


/ 


AUGUST  and  its  predecessor  FUGGS  use  a  second-order  Godunov  solver  on  an  • 

unstructured  grid.  The  refinement  strategy  incorporated  in  these  codes  is  called  Direct 
Dynamic  Refinement.  For  shock  capturing.  Direct  Dynamic  Refinement  basically  requires 
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the  refinement  to  be  in  the  region  ahead  of  the  shock.  This  requirement  minimizes  the 
dissipation  in  the  interpolation  process  when  assigning  values  to  the  new  triangles  created 
in  the  refined  region.  Additionally,  it  requires  that  the  coarsening  of  the  grid  should  be 
done  after  the  passage  of  the  shock.  In  principle,  the  interpolation  and  extrapolation  in  the 
refinement  and  coarsening  of  the  grid  are  done  in  the  region  where  the  flow  features  are 
smooth. 

FUGGS  was  used  with  direct  dynamic  refinement  to  solve  the  transient  behavior  of 
the  flow  entering  a  channel  with  a  wedge  (prism)  having  an  inclination  of  27°.  The  flow 
enters  the  channel  from  the  left  with  Mach  number  8.7.  A  sequence  of  snapshots 
illustrates  the  density  contours,  and  the  grid  for  each  timestep  is  given  in  Figs.  3.3.1a  - 
3.3.3a  (contour  plots)  and  3.3.1b  -  3.3.3b  (grid).  These  figures  clearly  demonstrate  the 
automatic  adaptation  of  the  grid  to  the  moving  shocks  and  the  ability  to  capture  the 
detailed  physics  of  the  simulation  with  very  high  resolution  and  minimal  memory 
requirements.  The  initial  grid  can  clearly  be  seen  to  the  right  of  the  shock  ("ahead")  in  the 
early  stage  of  the  shock  propagation  from  left  to  right.  The  coarsening  algorithm  is  able 
to  produce  a  reasonable  mesh  in  the  region  trailing  the  shock  as  shown  in  the  figures. 


Figure  3.3.1a  Density  contours  at  early  time  for  shock  in  planar  channel 
(M  =  8.7,  wedge  angle  =  27°). 
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Figure  3.3.2b  Grid  at  intermediate  time  for  shock  in  planar  channel 
(M  *=  8.7,  wedge  angle  =  27“). 
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Figure  3.3.3a  Density  contours  at  late  time  for  shock  in  planar  channel 
(M  =  8.7,  wedge  angle  =  27°). 
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Figure  3,3.3b  Grid  at  late  time  for  shock  in  planar  channel 

(M  =  8.7,  wedge  angle  =  27®).  ^ 

3.4  MINE  EXPLOSION  UNDER  VEHICLE 

The  main  objective  of  this  joint  Marine-Army  program  was  the  development  of 
vehicles  hardened  against  antitank  (AT)  land  mines.  The  basic  vehicle  is  the  M925  5-ton  ^ 

cargo  truck.  Numerical  simulations  were  used  to  determine  the  dynamic  loads  produced 
by  the  AT  mine  detonation  on  the  cargo  bed  and  other  structural  elements  of  the  truck. 

The  algorithms,  techniques  and  codes  developed  under  the  UUGM  program 
provided  two  key  elements  necessary  for  the  numerical  simulations  for  this  project:  a)  ^ 

flexibility  in  describing  the  very  complex  geometry  of  the  truck;  b)  high  resolution- 
calculation  of  the  shocks  and  other  discontinuities  using  an  adaptive  unstructured  grid.  A 
version  of  the  AUGUST-2D  code  developed  under  the  UUGM  program  is  being  used  for 
the  analysis  of  blast  resistance  of  different  truck  geometries. 

4 

We  have  carried  out  four  such  calculations,  using  four,  eight,  eight,  and  20  pounds 
of  C-4  explosive.  These  employed  fixed  (nonadaptive)  meshes  with  30,000  (4- lb  case), 

21,000  (8-lb  cases). 

A  one-  or  two-dimensional  calculation  was  performed  to  produce  the  initial  blast  i 

profiles  laid  down  on  the  three-dimensional  grid.  Aside  from  the  amount  of  explosive,  the 
calculations  differed  in  the  following  ways:  all  but  the  4-lb  blast  were  centered  beneath 
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Figure  3  .4.1  Two  views  of  interaction  between  mine  blast  and  M925  cargo  truck: 
pressure  contours  at  /  =  0.574  msec. 
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the  left  front  wheel  of  the  truck  (the  4-lb  blast  was  situated  70  cm  further  back);  for  the 
first  8-lb  case  a  crater  with  diameter  60  cm  and  depth  30  cm  was  situated  underneath  the 
blast. 

All  but  the  second  8-lb  case  used  an  ideal-gas  equation  of  state  with  X  =  7/5  for  e 
air  and  detonation  products.  Twenty  pressure  "sensors"  positioned  on  the  mesh  at  pc  ts 
corresponding  to  the  pressure  gauges  used  in  actual  field  tests  were  used  to  recorc  the 
pressure  and  impulse  histories  there  for  comparison  with  the  experimental  data. 

The  calculations  were  run  out  to  about  4.5  msec.  The  pressure  stations  closest  to 
ground  level  and  to  the  blast  center  exhibited  peaks  up  to  ~  10^  psi.  In  some  cases 
multiple  peaks  were  present,  corresponding  to  reflected  shocks. 

An  example  of  the  domain  decomposition  of  the  computational  grid  for  a  typical 
mine-truck  interaction  problem  is  shown  in  Fig.  2.5.2.  In  Fig.  2.5.3  the  unstructured 
triangular  grid  is  used  to  describe  a  cross  section  of  an  M925  cargo  truck.  Use  of 
unstructured  grids  allows  detailed  description  of  the  truck  geometry.  Figure  3.4.2  shows 
results  of  the  simulation  in  the  form  of  pressure  contours  overlaid  on  the  unstructured 
grid,  viewed  from  two  different  directions  halve  a  millisecond  after  the  detonation. 

At  Ft.  Belvoir's  request,  SAIC  also  assessed  the  damage  to  a  mine-clearing  plow 
due  to  a  single  detonation  of  an  AT  mine  at  close  range  during  the  Desert  Storm 
operation.  At  that  time.  Ft.  Belvoir  RDEC  had  responsibility  for  support  of  countermine 
activity  in  the  Desert  Storm  operation. 

To  simulate  the  plow-mine  blast  interaction,  SAIC  used  computational  capabilities 
partially  developed  under  the  UUGM  program.  Use  of  unstructured  triangular  grids  again 
enables  detailed  description  of  the  plow  geometry  and  use  of  Direct  Dynamic  grid 
Adaptation  method  allows  detailed  simulation  of  the  complex  pattern  of  the  shock  wave 
reflections. 

In  Fig.  3.4.2  the  initial  stage  of  the  blast-plow  cross  section  interaction  is  shown  in 
the  form  of  pressure  contours  overlaid  on  the  dynamically  adapting  grids.  In  Fig.  3.4.3  a 
more  advanced  stage  of  the  blast-structure  interaction  is  shown  in  the  same  format  as  in 
Fig.  3.4.2.  The  adaptive  grid  allows  high  resolution  of  a  complex  blast  interaction 
phenomena. 

SAIC  has  also  simulated  the  structural  response  of  the  plow  to  the  dynamic  load 
that  is  defined  by  the  gas  dynamic  simulations  described  above.  In  Figs.  3  .4.4a  -  d  results 
are  shown  for  the  plow  deformation  in  response  to  dynamic  load.  Recent  experimental 
assessment  of  the  plow  damage  showed  that  SAIC  predictions  correctly  described  blast 
damage  to  the  plow. 
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a.  Predetonation  stage 


c.  Detonation  product  expansion 
Figure  3.5.1  Pulsed  detonation  engine  simulation;  flow  tracers 


3.5  PULSED  DETONATION  ENGINE 


The  main  objective  was  the  development  of  a  revolutionary  propulsion  concept 
based  on  int^Tnittent  detonative  combustion.  Development  of  this  concept  will  result  in  a 
new  class  of  engines  with  performance  surpassing  those  of  small  turbines  at  signific  ny 
reduced  cost.  SAIC's  PDE  research  was  noted  in  a  recent  article  [Aviation  '  -ejc, 
October  28,  1991,  pages  68-89],  The  PDE  is  currently  considered  as  a  candidate  c  ;acept 
for  numerous  propulsion  systems  including  the  air-to-air  missile,  cruise  missili;.  RPV 
engine,  high  altitude  UAVs  and  others. 

The  codes  developed  under  the  UUGM  program  have  enabled  SAIC  to  conduct  a 
detailed  study  of  the  PDE  concept.  The  unstructured  grids  used  in  the  simulations 
allowed  us  to  describe  the  complex  geometries  of  the  detonation  chamber  and  air  inlets  for 
a  iuU  missile  configuration.  Adaptive  gridding  allowed  efficient  and  accurate  simulation  of 
the  detonation  and  resulting  shock  waves  interacting  with  the  thrust-producing  surfaces  of 
the  engine. 

In  Fig.  3.5.1  results  are  shown  for  the  simulation  of  the  PDE  detonation  cycle  for  a 
Mach  2  missile.  Lagrangian  flow  tracers  are  used  to  track  air  and  fuel  trajectories  in  the 
engine.  The  figures  demonstrate  the  sequence  of  stages  in  one  PDE  cycle.  Shown  in  Figs. 
3.S.la-c  are  the  fuel  mixing  stage,  the  detonation  stage  and  the  detonation  products 
discharge  sts^e,  respectively.  Detailed  CFD  analysis  of  various  geometries  and  flow 
re^es  allowed  us  to  develop  an  understanding  of  the  parametric  dependence  of  the 
fundamental  variables  that  determine  the  PDE  performance. 

3.6  SHOCK  FOCUSING  IN  AIR 

Research  relating  to  focusing  of  shock  and  acoustic  waves  is  of  considerable 
practical  interest  for  application  to  extracorporeal  shock-wave  lithotripsy  (ESWL).  A 
schematic  of  the  cross  section  of  such  a  reflector  is  shown  in  Fig.  3.6.1.  Strong  acoustic 
waves  are  generated  in  the  lefl  focal  point  of  the  ellipsoid  by  an  instantaneous  release  of 
energy  and  are  refocused  at  the  right  focal  point.  Ideally,  focusing  should  be  based  on 
waves  of  acoustic  intensity,  since  the  nonlinear  reflections  of  strong  shock  waves  lead  to 
significant  distortions  in  wave  propagation  and  impair  simple  geometrical  focusing. 

figure  3.6.1  shows  the  computational  domain  and  grid  for  the  ellipsoidal  reflector. 
Figure  3.6.2  shows  the  simulation  results  at  time  t  =  1.21  x  10‘^sec.  At  this  stage,  the 
wave  front  that  propagated  to  the  left  has  undergone  full  reflection  and  the  reflected  wave 
propagates  in  the  direction  of  the  incident  wave  to  the  right.  Figure  3.6.3  shows  the 
pressure  contours  (t  =  8.41  x  lO'^^sec)  when  the  maximum  focused  pressure  is  obtained  in 
the  system.  The  incident  front  has  left  the  computational  domain,  and  the  maximum 
pressure  occurs  in  a  small  volume  in  the  vicinity  of  the  right  focal  point.  The  maximum 
focused  pressure  has  reached  1.37  x  10^  Pa  and  is  located  1 1  mm  to  the  right  of  the  focal 
point  of  the  ellipsoid.  In  all  the  figures  presented,  the  method  of  composite  domain 
decomposition  works  extremely  well,  producing  seamless  solutions  at  the  interfaces. 


Figure  3.6.1a  Hybrid  structured/unstiuctured  grid 
used  for  numerical  simulation  of  ellipsoidal  reflector. 


Figure  3.6.  lb  A  schematic  drawing  of  the  center  cross  section  of  the  ellipsoidal  reflector. 
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3.7  NONIDEAL  AIRBURST  IN  MULTIPHASE  MEDU 

The  main  objective  was  to  advance  the  understanding  of  the  formation  dynamics 
and  microphysics  of  the  multiphase  flow  of  clouds  developing  as  a  result  of  a  nuclear 
explosion.  A  main  difBculty  in  analysis  of  nuclear  cloud  formation  is  the  necessity  to  take 
into  account  physical  phenomena  that  are  interdependent  and  occur  on  vastly  different 
scales.  At  about  30  seconds  after  a  nuclear  detonation,  the  cloud  can  be  4  1cm  high  and 
the  shock  wave  will  be  at  the  distance  of  10  km.  The  multiphase  interaaions  that  occur 
on  a  scale  of  10-100  meters  are  very  important  and  have  to  be  accounted  for. 

SAIC  has  developed  a  multiphase,  multicomponent  version  of  the  AUGUST-2D 
code  developed  under  the  UUGM  program.  We  use  an  explicit  method  for  the  solution  of 
the  multiphase  flow  described  by  equivalent  Euler  equations,  and  an  implicit  integration 
for  simulation  of  the  particle-fluid  interactions.  The  grid  adaptivity  allows  efficient  and 
accurate  simulation  of  this  multiphase  phenomenon.  The  grid  adaptivity  is  used  for 
adjusting  the  spatial  scale  of  the  domain  decomposition  to  the  scale  required  for  accurate 
simulation  of  various  physical  interactions.  Other  code  improvements  such  as  introduction 
of  the  real-gas  equation  of  state  and  Lagrangian  particle  tracing  were  employed  to  enable 
simulations  and  analysis  of  this  complicated  phenomena. 

In  Fig.  3.7.1a  the  computational  domain  and  grid  are  shown  for  the  nuclear  cloud 
simulation.  In  tlus  figure  the  temperature  contours  are  overiaid  on  the  unstructured  grid. 
In  Fig.  3.7.1b  the  particle  density  contours  are  shown  for  the  same  stage  of  the  cloud 
evolution  as  in  Fig.  3.7.1a.  In  Fig.  3.7.1c  particle  radius  is  shown  for  the  same  stage  of 
the  cloud  evolution,  and  Fig.  3.7.  Id  shows  locations  of  the  Lagrangian  tracers  that  mark 
evolution  of  the  detonation  products. 

3.8  FLOW  IN  THE  SARL  WIND  TUNNEL 

One  of  the  problems  to  which  AUGUST  3D  has  been  applied  is  that  of  modeling 
the  SARL  wind  tunnel  at  Wright  Laboratory.  This  example  is  a  good  test  of  the  use  of  the 
Second-Order  Godunov  method  to  do  nearly  incompressible  flow  calculations.  To 
illustrate  the  results.  Fig.  3.8.1  shows  the  grid  used  for  simulating  the  flow.  The 
calculation  was  performed  by  specifying  the  inflow  and  outflow  parameters  and  running 
the  simulation  to  convergence.  The  run  was  performed  at  SAIC  on  the  Stardent 
workstation  and  repeated  on  an  Iris  at  FIMM.  Figures  3.8.2  and  3.8.3  show  the  pressure 
levels  in  the  tunnel.  The  results  were  visualized  using  A  VS. 

Figures  3.8.1  and  3.8.2  show  two  views  of  the  pressure  contours  generated  in  a 
calculation  of  subsonic  flow  (Mach  number  0.05).  The  results  were  confirmed  by 
comparison  with  those  obtained  using  a  code  with  a  structured  grid,  and  by  checking  them 
against  measurements. 
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Figure  3.8.1  The  unstructured  grid  used  to  simulate  the  SARL  wind  tunnel. 


Figure  3.8.2  The  pressure  contours  from  the  simulation  of  the  SARL  wind  tunnel. 
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3.9  SHOCK  ON  DOUBLE  WEDGE 


A  much  more  complicated  probiem,  which  has  been  extensively  studied  to 
benchmark  and  validate  Euler  solvers,  is  flow  over  a  double  wedge.  This  probiem 
contains  multiple  fluid  phenomena  and  is  a  stringent  test  for  any  solver.  It  includes  sh  r  ck 
formation,  a  Mach  stem,  rarefaction,  a  slip  line,  vortex  generation  and  rollup,  ana  is 
transient  in  nature.  To  validate  our  direct  dynamic  refinement  method  in  AUGUST,  we 
simulated  a  Mach  2.85  shock  wave  propagating  in  a  channel  and  impinging  on  a 
symmetric  45®  wedge,  and  also  a  Mach  8.7  shock  impinging  on  a  symmetric  27°  wedge. 

Both  of  these  compared  well  with  experimental  results.  Figure  3.9.1  shows  an 
interferogram  taken  from  Glaz  et  al.,*^  showing  the  M  =  8.7  shock  interacting  with  the 
front  surface  of  the  27°  wedge.  Our  results  are  shown  in  Figs.  3.9.2  -  3.9.4.  The  first  of 
these  illustrates  the  grid  and  density  when  the  shock  is  on  top  of  the  wedge.  The  shock  is 
well  resolved  and  the  grid  is  well  adapted  in  the  vicinity  of  important  features  and 
coarsened  in  the  region  that  the  shock  has  passed  through.  The  next  two  figures  show  the 
evolution  of  the  flow  and  the  grid  after  the  wedge  where  comparison  can  be  made  with  the 
experimental  results.  AUGUST  produces  no  artificial  features  and  recovers  the 
phenomenology  seen  in  the  experiment. 
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In  the  figures  showing  the  triangular  grids,  the  area  of  a  triangle  in  the  dense 
region  of  the  grid  is  roughly  100  times  smaller  than  the  area  of  a  triangle  in  the  initial  grid 
TTie  figures  show  that  the  grid  adaptivity  is  capable  of  capturing  the  flow  gradients 
including  shocks,  contact  discontinuities  and  slip  lines.  Formation  of  a  triple  point  of  the 
Mach  reflection,  slip  line  and  strong  vortex  formation  are  seen  in  Fig.  3.9.2a.  In  fairness, 
most  of  the  flow  phenomena  that  is  captured  by  AUGUST  have  also  been  captured  by 
other  CFD  schemes.  However,  the  accuracy  estimated  for  the  AUGUST  numerical 
calculations  in  this  example  is  on  the  order  of  4%,  equal  to  the  accuracy  of  the 
experimental  observations. 
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Figure  3  .9.2  Interaction  of  a  Mach  8.7  planar  shock  wave  with  a  27°  double  ramp:  Mach 

reflection  stage. 
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b.  Adaptive  grid,  46,462  vertices 

Figure  3.9.4  Interaction  of  Mach  8.7  planar  shock  wave  with  a  27°  double  ramp; 

shock  diffraction  stage. 
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3.10  SUPERSONIC  SPRAY  COATING  DEVICES 


In  this  section  we  present  the  results  of  an  application  of  the  UUGM  sim_  jn 
technology  to  a  sample  problem  involving  spray-coating  devices.  Here  we  only  trc  .le 
aerodynamic  flow  of  particles  in  a  high  temperature  gas  which  is  moving  supersr  iy: 

we  consider  a  reasonably  complex  geometry  including  a  simulated  surface  tha:  the 
substrate  to  be  coated.  The  details  of  the  surface  interaction  resulting  in  depos;  .  .i  are 
not  treated  in  this  example. 

In  Fig.  3.10.1  the  computational  domain  and  grid  are  shown  for  a  model 
supersonic  jet  sprayer  device  that  includes  reactor  nozzle,  solid  particle  injeaor,  and 
expansion  nozzle.  Also  shown  in  Figure  3.10.1  is  a  perforated  flat  surface  substrate 
placed  in  the  flow  field.  The  high-velocity  high-temperature  flow  stream  exiting  the 
reactor  nozzle  accelerates  the  injected  particles.  The  particles  are  heated  during 
acceleration,  melt,  then  expand  with  the  flow  in  the  nozzle,  gain  more  speed,  and  finally 
impinge  onto  the  surface.  Details  of  the  flow-surface  interaction  (here  without  boundary 
layers  taken  into  account)  will  strongly  affect  the  uniformity  with  which  the  surface  will  be 
"coated”  by  the  particles  carried  by  the  flow. 


Figure  3.10.1  The  figure  shows  the  initial  computational  grid  for  the  jet  spray  simulation 
demonstration.  Shown  are  the  nozzle,  injection  region  and  target  surface  depicted  as  a  flat 
plate  with  perforations,  oriented  perpendicular  to  the  mean  spray  flow.  The  boundary 
conditions  used  for  the  sample  simulation  were:  Vg  =  1000  m/sec,  pg  =  O.I  kg/m^,  Tg  =  • 

3500  K  at  the  inlet  of  the  reactor  nozzle;  Vg  =  1 500  m/sec,  pg  =  0.3  kg/m^,  Tg  =  1 500  K, 

Vp  =  1500  m/sec,  Tp  =  1 500  K,  Np  =  2000  at  the  inlet  of  the  reactor  nozzle. 
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To  trace  the  motion  of  the  particles  in  the  plasma  spray  device  and  the  interaction 
pattern  with  the  target  surface  we  have  injected  Lagrangian  "marker"  particles  (massless 
)  but  moving  with  the  local  flow  speed)  in  the  particle  injector  flow  stream.  In  Fig.  3. 10.2 

results  are  shown  in  the  form  of  marker  particle  locations.  To  monitor  the  particle 
temperatures  we  have  introduced  particle  coloring,  where  the  color  deflnes  the  local 
particle  temperature.  Thus  one  can  evaluate  the  evolution  of  the  particle  temperature  by 
observing  the  particle  color  transition.  This  coloring  scheme  can  be  used  to  show  other 
I  parameters  such  as  particle  residence  time  or  density.  This  represents  a  simple  method  of 

visualization  that  we  have  used  successfully  in  past  UUGM  simulations. 
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Figure  3. 10.2  Lagrangian  marker  particles  are  shown  in  color  representing  the  evolution 
of  injected  particle  temperature  as  a  function  of  particle  position  and  time  in  the  jet  spray 

stream. 

In  Fig.  3,10.3  simulation  results  for  the  steady  state  are  presented  in  the  form  of 
gas  temperature  contours  for  the  jet  spray  system.  Here  it  is  possible  to  observe  a  very 
large  temperature  variation  in  the  nozzle.  The  cold  gas  that  is  injected  with  the  particles 
remains  at  the  edge  of  the  jet  stream.  At  the  same  time  the  main  jet  cools  through  the 
expansion  in  the  nozzle  from  3500°K  to  2000°K,  and  then  undergoes  a  series  of 
expansions  and  compressions  in  the  system  of  shock  waves  created  by  overexpansion  of 
the  supersonic  jet.  Figure  3. 10.3  also  shows  a  nonuniform  temperature  distribution  on  the 
surface  that  is  partially  created  by  the  gas  flow  through  the  perforated  holes. 

In  Figs.  3.10.4  and  3. 10.5  simulation  results  are  shown  for  the  density  and  pressure 
contours.  Here  we  can  observe  the  formation  of  several  diamond-shaped  shock  structures 
as  a  result  of  supersonic  flow  over  expansion.  However,  for  the  flow  regimes  in  our 
simulation  these  shocks  do  not  lead  to  a  higher  rate  of  mixing  by  injected  cold  gas  with 
particles  and  the  main  hot  gas  stream  This  can  be  noticed  in  the  density  contours,  where 
one  clearly  observes  that  the  high-density  cold  gas  does  not  penetrate  the  main  hot  jet 
flow.  By  changing  the  condition  (injection  pressure,  angle  of  entry,  etc.)  of  the  injected 
flow  one  can  improve  mixing,  thus  achieving  higher  particle  temperatures  and  velocity 


47 


Figure  3. 10.5  Pressure  contours  in  the  jet  spray  stream.  The  diamond  patterns  show  that 
supersonic  flow  is  maintained  near  the  vicinity  of  the  target  surface 


3.11  DUSTY  FLOW  OVER  A  CYLINDER 


A  numerical  study  of  two-phase  compressible  flow  has  been  performed  for  the 
reflection  and  diffraction  of  a  shock  wave  propagating  over  a  semicircular  cylinder  in  a 
dusty  gas.  The  following  model  was  used  to  derive  the  governing  equations: 

(1)  The  gas  is  air  and  is  assumed  to  be  ideal; 

(2)  The  particles  do  not  undergo  a  phase  change  because  for  the  particles 
considered  here  (sand)  the  phase  transition  temperature  is  much  higher  than  the 
tempoatures  typical  for  the  simulated  cases; 

(3)  The  particles  are  solid  spheres  of  uniform  diameter  and  have  a  constam 
material  density; 

(4)  The  volume  occupied  by  the  particles  is  negligible; 

(5)  The  interaction  between  particles  can  be  ignored; 

(6)  The  only  force  acting  on  the  particles  is  drag  and  the  only  mechanism  for  heat 
transfer  between  the  two  phases  is  convection.  The  weight  of  the  solid  particles  and  their 
buoyant  force  are  negligibly  small  compared  to  the  drag  force; 

(7)  The  particles  have  a  constant  specific  heat  and  are  assumed  to  have  a  uniform 
temperature  distribution  inside  each  particle. 

Under  the  above  assumptions,  separate  equations  of  continuity,  momentum,  and 
energy  are  written  for  each  phase.  The  interaction  effects  between  the  two  phases  appear 
as  source  terms  on  the  right-hand  sides  of  the  governing  equations.  The  two  phases  are 
coupled  by  interactive  drag  force  and  heat  transfer. 

The  objectives  of  the  study  were  (a)  to  solve  the  two-phase  compressible  flow  field 
and  compare  the  simulation  with  available  experimental  results;  (b)  to  observe  and 
investigate  the  reflection  and  diffraction  wave  patterns  when  a  shock  wave  propagates 
over  a  semicircular  cylinder  in  a  dusty  gas,  with  particle  radius  and  loading  as  parameters. 

To  test  the  accuracy  of  the  two-dimensional  computation,  we  first  computed  the 
pure  gas  flow  case  of  shock  wave  reflection  and  diffraction  over  a  semicircular  cylinder. 
We  then  compared  the  simulation  with  experimental  results.  Shock  wave  reflection  on  a 
wedge  has  been  extensively  studied  by  many  researchers  (see  e.g.,  review  papers  of  Ben- 
Dor  and  Dewey  and  Homung.  As  one  can  see  from  Fig.  3.11.1,  the  results  show 
excellent  quantitative  and  qualitative  agreement  between  the  numerical  simulation  and 
experimental  results. 
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Figure  3.11.1  Comparison  for  M^  =  2.8  pure-gas  flow:  (a)  interferogram  from 
experiment;  (b)  density  contours  from  present  calculation. 

In  the  two-phase  simulation  a  planar  shock  with  Mg  =  2.8  propagates  into  an  area 
of  dusty  gas  and  impinges  on  a  semicircular  cylinder.  The  interface  between  pure  air  and 
dusty  air  is  located  at  x  =  0.0  of  the  computational  domain.  The  area  of  the  dusty  air 
contains  a  semicylinder  with  a  radius  of  Im.  The  size  of  the  computational  domain,  initial 
parameters  of  the  gas,  parameters  of  the  incoming  shock,  size  of  the  semicylinder  and  its 
location  in  the  computational  domain,  are  the  same  as  in  the  reflection  and  diffraction 
simulation  in  the  pure  gas  case.  The  main  objective  of  this  set  of  simulations  was  to  study 
the  effects  of  particle  size  and  particle  loading  on  the  parameters  of  the  reflected  and 
diffracted  shock  waves. 

The  first  set  of  simulation  results  is  shown  for  the  case  with  dust  parameters  rp  = 
10pm  and  Pp  =  0.25  kg/m^.  The  gas  parameters  and  the  parameters  of  the  incoming 
shock  wave  were  the  same  as  in  the  pure  gas  case  presented  above.  In  Figs.  3. 1 1 .2a  and 
3.11.2b,  the  particle  density  and  gas  density  contours  are  shown  at  the  stage  where 
significant  diffraction  has  taken  place  and  the  shock  front  is  approaching  the  trailing  edge 
of  the  cylinder.  To  study  the  influence  of  particle  loading  on  the  dynamics  of  reflection 
and  diffraction,  we  have  simulated  the  case  with  a  dust  density  of  pp  =  0.76  kg/m^.and 
with  rp  -  10pm.  To  examine  the  effect  of  particle  size  on  the  reflection-diffraction 
process,  we  simulated  a  case  where  the  particle  loading  and  gas  flow  conditions  were  the 
same  as  in  the  previous  case  with  particle  density  pp  =  0.76  kg/m^,  but  the  particle  size 
was  rp  =  50pm  (Fig.  3.11 .3). 

On  the  basis  of  these  calculatrions  we  reached  the  following  conclusions: 

(1)  For  a  two-dimensional  pure-gas  flow,  numerical  results  agree  well  with  existing 
experimental  data  qualitatively  and  quantitatively,  indicating  that  the  gas  phase  is 
accurately  simulated  by  the  adaptive  grid  technique. 
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Figure  3.1 1.2  Density  contours  for  the  case  Mg  =  2.8,  pp  =  0.25  kg/m^,  rp  =  10pm  at 
two  different  times;  (a)  particle  density  at  tj,  (b)  gas  density  at  t] ;  c)  particle  density  at  t2, 

(d)  gas  density  at  t2 


(1>)  (di 

Figure  3.11.3  Density  contours  for  the  case  =  2.8,  pp  =  0.76  kg/m^,  for  two  different 
particle  sizes:  (a)  particle  density  and  (b)  gas  density  for  rp  =  10pm;  c)  particle  density  and 

(d)  gas  density  for  rp  =  50pm, 
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(2)  Particles  in  the  gas  can  have  a  profound  effect  on  the  shock  wave  reflection 
and  diffraction  pattern,  which  is  a  function  of  particle  size  and  loading.  The  :  ss  the 
particle  loading,  the  less  the  influence  of  particle  on  the  flow  field; 

(3)  In  the  three  simulation  cases,  particles  accumulate  behind  the  "back  ulder" 
of  the  semicircular  cylinder  due  to  the  effect  of  particle  inertia  and  the  rarefaction  ave; 

(4)  For  different  particle  sizes  at  fixed  particle  loading,  the  larger  particle  will  have 
a  longer  relaxation  zone  and  less  accumulation  at  the  "back  shoulder"  ana  behind  the 
incident  shock.  The  gas  density  contours  show  a  less  distinguishable  slip  line  in  the  small 
particle  case  than  in  the  large  particle  case. 

3.12  IMAGE  PROCESSING 

Very  recently,  there  have  been  exploratoiy  efforts  in  image  processing  based  on 
nonlinear  methods.  If  the  purpose  of  an  enhancement  process  is  to  highlight  the  edges  of 
an  image,  then  the  technique  used  in  the  frequency  domain  is  usually  highpass  filtering. 
An  image  can  be  blurred,  however,  by  attenuating  the  high-frequency  component  of  its 
Fourier  transform.  Since  edges  and  other  abrupt  changes  in  the  gray  levels  are  associated 
with  high-frequency  components,  image  sharpening  can  be  achieved  in  the  frequency 
domain  by  a  highpass  filtering  process,  which  attenuates  the  low-frequency  without 
disturbing  high-frequency  information  in  the  Fourier  transform.  The  primary  problem  with 
this  technique  is  that  an  ideal  discontinuity  has  an  infinite  spectrum  of  frequencies 
associated  with  it.  When  filtering  is  applied,  some  frequencies  are  cut  off,  leading  to  a  loss 
of  edges  in  the  im^e. 

In  computational  fluid  dynamics  (CFD)  similar  problems  exist  in  simulating  flotvs 
with  discontinuities.  The  problem  of  simulating  flows  with  discontinuities  is  less  forgiving, 
since  an  incorrect  calculation  usually  leads  to  a  complete  distortion  of  the  flow  field.  This 
has  led  CFD  scientists  to  develop  sophisticated  algorithms  that  identify  and  preserve 
discontinuities  while  integrating  the  flow  field  in  the  computational  domain.  In  the  image 
domain,  sharpening  is  usually  done  by  differentiation.  The  most  commonly  used  methods 
involve  the  use  of  either  gradients  or  second  derivatives  of  the  pixel  information.  Central 
differencing  is  usually  used  to  calculate  the  derivatives.  CFD  research  has  shown  that  this 
strategy  will  lead  in  many  cases  to  smearing  of  the  flow  discontinuities  (analog  of  the 
image  edges  in  image  enhancement). 

A  new  and  unique  image  sharpening  method  based  on  computational  techniques 
developed  for  AUGUST  has  been  developed.  Preliminary  experience  shows  that  it  can 
eidtance  image  edges  and  deconvolve  images  with  random  noise.  This  indicates  a 
potential  application  for  image  deconvolution  from  sparse  and  noisy  data  resulting  from 
measurements  of  backscattered  laser-speckle  intensity. 
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The  Second-Order  Godunov  Method  used  in  AUGUST  was  developed  from  an 
understanding  of  the  phenomenology  of  signal  propagation  in  gasdynamical  systems.  The 
numerical  algorithm  implementing  this  method  is  not  aiudytical  and  contains  a  set  of  steps 
that  can  be  regarded  as  wave  filters.  These  filters  are  designed  to  not  smear  the 
discontinuity  (edge),  suppress  the  spurious  oscillations,  and  propt^e  the  relevant  signals 
through  the  system.  The  following  algorithmic  steps  are  performed  to  advance  the 
solution  for  a  single  iteration  in  the  Second-Order  Godunov  Method; 

1.  Local  Extrapolation 

2.  Monotonicity  Constraint 

3.  Characteristics  Constraint 

4.  Riemann  Problem  Solution 

5.  Integration 

Most  of  these  steps  have  an  analog  in  conventional  image  processing  methods. 
Here  we  will  give  an  explanation  of  the  fimction  of  each  algorithmic  step  of  the  Second- 
Order  Godunov  Method  and  where  applicable,  will  point  to  its  possible  analog  in 
conventional  signal  processing  techniques. 

Step  1  consists  of  extrapolation  of  the  values  in  the  computational  grid  (pixel)  cell 
to  the  edges  of  the  cell.  Linear  or  nonlinear  extrapolation  can  be  used.  This  step  is 
analogous  to  the  standard  edge-sharpening  techniques  used  in  image  processing,  with  one 
important  difference:  the  extrapolation  is  done  not  for  the  value  itself  but  for  its  fiux 
(change  of  value  across  cell  boundary). 

Step  2  includes  a  monotonicity  constraint  for  the  values  at  the  cell  edges.  This  is 
analogous  to  the  nonlinear  technique  of  locally  monotonic  regression  only  recently 
introduced  for  signal  processing. 

Step  3  subjects  the  values  at  the  edges  to  the  constraints  derived  from  a  solution  of 
the  one-dimensional  characteristics.  This  step  assures  that  the  values  at  the  edges  have 
not  been  extrapolated  from  directions  inconsistent  with  the  characteristic  solutions.  This 
prevents  extrapolation  as  well  as  smearing  or  overshoot  of  the  discontinuities.  For  the 
image-processing  application,  this  can  be  regarded  as  a  form  of  automatic  edge  detection 
step  where  the  shock  waves  are  associated  with  the  edges  of  an  image. 

Step  4  uses  an  exact  solution  of  the  system  of  the  gasdynamic  equations  for 
calculation  of  the  flux  values  based  on  the  extrapolated  values  of  the  parameters  at  the  left 
and  right  side  of  the  edges.  This  step  has  no  analogy  in  image  processing.  However,  since 
the  analytical  solution  includes  discontinuities,  an  exact  calculation  of  the  fiux  at  the  edge 
location  is  allowed,  even  if  this  flux  is  calculated  through  a  discontinuity. 
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Step  5  consists  of  finite-volume  integration  of  the  system  of  conservation  laws. 
Here,  the  image  is  effectively  treated  as  a  flow  field:  the  flux  integration  server  as  a 
smoothing  filter  firom  the  image  perspective. 

The  effect  of  these  steps  is  equivalent  to  the  application  of  a  unique  filte  stack 
with  proven  properties  of  discontinuity  preservation  and  robustness. 

The  field  of  gray  scale  intensity  of  an  image  can  be  translated  into  a  flow  ueld.  To 
every  im^e  pbcel  we  assign  to  the  corresponding  cell  of  the  computational  domain  values 
of  the  gasdynamical  parameters  proportional  to  the  values  of  the  gray  scale.  Our 
understanding  of  the  basic  gasdynamical  processes  plays  a  major  role  in  completing  the 
analogy.  Appropriate  mapping  of  the  image  gray  scale  intensity  into  a  flow  field  creates 
conditions  favorable  for  the  formation  or  enhancement  of  field  discontinuities.  For 
example,  a  shock  wave  reflecting  jfrom  a  wall  or  a  contact  sur&ce  can  increase  in  strength, 
or  two  colliding  flow  streams  will  produce  a  contact  surface  that  will  become  stronger  in 
time.  If  we  have  a  numerical  technique  to  resolve  these  discontinuities  accurately,  then 
with  successive  numerical  integration  of  the  flow  field,  the  discontinuities  will  sharpen  as 
the  solution  evolves  in  time.  Then  by  inverse  mapping  of  the  flow  field  to  the  image  gray 
scale  field,  we  can  reconstruct  an  enhanced  image. 


Figure  3. 12.1  Edge  enhancement  for  a  Figure  3. 12.2  Edge  enhancement  for  a 
sinusoidal  distribution  without  noise.  sinusoidal  distribution  with  10% 

intensity  random  noise. 
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Fig,  3.12.3  Edge  enhancement  for  a  Fig.  3.12.4  Edge  enhancement  for  a 

sinusoidal  distribution  with  50%  intensity  sinusoidal  distribution  with  100% 
random  noise.  intensity  random  noise. 

•  Applications  have  been  made  to  two-dimensional  images  derived  from  satellite 
reconnaissance  and  gamma-ray  medical  diagnostics  (see  Appendix  C).  Note  that  the 
images  shown  there  are  distorted  by  the  xerographic  process  used  to  reproduce  these 
illustrations,  which  also  act  as  a  nonlinear  filter  but  is  not  tuned  to  these  images. 

•  Analogous  extensions  of  nonlinear  CFD  techniques  can  be  used  for  image 
compression. 

3.13  DETONATION  IN  A  MULTIPHASE  MEDIUM 

•  In  this  study  the  main  subjects  were  the  initiation,  propagation,  and  structure  of 
detonations  occurring  when  combustible  particles  are  intentionally  or  unintentionally 
dispersed  into  the  air.  Formation  of  this  potentially  explosive  dust  environment  and  the 
properties  of  its  detonation  are  of  significant  practical  interest  in  view  of  its  destructive  or 
creative  effects.  Previous  experimental  and  theoretical  studies  of  these  phenomena 

0  addressed  only  homogeneous  particle/oxidizer  mixtures.  However,  intentional  or 

accidental  processes  of  the  explosive  dust  dispersion  always  lead  to  inhomogeneous 
particle  density  distribution. 
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On  the  other  hand,  some  industrial  methods  of  explosive  forming  rely  on 
detonation  of  explosive  powder.  This  powder  can  be  deposited  as  a  thin  layer  over  -  e 
surface  area  of  the  forming  metal,  with  a  residual  concentration  in  the  vicinity  of  the  la 


When  the  detonation  wave  is  generated  in  a  homogeneous  mixture  by  "  ct 
initiation,"  it  starts  with  a  strong  blast  wave  from  the  initiating  charge.  As  the  blast  .ve 
decays,  combustion  of  the  reactive  mixture  behind  its  shock  front  starts  to  have  a  rger 
role  in  support  of  the  shock  wave  motion.  When  the  initial  explosion  energy  ^  ceeds 
some  critical  value,  transition  to  steady  state  detonation  occurs.  In  explosiv.^  dust 
mixtures  with  a  nonuniform  particle  density,  the  initiation  dynamics  is  significantly  more 
complicated.  The  critical  initiation  energy  sufficient  for  one  of  the  explosive  particle 
density  regions  is  not  necessarily  adequate  for  other  regions.  We  have  demonstrated  that 
the  phenomenology  of  these  interactions  is  distinctly  different  from  the  classical  studies  of 
multilayer  detonations  in  gases.  This  is  primarily  because  the  energy  content  of  adjacent 
layers  in  a  typical  multigas  layer  experiment  varies  by  a  factor  of  two  or  four,  whereas  the 
energy  content  in  explosive  dust/air  mixtures  can  vary  by  several  orders  of  magnitude. 

At  present  the  physics  of  the  energy  release  mechanisms  in  solid  particles/air 
mixtures  is  not  clearly  understood.  This  can  be  attributed  to  the  obvious  difficulties  of 
making  a  direct  non-obtrusive  measurement  in  the  optically  thick  environment  typical  for 
this  system.  The  chemical  processes  of  single-particle  combustion,  which  mainly  occur  in 
the  gaseous  phase,  are  significantly  faster  than  the  physical  processes  of  particle 
gasification  or  disintegration.  Thus,  in  the  multiphase  mixtures,  the  rate  of  energy  release 
is  mostly  determined  by  physics  of  particle  disintegration.  It  is  very  difficult  to  describe 
the  details  of  particle  disintegration  in  the  complex  environment  prevalent  behind  the 
shock  or  detonation  wave.  Fortunately,  in  most  cases  of  multiphase  detonation,  only  the 
main  features  of  the  particle  disintegration  dynamics  need  to  be  captured  to  describe  the 
phenomena. 

In  this  work  we  considered  solid  particles  consisting  of  explosive  material.  Two- 
dimensional  simulations  were  done  for  the  system  of  low  particle  density  concentration 
clouds  and  ground  layers  formed  by  high  concentrations  of  the  RDX  powder.  We 
examined  three  cases  of  ground  layer  density  distribution:  a  fourth  power  distribution 
with  12  mm  above  ground  with  a  maximum  density  on  the  ground  of  800  kg/m^;  a 
uniform  25-mm  layer  with  a  density  of  100  kg/m^;  and  a  l2-mm  uniform  layer  with  a 
density  of  250  kg/m^.  In  all  these  cases,  the  weight  of  the  condensed  phase  per  unit  area 
was  the  same,  which  allowed  examination  of  the  effects  of  the  particle  density  distribution 
on  detonation  wave  parameters. 

Figure  3.13.1  shows  a  setup  for  a  typical  two-dimensional  simulation.  Here  the 
computational  domain  is  25cm  x  25cm.  The  explosive  powder  density  is  distributed 
according  to  the  4th  power  law  of  the  vertical  distance,  starting  from  the  ground  where 
the  density  is  800  kg/m^,  and  rising  to  1.2cm,  where  the  density  is  0  75  k^m^.  From  this 
point  to  25cm  height,  the  density  is  constant  and  equal  to  0  TSkg/my,  The  density 
distribution  is  uniform  in  the  x  direction. 
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Figure  3 . 1 3 . 1  Computational  domain  and  boundary  conditions. 

In  all  three  cases,  the  detonation  wave  in  the  cloud  in  the  computational  domain 
was  significantly  overdriven  and  did  not  play  an  important  role.  We  estimated  that  the 
self-sustained  regime  of  the  detonation  wave  in  the  cloud  for  the  examined  cloud 
concentrations  can  occur  only  at  the  distances  of  2-3m  above  ground.  At  the  same  time, 
the  particle  density  distribution  in  the  layer  determines  the  dynamics  of  the  detonation 
wave  as  well  as  the  pressure  on  the  ground. 

In  all  three  two-dimensional  simulations,  we  observed  a  very  distinctive  shape  of 
the  detonation  wave  front  in  the  vicinity  of  the  layer.  In  this  area,  the  overdriven 
detonation  in  the  cloud  is  preceding  the  detonation  wave  in  the  ground  layer.  This  feature 
of  the  detonation  froi't  can  be  explained  by  the  fact  that  the  energy  released  in  the  ground 
layer  detonation  wave  produces  a  faster  propagating  shock  wave  in  the  dilute  cloud  than 
in  the  ground  layer  which  is  heavily  loaded  with  solid  particles.  However,  these  structures 
were  not  observed  experimentally,  and  more  studies  are  needed  to  examine  their 
parameters. 
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Figure  3, 13.2  Explosive  initially  localized  in  2.5-cm  layer  at  constant  density  of  100 
kg/m^.  Density  in  the  cloud  is  0.75  kg/m^,  (a),  (b),  and  (c)  are  gas  pressure, 
gas  density,  and  particle  density  at  66  psec,  respectively. 
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4.  CONCLUSIONS 


The  AUGUST-2D  and  AUGUST-3D  adaptive  unstnictured  CFD  sim  .ation 
codes,  developed  under  SAIC's  UUGM  (through  a  contraa  form  ARPA's  Appli.  i  ar.a 
Computational  Mathematics  Program)  program  have  been  tested  through  the  r' 

standard  CFD  benchmaidc  test  cases  and  have  been  applied  to  a  wide  range  ot  ;c 

problems  for  a  variety  of  end-users.  In  most  cases  where  these  codes  have  bee^  app  .icd, 
significant  improvements  in  accuracy,  resolution,  and  ease  of  use  have  been  not^i.  '  se  of 
the  Second  Order  Godunov  flow  solver  algorithm  has  provided  a  robust  capability  :o  treat 
low  Mach  number  subsonic-to  high  Mach  number  hypersonic  flow  problems  within  one 
simulation  code  without  the  necessity  of  tuning  the  flow  solver  via  adjustable  parameters. 
In  addition,  the  extension  of  the  AUGUST  family  of  codes  to  treat  multiphase, 
multicomponent  reactive  flow  phenomena  provides  the  capability,  for  the  first  time,  of 
simulating  a  wide  variety  of  physically  interesting  and  challenging  problems  that  are  rich  in 
physics-chemical  phenomena.  The  range  of  these  problems  includes:  1)  full  3D  flows 
about  complex  aircraft  in  all  flight  regimes  (except  rarefied  flows),  2)  shock-body 
interactions,  3)  chemically  reacting  flows  typical  in  combustion  problems,  and  4) 
detonation  phenomena  found  in  explosives,  shock  tubes,  and  specific  applications  to  such 
devices  as  the  pulsed  detonation  engine. 

SAICs  UUGM  program  has  resulted  in  over  20  publications  in  various  stages  of 
preparation,  and  numerous  presentations  at  U.S.  and  international  technical  meetings, 
conferences,  and  workshops.  The  AUGUST  family  of  simulation  codes  is  presently  being 
applied  to  several  current  materials  development  and  synthesis  areas  of  research.  In 
particular,  the  ability  of  the  AUGUST  codes  to  capture  the  complex  geometry  of  material 
synthesis  reactor  configurations,  resolve  the  complex  flow  patterns,  and  treat  the  complex 
physics  and  chemistry  of  the  synthesis  process  provides  a  simulation  and  modeling  tool 
that  is  useful  for  design  of  such  process  reactors,  analyse  and  evaluate  experimental 
results,  and  (depending  on  successful  benchmarking)  provide  a  process  control  tool  based 
on  validated  models.  SAIC  intends  to  exploit  this  capability  in  future  programs. 

SAIC's  Applied  Physics  Operation,  Hydrodynamic  Modeling  Division  staff 
members  performed  the  work  under  the  DARPA  UUGM  program.  Dr.  Shmuel  Eidelman 
and  Dr.  Wiliam  Grossmann  were  co-program  managers.  Important  contributions  were 
made  by  Drs.  Itzhak  Lottati,  ^aolong  Yang,  Marty  Fritts,  Adam  Drobot,  Ahron 
Friedman,  and  Michael  Kress.  SAIC’s  UUGM  team  would  like  to  acknowledge  the 
support  and  interest  of  Dr.  James  Crowley  (ARPA  ACMP  program  manager),  Drs.  Lois 
Auslander  and  Helena  Wisniewski  (previously  DARPA  ACMP  program  managers),  and 
Dr.  Aije  Nachman  (AFOSR)  who  served  as  the  ARPA  agent  for  the  UUGM  program. 
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APPENDIX  A 
CODE  DESCRIPTION 

A.1  AUGUST  (2D) 

The  subroutines  in  the  AUGUST  code  are  organized  here  as  they  appear 
in  the  listing  in  Appendix  B.  A  brief  description  indicates  the  function 
performed  by  each  subroutine. 

TABLE  A.1 


2.  HTDRFL 


Governing  program  for  AUGUST.  Reads 
input  files  and  sets  the  mode  for  the 
computation. 


Computes  the  fluxes  at  interfaces  by 
applying  the  Godunov  algorithm  to  solve  the 
Riemann  problem  across  the  interface. 


Controls  the  computation.  The  Integration 
of  the  flioxes  and  update  of  the  physical 
variables,  adaptation  of  the  grid  and  writing 
to  output  files  are  performed  in  this 
subroutine. 


Csdculates  the  geometrical  quantities  not 
provided  by  the  input  data  file  but  needed 
for  the  computational  algorithm.  GEOMTR 
is  only  used  once  for  starting  a  new 
simulation. 


Reads  the  input  file  for  a  new  simulation 
and  calls  GEOMTR  to  update  the  geo¬ 
metrical  variables  needed  to  perform  the 
computation. 


6.  UPGRAD 

Called  if  a  restart  run  is  performed.  Will 
read  the  appropriate  file  written  at  the  end 
of  the  previous  run. 

7.  GRADNT 

Computes  the  gradient  of  the  physical 
variables  to  improve  the  prediction  of  those 
variables  for  the  two  sides  of  the  interface. 
The  gradients  are  subjected  to  the 
monotonicity  condition  that  limits  the 
projected  values,  thus  preventing  new 
maxima- minima  from  being  caused 
artificially  by  interpolation  (lOPORD  =  2). 
Calls  FCHAKT  in  order  to  compute  projected 
values  at  the  half  timestep  associated  with 
the  local  characteristics  of  the  flow. 

8.  GKDFLX 

Computes  the  gradient  of  the  pressure  and 
Mach  number  in  each  ceil.  This  information 

is  used  as  an  error  indicator  for  the 
adaptation  needed  in  a  steady  state 
solution. 

9.  FIRST 

The  equivalent  of  GRADNT  if  run  in  a  first 
order  mode  (lOPORD  =  1).  Using  FIRST 
assumes  that  the  physical  variables  are 
constant  in  each  cell.  Takes  care  of  the 
boundary  conditions  if  the  interface  is  a 
boundary. 

10.  FCHART 

Computes  the  projected  values  at  a  half 
timestep  for  the  two  sides  of  the  interface 
based  on  the  local  characteristics  of  the 
flow.  Called  by  GRADNT.  it  modifies  the 
projected  values  for  the  two  sides  of  the 
Interface  and  assigns  them  to  the  correct 
location  in  memory.  Takes  care  of  the 
boundary  conditions  if  the  interface  is  a 
boundary. 

11.  PRLCTN 

Determines  particle  cell  location  in  the 
initial  phase  of  tracing  a  group  of  particles. 

12.  PRPTHC 

Advances  the  position  of  each  particle, 
assuming  that  the  particle  has  the  flow 
velocity  of  the  cell.  PRPTHC  will  find  the  cell 
location  of  the  particle  after  it  advances  by 
the  timestep  of  the  computation. 

13.  VERCEN 

Places  an  additional  vertex  at  the  center  of  a 
specified  cell  to  refine  the  size  of  the  cell  by 
a  factor  of  three. 

14.  DISECT 

Places  an  additional  vertex  at  the  middle  of 
a  specified  edge  to  refine  the  size  of  the  two 
cells  adjacent  to  the  edge  by  a  factor  of  two. 
This  method  of  refinement  is  used  only  on 
the  edges  lying  on  the  boundaries  of  the 
computational  domain. 

15.  DTNPTN 

Tests  and  flags  the  cells  for  specified 
refinement  criteria.  DYNPTN  is  called  only  if 
the  parameter  lOPADD  =  1.  Will  start  the 
refinement  procedure  by  calling  VERCEN 
and  DISECT  and  will  call  DYYPTN  for 

further  refinement.  This  insures  that  the 

buffer  zone  ahead  of  the  shock  is  resolved 
according  to  the  specified  area  criteria 
(AREADD). 

16.  DYYPTN 

Refines  the  cells  flagged  by  DYNPTN  by 
calling  VERCEN  and  DISECT  until  the  area 
of  each  flagged  cell  meets  the  area  criteria 
specified  by  the  parameter  AREADD. 
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17.  INTPTN 

Refines  the  cells  in  the  inlet  region. 
Prepares  the  inlet  region  for  the  introduction 
of  a  shock  wave.  This  initial  refinement  is 
essential  to  prevent  additional  refinement  of 
the  grid  in  the  presence  of  a  shock  wave.  It 
is  called  only  if  the  parameters  ICOND=0 
and  IOPTN=  2  (solution  for  transient 
phenomena). 

18.  DELPTN 

Tests  and  flags  the  ceils  for  the  specified 
criteria  for  coarsening.  DELPTN  is  called 
only  If  parameter  lOPDEL  =  1. 

19.  RELAXY 

Relaxes  the  vertices  of  the  cells  that  were 
created  in  the  process  of  deleting  a  vertex. 

20.  VERDEL 

Deletes  a  specified  vertex. 

21.  RECNC 

Tests  two  cells  adjacent  to  the  specified 
edge.  Compares  them  to  the  two  cells  that 
can  be  created  if  this  edge  is  flipped  to  pass 
between  the  other  two  vertices  of  the 
quadrilateral  containing  the  original  two 
cells.  If  the  tests  result  in  a  better  quality 
triangle,  then  RECNC  will  swap  the  edge. 

22.  EOS 

Applies  Gilmore  equation  of  state  to 
compute  y  =  cp/cv.  giving  the  internal  energy 
and  density  of  the  fluid  in  a  cell.  This 
option  is  controlled  by  the  parameter 
lOPEOS  =  1. 

23.  UFTDR 

A  diagnostic  to  compute  the  lift.  drag,  and 
transfer  momentum  developed  in  the 
configuration.  Takes  into  account  all 
boundary  edges  that  are  specified  as  5.  It  is 
controlled  by  the  parameter  lOPLFT  =  1. 
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THE  MAIN  PROGRAM 


All  of  the  data  input  and  Initiation  of  a  run  (or  a  restart  run)  is  performed 
in  MAIN.  The  actual  simulation  is  controlled  by  HYDRMN,  which  is  called  from 
MAIN.  At  the  completion  of  a  run,  control  is  returned  to  MAIN  and  a  successful 
termination  prints  the  message  STOP  777. 

MAIN  contains  one  name  list  (file  no.  2)  and  requires  an  input  file  that 
contains  tne  grid  data  description  (file  no.  16).  The  data  organization  for  the 
grid  file  is  described  in  Appendix  A.  There  are  five  files  that  should  be 
Included:  CINTOO.H,  CMSHOO.H,  CPHSIO.H.  CPHS20.H,  CHYDOO.H. 


rAMELtST/DATf; 

'  „  '  y"  nv::-; 


tCOND 
XMCHIN 
HRGG. 
NDUMP 
lOPRCN 
^  lOPEOS 
tOPDEL 
JSTATC'^ 


ICONP'  ITRIGR 
RIN  PIN 
IHRN  ..  NTIME.. 
KDUMP  lOSPCE 
lOPORO  lOPBYM 
MPRTCL  lOPINr 
AREADD  AREDEL 


lOPTN 

ALFA 

MDUMP 

lOPLFT 

iAXSYM 

10PAD0 

IWINOW 


VARIABLE 


PURPOSE 


ICOND 


=  0  READ  INPUT  GRID  FOR  A  NEW  SIMULATION 
=  1  READ  THE  GRID  FROM  PREVIOUS  RUN 


ICOND  =  0; 


ICOND  =  1: 


MAIN  will  read  the  initial  grid  definition  stored  in  file 
number  16.  The  current  setting  is  to  read  the  inpui  :le  as 
provided  by  Smart,  a  two  dimensional  trianguli..  grid 
generator  that  runs  interactively  on  the  Macintosh  p  .'sonal 
computer. 

MAIN  will  call  UPDATE,  which  will  call  CZOMTR. 
GEOMTR  will  compute  essential  geometrical  parameters  that 
are  not  provided  by  file  16.  All  geometrical  information  is 
dumped  into  output  files  (8  and  88)  so  that  ICOND=0  is  used 
only  once  at  the  beginning  of  a  new  simulation. 

MAIN  will  call  UPGRAD.  which  will  call  one  of  the 
output  files  (8  or  88)  written  by  the  previous  run.  This  will 
load  the  geometrical  definition  of  the  grid  (either  8  or  88 — 
they  are  identical).  Writing  identical  files  provides  a  backup 
in  the  event  that  the  job  terminates  for  lack  of  time  while  in 
the  process  of  writing  to  one  of  those  output  files. 


VARIABLE 

PURPOSE 

ICONP 

=  0  PRIMITIVE  VARIABLES  INITIALIZED 
=  1  VARIABLES  READ  FROM  PREVIOUS  RUN 

ICONPssO; 


ICONP  =  1: 


Initialize  the  primitive  variables  in  computational 
domain  with  an  initial  value  specified  by  the  user.  The  two 
options  set  by  the  code  are  controlled  by  lOPTN.  • 

The  flow  field  condition  reads  in  files  8  or  88  and 
provides  a  followup  run  set  from  the  previous  run. 
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VARIABLE 


PURPOSE 


rmiGR 

=  0  USING  THE  INPUT  GRID  AS  THE  INITIAL 

GRID 

=  1  THE  INPUT  GRID  TRIPLED  BY  ADDING  AN 

EXTRA  VERTEX  IN  EACH  TRIANGLE 

The  original  grid  cells  will  be  tripled  by  adding  an  extra 
vertex  in  the  baricenter  of  each  triangle.  This  option  can  be 
triggered  at  the  beginning  of  a  simulation  only  (ICOND  =  0). 

P 


VARIABLE 

PURPOSE 

lOPTN 

=  1  SOLUTION  FOR  STEADY  STATE 
=  2  SOLUTION  FOR  TRANSIENT  PHENOMENA 

Thert  are  two  choices  available  to  set  the  initial  condition  of  the  problem. 
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Assign  the  conditions  at  the  inlet  to  the  computational 
domain.  This  is  the  fastest  way  to  get  a  steady  state  solution 
for  the  conditions  specified  at  the  inlet.  In  this  option.  PIN 
(pressure),  RIN  (density)  and  XMCHIN  (Mach  number;  are 
assigned  to  the  pressure  density  and  velocity  (the  spe  d  of 
sound  is  computed  in  the  code)  and  imposed  at  th  inlet 
boundaries. 


Used  if  a  shock  wave  is  to  be  simulated  moving  from 
the  inlet  (edge  boundary  8)  to  the  outlet  (edge  boundary  7). 
For  this  setting,  specify  PIN  (ambient  pressure  in  the 
chamber).  RIN  (ambient  density  in  the  chamber)  and 
XMCHIN  (upstream  Mach  number).  The  code  will  use  the 
normal  shock  wave  relations  for  an  adiabatic  flow  of  a 
completely  perfect  fluid  to  compute  the  static-pressure  ratio 
across  the  shock  P2/P1  and  the  density  ratio  P2/P1.  and  the 
ratio  of  the  Mach  number  across  the  shock  M2/M1.  These 
computed  quantities  are  applied  to  set  correctly  the 
condition  on  the  pressure  density  and  velocity  at  the  inlet 
boundary. 


VARIABLE 

PURPOSE 

ALPHA 

THE  DIRECTION  OF  INFLOW  IN  DEGREES  RELATIVE  TO 

A  RIGHT  HAND  COORDINATE  SYSTEM.  ALPHA  =  0 

MEANS  FLOW  FROM  LEFT  TO  RIGHT. 
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The  velocity  computed  by  the  code  according  to  the  Input  data  provided  by  the 
user  Is  split  (projected)  In  the  X  and  Y  directions  by  using  a. 


VARIABLE 

PURPOSE 

HRGG 

INITIAL  Y  IN  THE  EQUATION  OF  STATE. 

THE  CODE  RUNS  USING  THE  IDEAL  EQUATION  OF 
STATE  AS  A  BASEUNE  AND  SHOULD  BE  MODIFIED 
IF  SOMETHING  ELSE  IS  DESIRED.  IOPEOS=l  WILL 
TRIGGER  THE  USE  OF  GILMORE  EQUATION  OF 
STATE.  1 

VARIABLE 

PURPOSE 

IHRN 

NUMBER  OF  ITERATIONS  IN  THE  RIEMANN 

SOLVER  TO  FIND  THE  DIAPHRAGM  SOLUTION. 
(THREE  TO  FOUR  SHOULD  BE  USED  AND 
INCREASED  ONLY  FOR  A  VERY  HIGH  MACH 
NUMBER  CASES.) 

VARIABLE 

PURPOSE 

NTIME 

NUMBER  OF  REPEATS  FOR  THE  INTEGRATION/ 
REFINEMENT/COARSENING  SEQUENCE.  AN 
OUTPUT  DUMP  IS  DONE  FOR  EVERY  SEQUENCE 
REPEAT. 
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VARIABLE 


PURPOSE 


MDUMP  NUMBER  OF  OUTERMOST  LOOP  ITERATIONS  IN 

THE  CALCULATION  WHERE  COARSENING  OF  THE 
GRID  IS  PERFORMED  EVERY  SEQUENCE  REPEAT. 


VARIABLE 

PURPOSE 

NDUMP 

NUMBER  OF  OUTER  LOOP  ITERATIONS  IN  THE 
CALCULATION  WHERE  REFINING  IS  DONE  FOR 
EVERY  SEQUENCE  REPEAT  WITHOUT 

COARSENING. 

VARIABLE 

PURPOSE 

KDUMP 

NUMBER  OF  ITERATIONS  PERFORMED  WITH  NO 
REFINEMENT  OR  COARSENING.  THE  INNER  LOOP 
OF  THE  CALCULATION.  IF  KDUMP  =  0.  KDUMP 

WILL  BE  SET  BY  THE  CODE  AUTOMATI-CALLY 
ACCORDING  TO  THE  SETTING  OF  THE  VARIABLE 
AREADD. 
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1 

- O  NTIME  -  DUBIPING  DATA 

1 

- O  MDUMP  -  COARSENING 

• 

1  1 

"  1 

- O  NDUMP  -  REFINEMENT 

;  1  !  _ _ 

1  1  1  I 

O  KrrtIMP  -  INTEGRATION 

• 

i  i  ,  I 

ill 
ill 
III 
III 
11,1 

1  1  !  1 

• 

"1 

III 

III 

*  1  !  j _ 

1  1  ■ 

O  CLOSING  INNER  LOOP 

•  :  ' 

1  1 

- O  CLOSING  OUTER  LOOP 

1  1 

1 

O  CLOSING  OUTERMOST  LOOP 

1 

- O  CLOSING  DUMPING  LOOP 

• 

VARIABLE 

PURPOSE 

lOSPCL 

=  0  NOT  USING  REDEHNrnON  OF  POINTS  ON 

w 

THE  BOUNDARY 

=  1  USING  REDEFINITION  OF  POINTS  ON  THE 

BOUNDARY 

Modifies  tlie  definition  of  points  along  the  boundary 
according  to  a  presetting  in  the  code.  The  setting  currently 
will  redefine  the  points  along  the  edge  boundary  5  to  exactly 
match  NACA0012  airfoil  shape.  This  is  done  to  redefine 
points  on  a  boundary  that  has  an  analytical  definition  of 
points,  but  where  these  points  have  been  dislocated  by  a 
refining  procedure. 
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VARIABLE 

PURPOSE 

lOPLFT 

=  0  THE  COMPUTATION  OF  LIFT  DRAG  AND 
MOMENT  TURNED  OFF 
-  1  THE  COMPUTATION  OF  LIFT  DRAG  AND 
MOMENT  TURNED  ON 

i 

Set  lOPLFT  =  1  If  integral  quantities  need  to  be  computed.  The  current  setting 
will  calculate  the  lift,  drag  and  moment  on  edge  boundary  5. 


VARIABLE 

PURPOSE 

lOPRCN 

=  0  A  GLOBAL  SWAPPING  (RECONNECTION) 
PROCEDURE  IS  OFF 

=  1  A  GLOBAL  SWAPPING  (RECONNECTION) 
PROCEDURE  IS  ON 

This  swapping  is  done  by  calling  subroutine  RECNC.  It  is  used  only  in  a  new 
simulation  (ICOND  =*  0). 


VARIABLE 

PURPOSE 

lOPORD 

=  1  THE  CODE  WILL  RUN  FIRST  ORDER 

GODUNOV  METHOD 

=  2  THE  CODE  WILL  RUN  SECOND  ORDER 
GODUNOV  METHOD 

Subroutine  FIRST  is  called. 


Subroutine  GRADNT  is  called. 


i 


VARIABLE 

PURPOSE 

lOP"  {N 

=  0  NO  BUOYANCY  EFFECTS  ARE  COMPUTED 
=  1  BUOYANCY  EFFECTS  IN  THE  X  DIRECTION 

ARE  COMPUTED 

=  2  BUOYANCY  EFFECTS  IN  THE  Y  DIRECTION 

ARE  COMPUTED 
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The  buoyancy  effect  applies  the  gravity  acceleration  as  g  =  9.81. 


VARIABLE 

PURPOSE 

lAXSYM 

=  0  THE  CODE  WILL  RUN  IN  A  PURE  TWO 
DIMENSIONAL  MODEL 

1  THE  CODE  WILL  RUN  IN  AN  AXISYMMET- 
RICAL  MODE  (X  AS  THE  AXIS  OF  SYMMETRY) 

=  2  THE  CODE  WILL  RUN  IN  AN  AXISYMMET- 

RICAL  MODE  (Y  AS  THE  AXIS  OF  SYMMETRY) 

VARIABLE 

PURPOSE 

lOPEOS 

=  0  THE  CODE  WILL  RUN  WITH  CONSTANT  y 

=  1  THE  CODE  WILL  RUN  WITH  VARIABLE  y 

USING  THE  EQUATION  OF  STATE  FOR  AIR 

The  Initial  y  Is  not  changed  and  Is  kept  constant  across 
the  computational  domain  at  all  times  (with  value  set  by 
HRGG). 


The  yof  each  cell  will  be  modified  according  to  local 
internal  energy  and  density.  Thus,  if  lOPEOS  =  1.  the  actual 
pressure  and  density  should  be  input  (in  the  appropriate 
dimension).  Otherwise  (IOPEOS=0).  a  normalized  pressure 
and  density  of  unity  can  be  used  for  simulation. 


VARIABLE 

PURPOSE 

MPRTCL 

=  0  NO  PARTICLE  TRACING 
=  1  THE  CODE  WILL  TRACE  PARTICLES 
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The  ability  to  trace  particles  will  be  turned  on.  Initially 
PRLCTN  is  called  to  identify  the  cell  location  of  each  particle. 
For  each  time  step,  PRFTHC  will  be  called  to  update  the  cell 
location  of  each  particle  if  it  is  relocated,  assuming  the 
particle  moves  at  the  same  velocity  as  the  fluid. 


The  initial  location  of  the  particles  is  defined  in  MAIN. 
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VARIABLE 

PURPOSE 

lOPINT 

=  0  DOES  NOT  PREPARE  A  BUFFER  ZONE. 

=  1  INITIALLY  PREPARE  A  BUFFER  ZONE  AHEAD 

OF  EDGE  BOUNDARY  8 

For  simulating  transient  phenomena,  the  refining  of  the  grid  is  done  in 
the  region  ahead  of  the  shock.  In  this  way,  we  avoid  interpolating  in  a  region 
where  large  gradients  reside.  lOPINT  «  1  will  refine  the  region  of  the  inlet  flow 
to  prepare  a  buffer  zone  (edge  boundary  8).  If  refining  is  needed  in  another 
region,  subroutine  INTFTN  should  be  modified  accordingly. 


VARIABLE 

PURPOSE 

lOPADD 

=  0  THE  REFINEMENT  PROCEDURE  IS  TURNED  OFF 
=  1  THE  REFINEMENT  PROCEDURE  IS  TURNED  ON 

VARIABLE 

PURPOSE 

lOPDEL 

=  0  THE  COARSENING  PROCEDURE  IS  TURNED  OFF 
=  1  THE  COARSENING  PROCEDURE  IS  TURNED  ON 
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VARIABLE 

PURPOSE 

AREADD 

SPECIFIES  THE  MINIMUM  AREA  VALUE  THAT  A 
TRIANGLE  SHOULD  HAVE  AFTER  REFINEMENT. 
SPECIHED  AS  A  FRACTION  OF  THE  AVERAGE 
TRIANGLE  AREA  OF  THE  INITIAL  GRID.  THIS 
REFERENCE  AREA  IS  KEPT  CONSTANT  THROUGH 

THE  WHOLE  SIMULATION. 

VARIABLE 

PURPOSE 

AREDEL 

SPECIFIES  THE  MAXIMUM  VALUE  THAT  A  TRIANGLE 
SHOULD  HAVE  AFTER  COARSENING  DEFINED  AS  A 
FRACTION  OF  THE  REFERENCE  AREA. 

VARIABLE 

PURPOSE 

IWINDW 

a  0  NO  RESTRICTION  ON  THE  REGION  FOR 

REHNING  THE  GRID 

a  1  SETHNG  A  WINDOW  FOR  REHNING  THE  GRID 

The  user  can  specify  a  region  in  which  the  refinement 
process  will  take  place.  Otherwise,  the  refinement  takes 
place  everywhere  in  the  computational  domain. 


VARIABLE 

PURPOSE 

ISTATC 

a  0  THE  ADAPTATION  WILL  BE  DONE  ON  A 
MOVING  WAVE 

a  1  THE  ADAPTATION  WILL  BE  DONE  ON  A 
STEADY  STATE  CONDITION 

Because  the  criteria  for  refinement  in  the  presence  of  a  static  shock  are 
not  suited  to  treating  a  moving  shock,  the  code  sets  different  error  indicators 
for  adapting  the  grid  for  the  two  cases. 


The  energy  and  density  net  fluxes  across  each  ceil  are 
tested  for  sensing  the  level  of  activity.  This  method  is  a  very 
good  error  indicator  for  sensing  transient  phenomena  as 
traveling  shocks. 


The  pressure  and  Mach  gradients  in  each  cell  aure 
tested  for  sensing  steady  state  shocks. 


The  gradient  of  density  is  always  tested  as  a  third  criteria  for  making 
sure  that  static  shocks  are  not  ignored  in  computing  a  transient  flow. 


Computes  the  fluxes  across  interfaces  when  the  conditions  for  both  sides 
are  given.  The  fluxes  are  computed  assuming  a  shock  solution  at  a  broken 
diaphragm  simulated  by  the  presence  of  the  interface.  The  conditions  existing 
on  the  two  sides  of  the  diaphragm  will  define  the  condition  of  the  flow  at  the 
diaphragm  location.  These  conditions  are  computed  by  solving  the  Riemann 
problem  using  the  Godunov  algorithm.  Ihe  condition  at  the  diaphragm  defines 
the  flux  of  energy,  mass,  and  momentum  passing  across  the  interface.  The 
Euler  conservation  law  is  applied  to  conserve  energy,  mass,  and  momentum 
crossing  interfaces  from  one  cell  to  the  other. 


Quantity 

Side  1 

Diaphragm  (Interface) 

Side  2 

Density 

Pi 

P 

P2 

Pressure 

Pi 

P 

P2 

Velocity 

Perpendi  aar  to 
Interfac 

ui 

u 

U2 

Velocib  arallel 
to  Inter  _ce 

VI 

V 

V2 

Velocib  arallel 
to  Inter  _ce 


VI 


Controls  the  code  and  the  iteration  loops.  It  calls  HYDRFL  to  find  the 
interface  fluxes.  These  fluxes  are  integrated  to  update  the  physical  variables  in 
each  cell.  If  adaptation  of  the  grid  is  required,  HYDRMN  will  set  the  criteria  for 
controlling  the  adaptation  of  the  grid.  The  refining  (DYNPTN,  DYYPTN)  and 
coarsening  (DELPTN)  of  the  grid  Is  Invoked  by  HYDRMN.  HYDRMN  also 
controls  the  output  by  writing  the  necessary  information  on  files  for  post 
processing  data  and  for  restarting  the  AUGUST  code  at  a  later  time.  It  also 
manages  print  file  diagnostics. 


Calculates  geometrical  variables  that  are  not  supplied  by  the  input  data 
and  are  needed  to  run  the  code.  For  example,  it  will  compute: 


1)  Area  of  the  cells; 

2)  Length  of  the  edges; 

3)  Unit  vector  perpendicular  to  the  edge.  (For  boundary  edges,  this 
unit  vector  is  direct  from  the  computational  domain  outward); 

4)  Unit  vector  directed  from  the  baricenter  of  the  left  cell  to  the 
baricenter  of  the  right  cell.  For  boundary  edges,  the  unit  vector  is 
perpendicular  to  the  edge  (from  left  cell  outward). 

The  code  will  change  the  direction  of  the  boundary  edges  so  that  all  are 
arranged  counterclockwise  and  the  associated  computational  cell  is  always  on 
the  left  side.  GEOMTR  is  called  once  in  the  beginning  of  a  new  simulation. 


Called  in  the  beginning  of  a  new  simulation  for  setting  geometrical 
variables  not  prorided  by  the  input  data.  (It  calls  GEOMTR.) 
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Called  If  the  run  is  a  restart.  UPGRAD  will  read  the  appropriate  file 
(either  8  or  88)  dumped  by  the  previous  run. 


Compute  the  gradients  of  the  physical  variables  in  each  cell.  These 
computed  gradients,  along  with  the  physical  values  at  the  baricenters,  are 
applied  using  linear  interpolation  to  predict  the  values  on  the  interface. 

The  computed  gradients  are  subjected  to  the  monotonicity  condition, 
ensuring  that  the  projected  values  are  bounded  by  the  value  of  each  quality  in 
the  three  adjacent  cells,  and  to  make  sure  that  no  new  maxima  or  minima 
occurs.  The  projection  of  quantities  to  the  interface  improves  the  results  from 
the  code  and  provides  second  order  accuracy  in  space. 

GRADNT  calls  FCHART,  which  computes  the  projected  values  at  the 
interfaces  at  the  half  timestep  level  according  to  the  local  characteristics  of  the 
flow  in  each  cell  bordering  the  interface  ceU.  The  assignment  of  values  at  the 
two  sides  of  each  interface  is  done  at  the  end  of  FCHART.  This  same  loop  will 
also  impose  the  boundary  conditions  for  the  interfaces  at  the  boundaries  of  the 
computational  domain. 


Computes  the  gradient  of  the  Mach  value  and  pressure  gradient  in  each 
cell.  These  gradients  are  applied  if  the  adaptation  is  done  on  a  steady  state 
converged  solution.  These  variables,  in  addition  to  the  computed  density 
gradient,  provide  the  criteria  for  adaptation  if  it  is  necessary  to  refine  the  grid 
for  steady  state  problems. 


Assigns  flow  quantities  to  each  side  of  an  edge.  These  are  based  on  the 
values  at  the  baricenter  of  the  triangles  on  either  side  of  the  edge.  FIRST  uses 
a  first  order  approximation  to  find  the  values  at  the  edge. 

The  user  can  specify  FIRST  or  GRADNT  by  choosing  1  or  2  for  the 
parameter  lOPORD. 
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Called  by  GRADNT  to  compute  the  values  projected  at  the  interfaces  at 
the  half  tlmestep.  These  calculations  are  done  by  appljdng  the  local  velocity 
characteristics  in  each  cell.  This  projection  in  time  improves  the  results  and 
makes  the  code  second  order  accurate  in  time. 


Identifies  the  initial  cell  location  of  each  particle.  Called  once  after 
speciiylr  .g  the  starting  location  of  each  particle  to  be  traced. 


Advances  the  particle  position  by  the  marching  tlmestep.  It  finds  the 
new  cell  location  if  a  particle  crosses  an  interface.  The  assumption  is  that  the 
particles  move  at  the  fluid  velocity. 


Introduces  a 


new  vertex  at  the 


baricenter  of  the  designated  cell  during  the  refinement  process. 


Introduces  a  new  vertex  at  the  middle  of  a  designated  edge. 


Tests  the  cells  according  to  the  refining  criteria  and  flags  each  cell  which 
requires  refinement.  The  flagged  cells  are  refined  in  DYYPTN.  The  refinement 
is  subjected  to  geometrical  constraints  on  the  cell  shape  to  retain  a  high  better 
quality  refined  grid. 

The  user  can  specify  a  window  in  the  computational  domain  for 
refinement.  The  parameter  to  trigger  this  option  is  IWINDW  =  1.  For 
specifying  the  actual  window,  it  may  be  necessary  foi  the  user  to  alter  this 
subroutine  and  provide  a  definition  of  the  geometrical  area  to  be  refined. 


Traces  the  cells  that  are  flagged  for  refinement  by  DYNPTN.  It  subdivides 
them  imtil  each  one  of  the  refined  cells  meets  the  area  refinement  criteria  of 
AREADD.  Because  each  loop  of  refinement  is  restricted  +o  a  one-third 
reduction  in  cell  area  (calling  VERCEN),  DYYPTN  will  perform  the  necessary 
number  of  loops  to  meet  the  area  reduction  specified  for  refinement.  AREADD 
is  a  fraction  of  the  average  area  of  the  initial  grid.  This  reference  area  is  kept 
constant  and  fixes  the  minimum  resolution  in  the  simulation  domain. 


Performs  the  initial  refinement  of  the  grid  before  the  initialization.  The 
assumption  is  that  a  shock  wave  is  introduced  through  the  inlet  boundary. 
Consequently,  iPTN  will  test  for  the  inflow  boundary  interface  and  will  refine 
the  appropriate  cells.  (Note:  It  is  not  recommended  that  the  code  automatically 
refine  the  grid  in  the  inlet  region  in  the  presence  of  a  shock  wave.  If  a  shock 
wave  is  not  introduced  through  the  inlet.  INTPTN  should  be  modified  to 
accommodate  the  change  of  the  initial  condition.) 


Tests  the  cells  according  to  coarsening  criteria  and  flags  them.  Each 
triangle  is  tested  to  determine  which  vertex  of  the  triangle  is  most  appropriate 
for  removal.  This  vertex  is  removed  by  calling  VERDEL.  DELPTN  cannot  delete 
nodes  that  have  the  status  JV(1,IV)  =  3.  It  is  therefore  recommended  that 
nodes  at  sharp  comers  or  nodes  on  important  boundaries  that  are  curved,  be 
flagged  as  JV(1,IV)  =  3. 


Relaxes  the  cells  that  are  created  in  the  process  of  deleting  a  vertex.  The 
relaxation  procedure  relocates  the  designated  vertex  to  the  mass  center  of  the 
surrounding  vertices. 
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Computes  the  Laplacian  of  the  pressure  and  density. 


Deletes  a  designated  vertex. 


Tests  the  possibility  of  swapping  the  designated  interface  to  create  two 
triangles  of  better  quality  than  the  original  two. 


IV2 


IV4 


Swapped 
^  Interface 


Computes  y  using  to  the  equation  of  state  for  air  (Gilmore  equation  of 
state),  given  the  density  and  internal  energy  of  the  air.  The  user  may  choose  to 
apply  the  equation  of  state  by  setting  lOPEOS  =  1. 


Computes  integral  quantity  diagnostics  on  any  configuration.  The 
integral  quantities  are  lift.  drag,  and  momentum  and  are  found  on  boundary 
interfaces  designated  as  5. 


Computes  the  gradient  of  a  scalar  variable  at  the  center  of  a  cell.  It  uses 
a  least  squares  technique  to  interpolate  the  values  at  the  center  of  four 
triangles  (the  cell  and  its  three  adjacent  triangles)  to  fit  (four  equations  with 
three  unknowns). 


f  =  ao  +  aix  +  a2y 


Those  gradients  are  subjected  to  a  monotonicity  limiter  that  ensures  no  new 
minima  or  maxima  are  produced  artificially  in  the  projected  values  at  the 
interfaces. 

The  monotonicity  algorithm  involves  the  following  steps 


1) 

2) 

compute 

Afmax  =  Anax  “ 

^mln  =  fmln  ~  fl 

3) 

compute  incremental  projected  values  at  the 
Interfaces 

fmjR  -  fR  =  ^fR  •  rjR 
fmjL  -  •  rjL 

AfmjR  =  fmjR  “  ^R  =  ^fR  ■  rjR 
AfmJL  =  ^mJL  -  '  i]L 

where  j  stands  for  every  interface  of  the  cell  and  fmj  is  the  interpolated  value  at 
the  middle  of  the  interface. 


4}  compute  the  limiter  by  calculating  the  minimum  of  indicator  for 

each  edge  of  the  three  edges  of  the  cell. 

right  to  the  interface  RUVPR  =  ^fets)Afmin 

2  AfmjR 

left  to  the  interface  RUVPL  =  (1  +  sign  hf^tU  AW  til'  ^‘gn  AfaiiJAW 

2  AfjnjL 


This  formulation  ensures  that 


if 


Afmj  >  0  RUVP  = 
Afmj  <  0  RUVP  = 


Af, 


max 


Afmj 

Afmin 

AfmJ 


the  outcome  of  RUVP  is  always  positive.  If  RUVP  >  1  then  the  projected  value 
at  the  interfaces  will  introduce  a  new  minimum  or  maximum  relati*--'  to  the 
values  at  the  baricenters  of  the  appropriate  cells. 

Select  the  minimum  between  the  six  values  for  RUVP  (two  for  e^'5ry  one 
of  the  three  interfaces  of  the  cell)  not  exceeding  unity.  The  selected  minimum 
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of  RUVP  is  the  required  limiter.  The  gradient  is  multiplied  by  this  limiter  that 
is  always  less  or  equal  to  unity. 


Computes  the  projected  values  at  the  half  time  step  level  based  on  the 
local  characteristics  of  the  flow.  This  process  extends  the  accuracy  of  the  code 
to  be  second-order  in  time  as  well  as  in  space. 

The  characteristic  projection  consists  of  several  steps. 

1)  Calculate  the  velocity  of  sound  in  the  two  cells  bordering  the 
designated  interface 


CNLEFT  =  "VTL  •  Pl/pl  sound  speed  in  left  cell 


CNRIGT  =  VtR  •  Pr/PR  sound  speed  in  right  cell 


l^VLEFT  =  Ul  •  t  velocity  of  fluid  at  the  left  cell  projected  in  t  direction 
UVRIGT  =!  Ur  •  t  velocity  of  fluid  at  the  right  cell  projected  in  t  direction 


where 


t  =XXN-  i  +  YYN- j 


U  =  U-  i +V  j 


2)  To  compute  the  interpolated  left  and  right  projected  values  at  time 
t^  +  At/2,  we  calculate  the  distances  that  the  disturbances 
generated  from  the  barlcenter  of  the  cells,  traveling  toward  the 
Interface: 

ZZLEFT  =  (UVLEFT  +  CNLEFT)  •  At/2 
ZZRIGT  =  -  (UVRIGT  -  CNRIGTl  •  At/2 
If  ZZLEFT  or  72B1GT  is  negative  they  are  reset  to  zero. 

3)  Calculate  the  distances  that  the  flow  will  travel  if  it  were  to  flow  at 
the  velocity  of  each  of  the  local  characteristics: 

ZOLEFT  =  UVLEFT  •  At/2 

ZORIGT  =  -  UVRIGT  •  At/2 
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ZPLEFT  =  (UVLEFT  +  CNLEFT)  •  At/2 


ZPRIGT  =  -  (UVRIGT  +  CNRIGT)  ■  At/2 

ZMLEFT  =  (UVLEFT  -  CNLEFT  ■  At/2 

ZMRIGT  =  -  (UVRIGT  -  CNRIGT  ■  At/2. 

4)  Calciilate  the  projected  values  of  the  nonconservative  variables 
(density,  velocity  component  (perpendicular  and  tangential  to  the 
interface),  and  pressure). 


For  the  left  cell: 


Density 

HRRL 

=  Pl  +  VpL  •  (tl  -  ZZLEFT  •  t) 

Perpendicular  Velocity 

HUUL 

=  Ul  +  VUl  -  (Fl  -  ZZLEFT  ■  t ) 
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Tangential  Velocity 

HWL 

Vl  +  Wl  •  (Fl  -  ZZLEFT  ■  t) 

Pressure 

HPPL 

ss 

Pl+ VPl  -  (Fl- ZZLEFT  t) 

gmtlft 

= 

PL-  HRRL  ■  HPPL 

For  the  right  cell: 

Density 

HRRR 

s 

PR  +  VpR  •  (Fr  -  ZZRIGT  t) 

Perpendicular  velocity 

HUUR 

= 

Ur  +  VUr  •  (Fr  -  ZZRIGT  •  t) 

Tangential  velocity 

HWR 

= 

Vr  +  Wr  •  (Fr  -  ZZRIGT  •  t) 

Pressure 

HPPR 

Pr+  VPr-  (Fr  -  ZZRIGT  •  t) 

gmtrgt 

= 

PR  •  HRRR  •  HPPR 

For  the  left  cell,  taking  into  account  the  following  characteristics: 

•  For  UVLEFT  +  CNLEFT: 

UUU  =  VUl  •  (ZPLEFT  -  ZZLEFT)  t 

PPP  =  VPl  •  (ZPLEFT  -  ZZLEFT)  t 

UPLFT  =  -  0.5  •  (uUU  +  PPP/  VGMTLFt)  /  VGMTLFT 

If  UVLEFT  +  CNLEFT  is  negative,  UPLFT  is  reset  to  zero. 

•  For  UVLEFT  -  CNLEFT: 

UUU  =  VUl  •  (ZMLEFT  -ZZLEFT)  •  t 

PPP  =  VPl  •  (ZMLEFT  -  ZZLEFT)  ■  t 

UM  -T  =  0.5  •  (UUU  -  PPP/VGMTLFT  )  /  Vgmtlft 

il  l  LEFT  -  CNLEIT'  is  negative,  UPLFT  is  reset  to  zero. 
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•  ForUVLEFT: 


PPP  =  VPl  •  (ZOLEFT  -  ZZLEFn  •  t 

RRRR  =  PL  +  VpL  ■  (tl  -  ZOLEFT)  •  t 

URLFT  =  PPP/GMTUFT+ 1/HRRL- 1/RRRR 
If  UVLEFT  is  negative,  URLEFT  is  reset  to  zero. 

For  the  right  cell,  taking  into  accoimt  the  following  characteristics: 

•  For  UVRIGT  +  CNRIGT; 

UUU  =  VUr  •  (ZZRIGT  -  ZPRIGT)  t 

PPP  VPr  •  (ZZRIGT  -  ZPRIGT)  t 

UPRGT  =  -  0.5  •  (uUU  +  PPP/  VGMTRGT  )  /VgMTRGT” 

If  UVRIGT  +  CNRIGT  is  positive,  UMRGT  Is  reset  to  zero. 

•  For  UVRIGT  -  CNRIGT: 

UUU  =  VUr-  (ZZRIGT  -  ZMRIGT)  •  t 

PPP  =  VPr  •  (ZZRIGT  -  ZMRIGT)  •  t 

UMRGT  =  0.5  •  (uUU  -  PPP/VGMTRGT  )  /VGMTRGT" 

If  UVRIGT  -  CNRIGT  is  positive.  UMRGT  is  reset  to  zero. 

•  For  UVRIGT: 

PPP  =  VPr  .  (ZZRIGT  -  ZORIGT)  •  t 

RRRR  =  PR  +  VpR  •  (tr  +  ZORIGT)  •  t 

URRGT  =  PPP/GMTRGT+ 1/HRRR- 1/RRRR 

If  UVRIGT  -  CNRIGT  is  positive,  URRGT  is  reset  to  zero. 


29 


The  projected  values  will  be: 


RRL  =  l/(l/HRm.-(UPUT'  +  UMIJT  +  URLFT)) 
UUL  =  HUUL  +  (UPLFT  -  UMLFT)  VGMTLFT 
WL  =  IIWL  +  (UPLFT  -  UMLFT)  VgMTLFT 
PPL  =  HPPL  +  (UPLFT  +  UMLFT)  GMTLFT 
RRR  =  1/(1/HRRR-(UPRGT  +  UMRGT+URRGT)) 
UUR  =  HUUR  +  (UPRGT  -  UMRGT)  VGMTRGT 
WR  =  HWR  +  (UPRGT  -  UMRGT)  VGMTRGT 
PPR  =  HPPR  +  (UPRGT  +  UMRGT)  •  GMTRGT. 


Those  values  are  the  assigned  condition  for  the  two  sides  of  the  interface. 
If  the  interface  is  a  boundary,  the  right  condition  is  determined  according  to 
the  type  of  boundary. 


DYNPTN  applies  three  distinct  criteria  to  test  cells  to  determine  their 
need  for  refinement.  They  are  as  follows: 

For  unsteady  dymamic  simulation 

1)  total  energy  flux  entering  or  leaving  a  cell 

2)  total  density  flux  entering  or  leaving  a  cell 

3)  density  gradient  in  each  cell. 

For  steady  state  simulation 

1)  Pressure  gradient  in  each  cell 

2)  Mach  number  gradient  in  each  cell 

3)  density  gradient  in  each  cell. 

Cells  that  meet  one  of  those  three  criteria  are  flagged,  and  are  actually 
subdivided  in  DYYPTN  until  they  meet  the  area  criteria  set  for  refinement 
(AREADD).  The  code  will  compute  the  maximum  of  each  of  the  three  criteria 
and  set  a  5%  of  the  maximum  or  higher  to  the  refinement  criteria  for  the  fluxes 
and  3%  for  the  gradient.  These  criteria  work  extremely  well  for  moving  waves. 
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It  should  be  noted  that  those  error  indicators  and  their  levels  are  set 
according  to  the  actual  simulated  condition.  For  different  cases,  other  error 
indicators  and  level  settings  might  be  more  appropriate  than  the  above. 


a 


Tests  the  cells  for  coarsening  criteria.  The  same  criteria  that  refines  the 
grid  are  applied  to  coarsen  the  grid  but  in  a  different  setting.  Each  cell  that 
has  less  than  5%  of  the  fluxes  and  less  than  3%  of  the  gradient  criteria  is 
eligible  for  coarsening.  The  code  will  test  the  cell  flagged  for  coarsening  and 
will  choose  one  of  the  three  vertices  of  the  cell  for  deletion  by  determining 
which  of  the  three  has  the  smallest  aspect  ratio.  (The  aspect  ratio  is  defined  as 
the  ratio  between  the  height  emerging  from  the  node  and  its  corresponding 
base.)  There  are  vertices  that  cannot  be  removed,  such  as  comers  or  vertices 
that  preserve  the  original  shape  of  th boundaries  (JV(1,IV)  »  3). 

After  the  vertex  is  deleted,  a  relaxing  procedure  is  performed  on  the 
vertices  surrounding  the  deleted  vertex,  as  well  as  a  swapping  procedure  to 
improve  the  quality  of  the  triangles  constructed  in  the  deletion  procedure. 


Adds  an  additional  vertex  at  the  baricenter  oi  the  designated  cell. 


VERCEN  assigns  one  of  the  three  new  triangles  the  number  of  the 
original  triangle  and  will  add  two  more  at  the  end  of  cells  table.  A  new  vertex 
plus  three  new  interfaces  are  added  at  the  end  of  the  associated  tables. 


DISECT  will  add  one  new  vertex,  three  new  edges  and  two  new  triangles, 
all  of  which  are  added  at  the  end  of  the  corresponding  tables  (vertices,  edges 
and  ceils). 


Forces  deletion  of  a  designated  vertex.  There  are  two  types  of  vertices: 
deletion  of  a  vertex  in  the  interior  of  the  computational  domain  and  deletion  of 
a  vertex  on  the  boundary.  Tbe  steps  of  deleting  a  vertex  are: 

1)  Identify  the  edges  and  cells  surroimding  the  designated  vertex  in 
the  computational  domain 


Interior  Vertex  to  be  Deleted 
V3 


and  on  the  boundary. 
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Deletion  is  more  difBcxilt  and  needs  more  computational  resources  than 
addition.  The  new  vertices  edges  and  cells  being  added  are  stacked  at  the 
bottom  of  the  corresponding  tables  while  undergoing  deletion  is  always  a 
member  in  the  table.  In  order  not  to  leave  gaps  in  the  table,  a  more 
complicated  procedure  was  developed  to  replace  the  deleted  member  by  the 
member  at  the  bottom  of  the  table. 

2)  Once  the  vertex,  edges  and  cells  Joining  the  designated  vertex  are 
deleted  we  rezone  the  void  (polygon)  without  adding  new  vertices. 
The  adding  of  the  new  edges  and  cells  are  stacking  at  the  end  of 
the  corresponding  tables. 
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3)  A  relaxation  procedure  is  performed  on  the  vertices  of  the 
polygon  (void).  This  procedure  improve  the  quality  of  the  cells  that 
flu  the  void. 


4)  A  swap  procedure  is  performed  on  the  new  edges  that  were 
added  in  the  process  of  filling  the  void. 


A.  1.1  Pre-Processor  for  the  Unstructured  Grid 

The  input  geometrical  data  for  AUGUST  should  provide  the  -Uowing 

data: 

1)  Number  of: 

vertices  (NV) 
flagged  vertices  (NVM) 
edges  (NE) 
cells  (NS) 

2)  A  table  of  vertices  specifying: 

number  of  vertex  (IV) 

X  coordinate  (XV(1,IV)) 
y  coordinate  pCV(2,rV)). 

3)  A  table  of  flagged  vertices  that  cannot  be  removed  by  the 
coarsening  process: 

number  of  vertex  (IV) 
status  of  vertex  (JV(1,  IV)) 

The  only  status  of  vertex  that  is  currently  implemented  is 
the  flagging  node  that  does  not  allow  removal: 

JV(1.IV)=3 

4)  A  table  of  edges  specifying: 

number  of  edges  (IE) 

vertex  number  indicating  the  beginning  of  the 
edge  (JE(l.IE)) 

vertex  number  indicating  the  end  of  the  dge 
(JE(2.IE)) 

cell  number  indicating  the  cell  at  the  len 
the  edge  (JE{3.IE)) 

cell  number  indicating  the  cell  at  the  righ  ' 
the  edge  (JE(4.IE)) 

number  associated  with  the  status  of  the  .  -ge 
(JE(5,IE)) 
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If  JE(5,IE)s=0,  t±ie  edge  is  an  ordinary  edge  inside  the 
computational  domain. 

If  JE(5,IE)5<:0,  the  edge  lies  on  the  boundary  of  the  domain. 
The  labeling  number  will  indicate  what  type  of  boundary  to 
be  applied  through  this  edge. 


IVl  =  JE(l.lE)  vertex  indicating  the  beginning  of 
the  edge 

IV2  =  JE(2,IE)  vertex  indicating  the  end  of  the 
edge 

The  direction  of  the  edge  is  defined  from  IV 1  to  1V2. 
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ISL=  JE(3,IE)  left  triangle 

ISR*  JE(4.IE)  right  triangle 


IJE5  =  JE(5.IE) 

IJE5=  5 
IJE5=  6 
IJE5=  7 
IJE5=  8 


status  of  the  edge 

simulating  wall  conditions 
simulating  wall  conditions 
simulating  supersonic  outlet  conditions 
simulating  supersonic  inlet  conditions 


5)  A  table  of  cells  specifying: 

number  of  cells  (IS) 
number  of  first  edge  (JS(4JS)) 
number  of  second  edge  (JS(5,IS)) 
number  of  third  edge  (JS(6,IS)) 


The  sign  of  JS(4,IS),  JS(5,IS),  JS(6,IS)  Indicates  whether  the 
direction  of  the  edge  is  counterclockwise  (positive)  or 
clockwise  (negative). 

The  three  associated  vertices  for  the  triangle  JS(l.IS), 
JS(2,IS),  JS(3,IS)  are  defined  by  the  code  hi  GEOMTR. 


IV3 


IV2 
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The  three  vertices  of  the  cell  are  ordered  in  a  counterclockwise 
arrangement. 


IVl  =  JS(l.IS) 

first  vertex 

IV2  =  JS(2.IS) 

second  vertex 

IV3  =  JS(3.IS) 

third  vertex 

lEl  =  JS(4.IS) 

First  edge  of  the  triange  directed  from  IVl  to  IV2 
(lEl  is  positive). 

IE2  =  JSfS.IS) 

Second  edge  directed  originally  from  IV3  to  IV2. 
(IE2  will  be  negative  because  its  direction  is 
clockwise) 

IE3  =  JS(6.IS) 

Third  edge  directed  originally  from  IV3  to  IVl  (IE3 
is  positive) 

A. 1. 2  Post-Processor  for  the  Unstructured  Grid 

Postprocessing  for  visualization  of  the  results  on  an  unstructured  grid  is 
done  in  two  different  codes.  The  first  code,  DRAWBF,  reads  the  data  as 
dumped  by  AUGUST  and  performs  the  whole  load  of  computation  necessary  to 
produce  the  information  needed  for  the  graphic. 

The  second  code  DRAWAF  reads  the  data  file  written  by  DRAWBF  and 
uses  the  DISSPLA  software  to  produce  the  image  on  the  screen.  Breaking  the 
postprocessing  job  into  two  separate  codes  enables  the  user  to  run  the  two 
codes  on  different  machines. 


Reads  an  input  data  file  produced  by  AUGUST  and  will  read  another 
input  data  file  (drawbf.d)  specifying  the  option  that  the  user  chooses  to  have 
processed. 

The  input  data  file  drawbf.d  specifies  the  window  of  the  computational 
domain  chosen  by  the  user  to  be  processed.  This  window  is  specified  by  XMIN. 
XMAX.  DX  and  YMIN.  YMAX,  DY.  where  XMIN.  XMAX.  YMIN.  YMAX.  will 
specify  the  lower  and  upper  limit  of  the  region  to  be  drawn.  DX  and  DY  will  be 
parameters  for  DISSPLA  to  subdivide  the  axis  into  tick  marks. 


DISSPLA  Is  constrained  to  seven  colors.  To  extend  the  number  of 
contour  levels,  the  code  can  be  set  to  draw  a  couple  of  levels  in  each  color  (7  x 
NL£V  where  NUBV  is  the  number  of  levels  for  each  color). 

The  user  should  specify  the  variable  he  wants  to  draw: 

IHYD  =  1  is  density, 

=  2  is  velocity  in  the  x  direction 
=  3  is  velocity  In  the  y  direction 
=  4  Is  pressure 
a  5  is  gamma 
s  6  Is  Mach  number 
=5  7  is  entropy 

s  8  is  a  vector  plot  of  the  velocity  field 
s  9  is  a  plot  of  the  location  of  particles 

The  last  parameter  that  the  user  should  specify  is  IREC.  IREC  specifies 
how  many  dumps  are  in  the  input  file  produced  by  AUGUST.  If  IREC=0,  the 
user  will  get  as  many  figures  as  the  number  of  dumps  produced  by  AUGUST. 
Otherwise,  the  user  wlU  get  the  figure  corresponding  to  IREC  specified  in  the 
input  file. 

Subroutine  NEXTREC  reads  a  whole  dump  from  the  input  file  (written  by 
AUGUST).  It  will  make  sure  that  the  allocation  of  memory  is  adequate 
according  to  the  number  of  vertices,  edges  and  triangles  to  be  processed.  If  the 
memory  allocation  is  not  adequate,  the  code  will  stop  with  an  explanatory 
message. 

Subroutine  LOADF  loads  the  portion  of  data  needed  according  to  the 
specification  of  the  window  and  according  to  the  specified  IHYD  into  the 
appropriate  matrices  in  the  code. 

Subroutine  PHYDR  produces  the  data  for  the  contour  plots. 

Subroutine  VECTOR  produces  the  data  for  the  vector  plot  of  the  velocity 

field. 

Subroutine  TRACER  produces  the  data  for  the  location  of  particles. 


zyimmr. 


DRAWAF  reads  an  input  data  file  (drawbf.k)  produced  by  DRAWBF  and 
another  input  file  (drawaf.d)  that  specifies  the  format  chosen  for  display. 
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The  parameters 'Specified  in  drawaf.d  are: 


No  grid  is  drawn. 


Grid  is  drawn. 


A  single  finme  is  drawn. 


Two  frames  are  drawn,  one  for  the  grid  and  one  for 
displaying  results.  The  frame  for  the  grid  is  drawn  even  if 
IFMESH=0.  but  in  this  case  the  frame  will  stay  empty. 


Identical  with  IOPTN=l  except  the  level  on  the  bar 
chart  Is  written  in  engineering  format  (XE+Y).  As  in  the 
former,  it  is  written  keeping  a  four  decimal  digit. 


•  The  basic  dimension  for  the  frames  is  specified  as  6.0 

X  3.0  inches  (in  the  x  and  y  axis,  respectively).  The  code 
makes  sure  that  the  proportionality  of  the  frame  matches  the 
physiczd  window  to  be  drawn,  so  that  the  figure  will  not  be 

•  distorted.  This  is  done  by  redefining  the  x  or  y  dimension  of 

the  frame  accordingly,  but  not  to  exceed  the  6.0  x  3.0  on  the 
screen  (ICONFG=0  should  be  picked  if  lOPTON  >  0  and  a 
two-frame  drawing  is  desired). 


The  same  as  ICONFGsO  except  that  the  basic 
dimensions  are  defined  now  as  6.0  x  6.0  inches.  This  option 
should  be  specified  if  a  one  frame  drawing  is  desired. 
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The  user  can  specify  a  header  for  the  drawing 
composed  of  two  lines  to  be  specified  as  Caption  1  and 
Caption  2  In  the  input  file. 


The  standard  drawing  includes  the  number  of  vertices,  edges  and  ceils  as 
well  as  the  Mach  number,  lift,  drag,  moment,  angle  of  attack  (for  drawing 
diagnostics  for  a  wing  profile).  An  indication  of  the  nature  of  the  results  that 
appear  on  the  drawing  is  also  included,  i.e.,  the  physical  variables  drawn  are 
identified  by  the  parameter  passing  from  DRAWBF. 

It  should  be  noted  that  the  format  of  the  output  drawing  is  very  easily 
redesigned  to  meet  the  needs  of  an  individual  user. 


1.  Read  geometrical  data  defining  the  initial  grid.  The  current  format  is  set 
to  read  data  file  from  Smart  (two  dimension  grid  generator). 

2.  Read  geometrical  data  defining  the  grid  read  firom  a  file  dumped  by  a 
previous  run  of  the  code. 

3.  Initialize  the  phjrsical  variables  according  to  lOPTN  (either  steady  state  or 
moving  shock  wave).  If  a  different  initial  setting  Is  needed,  it  should 
replace  the  current  setting. 

4.  Read  the  physical  variables  from  a  file  dumped  by  a  previous  run. 

A.2  AUGUSTT(3D) 

The  subroutines  in  the  AUGUSTT  code  are  organized  here  as  they  appear 
in  the  listing  in  Appendix  B.  A  brief  description  indicates  the  function 
performed  by  each  subroutine. 

TABLE  A.2. 1 


The  subroutines  in  the  AUGUST  code  are  organized  here  as  they  appear 
in  the  listing  in  Appendix  B.  A  brief  description  indicates  the  function 
performed  by  each  subroutine. 
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1.  MAIN 


Governing  program  for  AUGUST.  Reads 
input  files  and  sets  the  mode  for  the 
computation. 


2,  HYDRFL 

Computes  the  fluxes  at  interfaces  by 
appl3dng  the  Godunov  algorithm  to  solve  the 
Riemann  problem  across  the  interface. 

3.  HYDRMN 

Controls  the  computation.  The  integration 
of  the  fluxes  and  update  of  the  physical 
variables  and  writing  to  output  files  are 
performed  in  this  subroutine. 

4.  GEOMTR 

Calculates  the  geometrical  quantities  not 
provided  by  the  input  data  file  but  needed 
for  the  computational  algorithm.  GEOMTR 
is  only  used  once  for  starting  a  new 
simulation. 

5.  UPDATE 

Reads  the  input  file  for  a  new  simulation 
and  calls  GEOMTR  to  update  the  geo¬ 
metrical  variables  needed  to  perform  the 
computation. 

6.  UPGRAD 

Called  if  a  restart  run  is  performed.  Will 
read  the  appropriate  file  written  at  the  end 
of  the  previous  run. 

7.  GRADNT 


Computes  the  gradient  of  the  physical 
variables  to  improve  the  prediction  of  those 
variables  for  the  two  sides  of  the  interface. 
The  gradients  are  subjected  to  the 
monotonicity  condition  that  limits  the 
projected  values,  thus  preventing  new 
maxim  a-minima  to  be  caused  artificially  by 
interpolation  (lOPORD  =  2).  Calls  FCHAKT 
in  order  to  compute  projected  values  at  the 
half  timescep  associated  with  the  local 
characteristics  of  the  flow. 


8.  FIRST 

The  equivalent  of  GRADNT  if  run  in  a  first 
order  mode  (lOPORD  =1).  Using  FIRST 
assumes  that  the  physical  variables  are 
constant  in  each  cell.  Takes  care  of  the 
boundary  conditions  if  the  interface  is  a 
boundary. 

9.  FCHAKT 

Computes  the  projected  values  at  a  half 
timestep  for  the  two  sides  of  the  interface 
based  on  the  local  characteristics  of  the 
flow.  Called  by  GRADNT,  it  modifies  the 
projected  values  for  the  two  sides  of  the 
Interface  and  assigns  them  to  the  correct 
location  in  memory.  Takes  care  of  the 
boundary  conditions  if  the  interface  is  a 
boundary. 

The  MAIN:  Ffo^am 


All  of :  le  data  input  and  initiation  of  a  run  (or  a  restart  run)  is  performed 
in  MAIN.  '■  le  actual  simulation  is  controlled  by  HYDRMN,  which  is  called  from 
MAI-  A*  -le  completion  of  a  run.  control  is  returned  to  MAIN  and  a  successful 
tenr— aat  i  prints  the  message  STOP  777. 

M.  N  contains  one  name  list  (file  no.  2)  and  requires  an  input  file  that 
contains  ne  grid  data  description  (file  no.  16).  The  data  organization  for  the 
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grid  file  is  described  in  Appendix  A.  The  following  files  should  be  included; 
DMSHOO.H,  DPHS(|)O.H.  DHYDOO.H. 


NAMEUST/DATA 

ICOND 

ICONP 

lOPTN 

XMCHIN 

RIN 

FIN 

ALFA 

HRGG 

IHRN 

NTIME 

KDUMF 

lOPORD  1 

VARIABLE 

PURPOSE 

ICOND 

=  0  READ  INPUT  GRID  FORA  NEW  SIMULATION 
=  1  READ  THE  GRID  FROM  PREVIOUS  RUN 

MAIN  Will  read  the  initial  grid  definition  stored  in  file 
number  16.  The  current  setting  is  to  read  the  input  file  as 
provided  by  Smart,  a  two-dimensional  triangular  grid 
generator  that  runs  interactively  on  a  Macintosh  personal 
computer. 

MAIN  will  call  UPDATE,  which  will  call  GEOMTR. 
GEOMTR  will  compute  essential  geometrical  parameters  that 
are  not  provided  by  file  16.  All  geometrical  information  is 
dumped  into  output  files  (8  and  88)  so  that  ICOND=0  is  used 
only  once  at  the  beginning  of  a  new  simulation. 

MAIN  will  call  UPGRAD.  which  will  call  one  of  the 
output  files  (8  or  88)  written  by  the  previous  run.  This  will 
load  the  geometrical  definition  of  the  grid  (either  8  or  88 — 
they  are  identical).  Writing  identical  files  provides  a  backup 
in  the  event  that  the  Job  terminates  for  lack  of  time  while  in 
the  process  of  writing  to  one  of  those  output  files. 
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VARIABLE 

PURPOSE 

ICONP 

=  0  PRIMITIVE  VARIABLES  INITIALIZED 

• 

=  1  VARIABLES  READ  FROM  PREVIOUS  RUN 

Initialize  the  primitive  variables  in  computational  • 

domain  with  an  initial  value  specified  by  the  user.  The  two 
options  set  by  the  code  are  controlled  by  lOPTN. 


The  flow  field  condition  reads  in  files  8  or  88  and 
provides  a  follow-up  run  set  from  the  previous  nm. 


VARIABLE 

PURPOSE 

lOPTN 

=  1  SOLUTION  FOR  STEADY  STATE 

=  2  SOLUTION  FOR  TRANSIENT  PHENOMENA 

-  -  -  .  .  . - 

There  are  two  choices  available  to  set  the  initial  condition  of  the  problem. 


Assign  the  conditions  at  the  inlet  to  the  computational 
domain.  This  is  the  fastest  way  to  get  a  steady-state  solution  • 

for  the  conditions  specified  at  the  inlet.  In  this  option.  PIN 
(pressure).  RIN  (density)  and  XMCHIN  (Mach  number)  are 
assigned  to  the  pressure  density  and  velocity  (the  speed  of 
sound  is  computed  in  the  code)  and  imposed  at  the  inlet  • 

boundaries. 
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Used  if  a  shock  wave  is  to  be  simulated  moving  from 
(edge  boimdary  8)  to  the  outlet  (edge  boundary  7). 
For  this  setting,  specify  PIN  (ambient  pressure  In  the 
chamber).  RIN  (ambient  density  in  the  chamber)  and 
XMCHIN  (upstream  Mach  number).  The  code  will  use  the 
normal  shockwave  relations  for  an  adiabatic  flow  of  a 
completely  perfect  fluid  to  compute  the  static-pressure  ratio 
across  the  shock  P2/P1  and  the  density  ratio  r2/rl.  and  the 
ratio  of  the  Mach  number  across  the  shock  M2/M1.  These 
computed  quantities  are  applied  to  set  correctly  the 
condition  on  the  pressure  density  and  velocity  at  the  inlet 
boimdary. 


VAEUABLE 

PURPOSE 

ALFA 

THE  DIRECTION  OF  INFLOW  IN  DEGREES  RELATIVE 

TO  A  RIGHT-HAND  COORDINATE  SYSTEM.  ALFA  =  0 
MEANS  FLOW  FROM  LEFT  TO  RIGHT. 

The  velocity  computed  by  the  code  according  to  the  input  data  provided  by  the 
user  is  split  (projected)  in  the  X  and  Y  directions  by  using  a. 


VARIABLE 

PURPOSE 

HRGG 

INITIAL  y  IN  THE  EQUATION  OF  STATE. 

THE  CODE  RUNS  USING  THE  IDEAL  EQUATION  OF 
STATE  AS  A  BASEUNE  AND  SHOULD  BE  MODIFIED 
IF  SOMETHING  ELSE  IS  DESIRED.  IOPEOS=l  WILL 
TRIGGER  THE  USE  OF  GILMORE  EQUATION  OF 
STATE. 

VARIABLE 

PURPOSE 

IHRN 

NUMBER  OF  ITERATIONS  IN  THE  RIEMANN 
SOLVER  TO  FIND  THE  DIAPHRAGM  SOLUTION. 
(THREE  TO  FOUR  SHOULD  BE  USED  AND  THE 
NUMBER  INCREASED  ONLY  FOR  VERY  HIGH 
MACH  NUMBER  CASES.) 

VARIABLE 

PURPOSE 

NTIME 

NUMBER  OF  REPEATS  FOR  THE  INTEGRATION 
SEQUENCE.  AN  OUTPUT  DUMP  IS  DONE  FOR 
EVERY  SEQUENCE  REPEAT. 

VARIABIE 

PURPOSE 

NDUMP 

NUMBER  OF  OUTER  LOOP  ITERATIONS  IN  THE 
CALCULATION  WHERE  REHNING  IS  DONE  FOR 
EVERY  SEQUENCE  REPEAT  WITHOUT 

COARSENING. 

VARIABLE 

PURPOSE 

lOPORD 

=  1  THE  CODE  WILL  RUN  FIRST  ORDER 
GODUNOV  METHOD 

=  2  THE  CODE  WILL  RUN  SECOND  ORDER 
GODUNOV  METHOD 

48 


Subroutine  FIRST  Is  called. 


Subroutine  GRADNT  is  called. 


Computes  the  fluxes  across  Interfaces  when  the  conditions  for  both  sides 
are  given.  The  fluxes  are  computed  assuming  a  shock  solution  at  a  ruptured 
diaphragm  simulated  by  the  presence  of  the  interface.  The  conditions  existing 
on  the  two  sides  of  the  diaphragm  will  define  the  condition  of  the  flow  at  the 
diaphragm  location.  These  conditions  are  computed  by  solving  the  Riemann 
problem  using  the  Godunov  algorithm.  The  condition  at  the  diaphragm  defines 
the  flux  of  energy,  mass,  and  momentum  passing  across  the  interface.  The 
Euler  conservation  law  is  applied  to  conserve  energy,  mass,  and  momentum 
crossing  Interfaces  from  one  cell  to  the  other. 


Quantity 

Side  1 

Diaphragm  (Interface) 

Side  2 

Density 

Pi 

P 

r2 

Pressure 

Pi 

P 

P2 

Velocity  Perpendicular  to 
Interface 

ui 

u 

U2 

Velocity  Parallel  to 
Interface 

VI 

V 

V2 

Velocity  Parallel  to 
Interface  to  Construct  a 
Right-Hand  Coordinate 
System  (u,  v.  w.) 

Wl 

w 

W2 
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Controls  the  code  and  the  iteration  loops.  It  calls  HYDRFL  to  find  the 
interface  fluxes.  These  fluxes  are  integrated  to  update  the  physical  variables  in 
each  cell.  If  adaptation  of  the  grid  is  required,  HYDRMN  also  controls  the 
output  by  writing  the  necessary  information  on  files  for  postprocessing  data 
and  for  restarting  the  AUGUST  code  at  a  later  time.  It  also  manages  print  file 
diagnostics. 


Calculates  geometrical  variables  that  are  not  supplied  by  the  input  data 
and  are  needed  to  run  the  code.  For  example,  it  computes: 

1)  distances  between  barlcentcrs  of  adjoining  cells; 

2)  the  location  of  the  intersection  between  the  line  joining  adjacent 
barlcenter  cells  and  the  interface. 

The  code  changes  the  direction  of  the  boundary  edges  so  that  all  are 
arranged  counter  clockwise  and  the  associated  computational  cell  is  always  on 
the  left  side.  GEOMTR  is  called  once  in  the  beginning  of  a  new  simulation. 


Called  in  the  beginning  of  a  new  simulation  for  setting  geometrical 
variables  not  provided  by  the  input  data.  (It  calls  GEOMTR.) 


Called  if  the  run  is  a  restart.  UPGRAD  will  read  the  appropriate  file 
(either  8  or  88)  dumped  by  the  previous  run. 
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s?rw5s: 


Compute  the  gradients  of  the  physical  variables  in  each  cell.  These 
computed  gradients,  along  with  the  physical  values  at  the  baricenters.  are 
applied  using  linear  interpolation  to  predict  the  values  on  the  interface. 

The  computed  gradients  are  subjected  to  the  monotonicity  condition, 
ensuring  that  the  projected  values  are  bounded  by  the  value  of  each  quantity  in 
the  three  adjacent  cells,  and  to  make  sure  that  no  new  maxima  or  minima 
occur.  The  projection  of  quantities  to  the  interface  improves  the  results  from 
the  code  and  provides  second  order  accuracy  in  space. 

GRADNT  calls  FCHART,  which  computes  the  projected  values  at  the 
interfaces  at  the  half  timestep  level  according  to  the  local  characteristics  of  the 
flow  in  each  ceil  bordering  the  interface  cell.  The  assignment  of  values  at  the 
two  sides  of  each  interface  is  done  at  the  end  of  FCHART.  This  same  loop  also 
imposes  the  boundary  conditions  for  the  interfaces  at  the  boundaries  of  the 
computational  domain. 


Assigns  flow  quantities  to  each  side  of  an  edge.  These  are  based  on  the 
values  at  the  baricenter  of  the  triangles  on  either  side  of  the  edge.  FIRST  uses 
a  first  order  approximation  to  find  the  values  at  the  edge. 

The  user  can  specify  FIRST  or  GRADNT  by  choosing  1  or  2  for  the 
parameter  lOPORD. 


Called  by  GRADNT  to  compute  the  values  projected  at  the  interfaces  at 
the  half  timestep.  These  calculations  are  done  by  applying  the  local  velocity 
characteristics  in  each  cell.  This  projection  in  time  improves  the  results  and 
makes  the  code  second  order  accurate  in  time. 


Computes  the  gradient  of  a  scalar  variable  at  the  center  of  a  cell.  The 
gradient  theorem  is  applied  for  each  cell. 
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J  V  •  dvs:  pf  n  ds 

volume  four  surfaces 

Those  gradients  are  subjected  to  a  monotonicity  limiter  that  ensures  no  new 
minima  or  maxima  are  produced  artificially  in  the  projected  values  at  the 
interfaces. 

The  monotonicity  algotithm  involves  the  following  steps. 


1) 

find  maximum  and  minimum  of  fi.  (2,  (3,  f4.  fs 

fmax  =  Max  (fi,  fz.  fa.  f4.  fs) 
finln  =  Min  (fi,  £2,  fs.  f4.  fs) 

2) 

compute 

Afmay  =  fmsne  -  fl 

^mln  ®  ^inln  “  fl 

3) 

compute  incremental  projected  values  at  the 
interfaces 

fmjR-fR  *VfR-  Fjr 

fmjL-fL  *VfL-  fjL 

DfmjR  =  fmjR  -  fR  =  ^fR  •  iJr 

DfmjL  =  fmJL  -  fL  =  VfL .  gL 

where  j  stands  for  every  interface  of  the  cell  and  fmj  is  the  interpolated 
value  at  the  middle  of  the  interface. 


(XMIDL.  YBUDL,  ZMIDL) 


4)  compute  the  limiter  by  calculating  the  minimum  of  indicator  for  each 
edge  of  the  four  surfaces  of  the  ceU. 

right  to  the  interface  RUVPR  =  »-t  ^miR)  AW  d  -  sign  Afn„R)Mnm 

2  AfmjR 

,  P,  ,  ,,  .  ,  p  (1  +  Sign  AfmiiJ  Afmax  +  (1  -  sign  AfmiL^Afmin 

left  to  the  mterface  RUVPL  = - ^ ^ - ' - . 

2  AfmjL 


This  formulation  ensures  that: 


if 


Afrnj  >  0  RUVP  = 
Afmj  <  0  RUVP  = 


Af, 


•mj 


the  outcome  of  RUVP  is  always  positive.  If  RUVP  >  1  then  the  projected  value 
at  the  interfaces  will  introduce  a  new  minima  or  maxima  as  compared  to  the 
values  at  the  baricenters  of  the  appropriate  cells. 
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Select  the  minimum  between  the  six  values  for  RUVP  (two  for  every  one 
of  the  three  interfaces  of  the  cell)  not  exceeding  unity.  The  selected  minimum 
of  RUVP  is  the  required  limiter.  The  gradient  is  multiplied  by  this  limiter  that 
is  always  less  or  equal  to  unity. 


Computes  the  projected  values  at  the  half  timestep  level  based  on  the 
local  characteristics  of  the  flow.  This  process  extends  the  accuracy  of  the  code 
to  be  second-order  in  time  as  well  as  in  space. 

The  characteristics  projection  consists  of  several  steps. 

1)  Calculate  the  velocity  of  sound  in  the  two  cells  bordering  the 
designated  interface: 


CNLEFT  =  sound  speed  in  left  cell 

CNRIGT  =  VtR  •  Pr/PR  sound  speed  in  right  cell 

UVLEFT  =  UL  •  t  velocity  of  fluid  at  the  left  cell  projected  in  t  direction 

UVRIGT  =  UR  •  t  velocity  of  fluid  at  the  right  cell  projected  in  t  direction 


where: 


t  =  XXN  •  i  +  YYn  •  J  +  zzn  k 


U  =  UT  +  V'j  +  w*k 
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2)  To  compute  the  interpolated  left  and  right  projected  values  at  time  tN  + 
Dt/2,  we  calculate  the  distances  that  the  disturbances  generated  from  the 
bailcenter  of  the  cells,  traveling  toward  the  interface: 

ZZLEFT  =  (UVLEFT  +  CNLEFT)  •  At/2 

ZZRIGT  =  -  (UVRIGT  -  CNRIGT)  ■  At/2 
If  ZZLEFT  or  ZZRIGT  are  negative  they  are  reset  to  zero. 

3)  Calculate  the  distances  that  the  flow  will  travel  if  It  were  to  flow  at  the 
velocity  of  each  of  the  local  characteristics: 

ZOLEFT  =  UVLEFT  •  At/2 

ZORIGT  =  -  UVRIGT  •  At/2 

ZPLEFT  =  (UVLEFT  +  CNLEFT)  •  At/2 

ZPRIGT  =  -  (UVRIGT  +  CNRIGT)  •  At/2 
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ZMLEFT  =  (UVLEFT  -  CNLEFT)  •  At/2 


ZMRIGT  =  -  (UVRIGT  -  CNRIGT)  •  At/2. 

4)  Calculate  the  projected  values  of  the  nonconservative  variables  (d  iinsity. 
velocity  component  (perpendicular  and  tangential  to  the  interfac; and 
pressure). 


For  the  left  ceil: 


Density 

HRRL 

=  pL+ VpL  '  (tl  -  ZZLEFT  •  t) 

Perpendicular  Velocity 

HUUL 

=  Ul  +  VUl  •  (Fl  -  ZZLEFT  •  t ) 

Tangential  Velocity 

HWL 

=  Vl  +  Wl  •  (Fl  -  ZZLE5T  •  t ) 

Pressure 

HPPL 

=  Pl  +  VPl  •  (Fl  -  ZZLEFT  •  t) 

GMTLFT 

=  PL-  HRRL  •  HPPL 

For  tJie  right  cell: 


Density 

HRRR 

PR  +  VPR  ■  fi^R  “  ZZRIGT  •  t) 

Perpendicular  velocity 

HUUR 

Ur  +  VUr  •  (Fr  -  ZZRIGT  •  t ) 

Tangential  velocity 

HWR 

Vr  +  Wr  •  (Fr  -  ZZRIGT  •  t) 

Pressure 

HPPR 

Pr  +  VPr  .  (Fr  -  ZZRIGT  •  t) 

GMTRGT  = 

PR  -  HRRR  -  HPPR 

For  the  left  cell,  taking  Into  account  the  foUo^ving  characteristics: 


•  For  (UVLEFT  +  CNLEFD: 

UUU  *  VUl  ■  (ZPLEFT  -  ZZLEFT)  t 

PPP  =  VPl  •  (ZPLEFT  -  ZZLEFT)  t 

UPLFT  =  -  0.5  •  (uUU  +  PPP/  VGMTLFt)  /  VgMTLFT 

If  UVLEFT  +  CNLEFT  is  negative,  UPLFT  is  reset  to  zero. 

•  For  UVLEFT  -  CNLEFT: 


UUU  =  VUl  •  (ZMLEFT  -  ZZLEFT)  •  t 

PPP  =  VPl  •  (ZMLEFT  -  ZZLEFT)  •  t 

UMLFT  =  0.5  •  (UUU  -  PPP/VGMTLFT  )  /  VGMTLFT 

If  UVLEFT  -  CNLEFT  is  negative.  UPLFT  is  reset  to  zero. 


•  For  UVLEFT: 

PPP  =  VPl  •  (ZOLEFT  -  ZZLEFT)  •  t 


57 


RRRR  =  PL  +  VpL  •  (tl  -  ZOLEFTl  •  t 

URLFT  =  PPP/GMTLFT  +  1/HRRL  -  1/RRRR 

If  UVLEFT  is  negative,  URLEFT  is  reset  to  zero. 

For  the  right  cell,  taking  into  account  the  following  characteristics: 


•  For  UVRIGT  +  CNRIGT; 

UUU  =  VUr  •  (ZZRIGT  -  ZPRIGT)  t 
PPP  =  VPr  .  (ZZRIGT  -  ZPRIGT)  t 

UPRGT  =  -  0.5  ■  (uUU  +  PPP/  VgMTRGT  )  /VGMTRGT' 
If  UVRIGT  +  CNRIGT  is  positive,  UMRGT  is  reset  to  zero. 

•  For  UVRIGT  ~  CNRIGT: 

UUU  =  VUr  (ZZRIGT  -  ZMRIGT)  •  t 

PPP  =  VPr  .  (ZZEUGT  -  ZMRIGT)  •  t 

UMRGT  =  0.5  •  (uUU  -  PPP/VgMTRGT  )  /VGMTRGf” 

If  UVRIGT  -  CNRIGT  is  positive,  UMRGT  is  reset  to  zero. 

•  For  UVRIGT: 


PPP  =  VPr  .  (ZZRIGT  -  ZORIGT)  •  t 

RKRR  =  pR  +  VpR  ■  (tr  +  ZORIGT)  •  t 

URRGT  =  PPP/GMTRGT  +  1/HRRR  -  1/RRRR 

If  UVRIGT  -  CNRIGT  is  positive,  URRGT  is  reset  to  zero. 

The  projected  values  will  be: 

RRL  =  1 /(1/HRRL  -  (UPLFT  +  UMLFT  +  URLFT)) 

UUL  =  HUUL  +  (UPLFT  -  UMLFT)  VgMTLFT 


WL  ==  HWL  +  (UPLPT  -  UMLFT)  VGMTLFT 
PPL  =  HPPL  +  (UPLFT  +  UMLFT)  GMTLFT 
RRR  -  1/{1/HRE?R  -  (UPRGT  +  UMRGT  +  URRGT)) 

UUR  =  HUUR  +  (UPRGT  -  UMRGT)  VGMTRGT 
WR  -  HWR  +  (UPRGT  -  UMRGT)  VGMTRGT 
PPR  =  HPPR  +  (UPRGT  +  UMRGT)  •  GMTRGT. 

Those  values  are  the  assigned  condition  for  the  two  sides  of  the  interface. 
If  the  interface  is  a  boundary,  the  right  condition  is  determined  according  to 
the  type  of  boimdaiy. 

A.2.1  Preprocessor  for  the  Three-Dimensional  Unstructured  Grid 

The  input  geometrical  data  for  AUGUST  should  provide  the  following 

data; 

1)  Number  of  vertices  (NV) 

2)  A  table  of  vertices  specifying: 

number  of  vertex  (IV) 

X  coordinate  (XV(1,IV)) 
y  coordinate  (XV(2,IV)) 
z  coordinate  (XV(3,IV). 

3)  Number  of  edges  (NE) 

4)  A  table  of  edges  specifying 

number  of  edges  (IE) 

vertex  number  indicating  the  beginning  of  the 
edge  (JE(1,IE)) 

vertex  number  indicating  the  end  of  the  edge 
(JE(2,IE)) 

rvi  =  JE(l.IE)  vertex  indicating  the  beginning  of  the 

edge 

IV2  =  JE(2.IE)  vertex  Indicating  the  end  of  the  edge 


The  direction  of  the  edge  is  defined  from  IVl  to  1V2. 

5)  Number  of  sides  (NS) 

6)  A  table  of  sides  (triangles)  specifying: 

number  of  sides  (IS) 
number  of  first  vertice  (JS(1,IS)) 
number  of  second  vertices  (JS(2,IS)) 
number  of  third  vertices  (JS{3,IS)) 
number  of  first  edge  (JS(4,IS)) 
number  of  second  edge  (JS(5,IS)) 
number  of  third  edge  (JS(6,IS)) 

The  sign  of  JS(4JS).  JS(5,IS),  JS(6,IS)  indicates  whether  the 

direction  of  the  edge  is  counter  clockwise  (positive)  or 

clockwise  (negative). 

tetrahedra  on  left  to  the  side  (JS(7.IS)) 

tetrahedra  on  right  to  the  side  (JS(8,IS)) 

Number  associated  with  the  status  of  the  side  (JSO.IS)). 

if  JSO.IS)  =  0  the  side  is  an  ordinary  side  inside  the 
computational  domain. 

if  JSO.IS)  *  0  the  side  lies  on  the  boundary  of  the  domain. 
The  labeling  number  will  Indicate  what  type  of  boundary  to 
applied  through  this  side. 


IV3 


IV2 


The  three  vertices  of  the  side  are  ordered  in  a  counter  clockwise 
arrangement. 


IVl  =  JS(l.IS) 
IV2  s  JS{2,IS} 
IV3  *  JS(3.IS) 
lEl  =:  JS(4.IS) 

IE2  =  JS{5.IS) 

IE3  =  JS(6,IS) 

ICl  =JS(7.IS) 
IC2  =  JS(8.IS) 


first  vertex 
second  vertex 
third  vertex 

First  edge  of  the  triangle  directed  from  IVl  to  IV2 
(lEl  is  positive). 

Second  edge  directed  originally  from  IV3  to  IV2. 

(IE2  will  be  negative  because  its  direction  is  clockwise.) 
Third  edge  directed  originally  from  IV3  to  IVl  (IE3 
is  positive), 
tetrahedra  on  the  left 
tetrahedra  on  the  right 


The  normal  to  the  side  is  directed  from  ICl  toward  IC2.  If  the  side  is  a 
boundary,  the  normal  is  always  from  the  computational  domain  pointing 
outside  (out  of  the  fluid  domain).  The  three  vertices  are  ordered  in  a  counter 
clockwise  direction  opposite  to  the  direction  of  the  normal  to  the  side.  For  a 
boundary  side,  IC2  will  be  always  zero. 
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US  =  JSO.IS) 
IJS9  =  6 
IJS9  =  7 
IJS9  =  8 


Status  of  the  side 
Simulating  wall  conditions 
Simulating  supersonic  outlet  conditions 
Simulating  supersonic  inlet  conditions. 


7)  A  table  of  sides  specifying: 

X  coordinate  of  baricenter  of  side  PCS(  1  ,IS)) 
y  coordinate  of  baricenter  of  side  CXS(2,IS)) 
z  coordinate  of  baricenter  of  side  (XS(3.IS)) 
area  of  side  PS(4.1S)) 

8)  A  table  of  sides  specifying: 

the  three  component  of  the  vector  normal  to  the  side: 

N  =  XN(IS)  7  +  yN(IS)  J  +  ZN{IS)k 
the  three  component  of  the  parallel  vector  tangential  to  the  side: 

P  =  XP(IS)  ’r  +  YP(IS)  +  ZP(IS)k 

the  three  component  of  the  parallel  vector  tangential  to  the  side: 
T  Xr(IS)  ■?  +  YTaS)  7  +  2T(IS)  k 


where  P  x  T  =  N  (the  normal,  perpendicular  and  parallel  vectors 
form  a  local  right-handed  coordinate  system). 

9)  number  of  cells  (tetrahedrals)  (NC) 

10)  A  table  of  cells  specifying: 

Number  of  cells  (IC) 

Number  of  first  vertex  (JC(l.IC)) 

Number  of  second  vertex  (JC(2,IC)) 

Nu  .iber  of  third  vertex  (JC(3,IC)) 

N  nber  of  fourth  vertex  (JC(4,IC)) 
r  nber  of  the  first  side  (JC{5,IC)) 

I  mber  of  the  second  side  (JC(6.IC)) 
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Number  of  tlie  third  side  (JC(7.IC)) 

Number  of  the  fourth  side  (JC(8,IC)) 

IVl  =  JCd.IC)  first  vertex 
IV2  =  JC(2,IC)  second  vertex 
IV3  =!  JC(3,IC)  third  vertex 
IV4  s  JC(4.IC)  fourth  vertex 

Seen  from  inside  the  tetrahedron,  the  first  three  vertices  are  counter  clockwise 
around  the  large  with  the  fourth  vertex  at  the  apex. 

151  =  JC(5.IC)  first  side 

152  =  JS(6.IC)  second  side 

153  =  JS(7.IC)  third  side 

154  =  JS(8.IC)  fourth  side 
Face  ISJ  is  opposite  the  IVJ  vertex 
11)  A  table  of  cells  specifying: 

X  coordinate  of  the  baricenter  of  cell  (XC(l.IC)) 

y  coordinate  of  the  baricenter  of  cell  (XC(2,IC)) 

z  coordinate  of  the  baricenter  of  cell  (XC(3,IC)) 

Volume  of  the  ceU  (XC(4.IC)) 


A.2.2  Face(Triangle)  information 


^l.k}  -  area  of  the  kth  face 
xJJ2,k}  *  X  position  of  face  centroid 
xJfS.k}  -  y  position  of  face  centroid 
xf[4,k)  •  z  position  of  face  centroid 


yfl,k)  -  x  component  of  normal  to  face 
yfiZk)  -  y  component  of  normal  to  face 
yfl3,k)  -  z  component  of  normal  to  face 

Jf[l,k}  -  the  index  of  the  first  vertex 
Jf[2,k)  -  the  index  of  the  second  vertex 
Jf[3.k}  -  the  index  of  the  third  vertex 
j[fi4,k}  -  the  signed  index  of  the  first  edge 
JffS.k)  •  the  signed  index  of  the  second  edge 
JfiS.k)  •  the  signed  index  of  the  third  edge 
jfiJ.k)  -  the  index  of  the  tetrahedron 
to  the  left  of  face 

JfiS.k)  •  the  index  of  the  tetrahedron 
to  the  rigth  of  face 
JfiB.kl  •  status  of  the  kth  face 
smQ  face  unrestricted 
s»l  not  used 

s»2  face  restricted  to  a  surface 
ef  face  is  fixed 
Jfil0.k)  •  pointer  to  surface  that 
restricts  die  face. 

Jfill,ki  •  the  boundary  candidanfijr  this  face 


Restricting 

line/stuface 

element 

whenjf[9,l^0 


'’kth** face 


tetrahedron 
on  the  left 
jf[7M 


tetrahetinm 
an  the  right 
Jf[8M 


normal  to  the 
face  yf[l-3Ac) 

face  centroid 
xf{2-4M) 


vertex-1 


vertex-2 


Position 
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2 

3 

3 

j 
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C 

4 

5 

5 

C 
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6 

6 

c 
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7 
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7 

8 
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9 
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12 
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56 
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♦ 
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♦ 

57 

58 
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4 

58 

59 
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4 

59 

60 
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4 

60 

61 

61 

c 

+  XV(2.IV)  -  Y  POSITION  OF  VERTEX 

4 

61 

6" 

62 

c 
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4 

62 

f 

63 

c 

•f 

4 

63 

64 

c 

W4 

64 

65 

c 

65 

*3 

66 

c 

66 

■7 
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c 

4 

4 

67 

68 
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68 

69 
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c 

4 

JC(6.IC) 

-  INDEX  OF  SECOND  SIDE 

4 

131 

131 

c 

4 

JC(7,IC) 

-  INDEX  OF  THIRD  SIDE 

4 

132 

132 

c 

4 

JC(8.IC) 

-  INDEX  OF  FOURTH  SIDE 

4 

133 

133 

c 

4 

4 

134 

134 

c 

4 

THE  CONVENTION  FOR  SIDES  IS  THAT  SIDE  ONE  COVERS 

■f 

135 

135 

c 

4 

THE  SPACE 

BETWEEN  VERTEX-ONE. VERTEX-TWO. AND  THE 

a. 

136 

136 

c 

4 

VERTEX  AT  THE  APEX  ETC,.  SIDE  FOUR  IS  THE  BASE 

137 

137 

c 

4 

4 

138 

138 

c 

4 

XC(1,IC) 

-  X  POSITION  OF  CELL  POINT 

4 

139 

139 

c 

4 

XC(2.IC) 

-  Y  POSITION  OF  CELL  POINT 

4 

140 

140 

c 

4 

XC(3.IC) 

-  Z  POSITION  OF  CELL  POINT 

4 

141 

141 

c 

4 

XC(4.1C) 

-  CELL  VOLUME. 

4 

142 

142 

c 

4 

143 

143 

c 

4 

4 

144 

144 

c 

44444444+44444444444444444+44444444+4444444444444444+4444444 

145 

145 

c 

146 

146 

c 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 
101 
102 

103 

104 

105 

106 

107 

108 
109 

no 

111 

112 

113 

114 

115 

116 
117 
116 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 
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148 

148 

C 

149 

149 

C  — 

DEFINITION  FOR  ALL  HYDROOYHAHIC  QUANTITIES  - - 

150 

ISO 

C 

151 

151 

152 

152 

c 

I 

153 

153 

c 

USE  OF  PARAMETERS:  I 

154 

154 

c 

I 

155 

155 

c 

HHQ  -  MAXIMUM  NUMBER  OF  HYDRO  QUANTITIES.  J 

156 

156 

c 

I 

157 

157 

c 

I 

158 

158 

- 1 

159 

160 
161 

159 

160 
161 

c 

c 

162 

162 

include  'dmshOO.h' 

163 

163 

include  'dhytfenO.h* 

164 

164 

include  'dphsnO.h* 

165 

165 

include  'ckntrlO.h* 

166 

166 

c 

167 

167 

REAL  XX(600).PP(600).HR(600). 

168 

168 

UU(600),GG(600).AA(600).EE(600) 

169 

169 

DOUBLE  PRECISION  V0L1.V0L2.V0L3.V0L4.V0LL.XXI.YYI,22I 

170 

170 

DOUBLE  PRECISION  OEFVOL 

171 

171 

0PEN(2  .FILE-'data.dd',FORM-*FORMAnEO') 

172 

172 

0PEN(4  .FILE-'thenno.d'.FORM-'FORHATTED') 

173 

173 

0PEH(8  .FILE-'threed2.5’,F0RM-‘UNF0RMAnED') 

174 

174 

0PEH(88  .FILE-' threed82 ' . FORM- ' UNFORHAnED * ) 

175 

175 

0PEN(9  , FILE-' threed3' .FORM-'ONFORMATTED' ) 

176 

176 

OPEN! 10. FILE- ' threed4 ‘ .FOWi-' FORMATTED’ ) 

177 

177 

OPENdS.FILE-'AVSfmhall .  inp*  .FORM-'FORHAnEO’ ) 
OPENdA.FILE-’AVSsmhall ,  inp'.fORH-'FORHATTED’ ) 

178 

178 

179 

179 

0PENd6.FILE-'00TPUT.MSH'  .FORM-' FORMATTED* ) 

180 

180 

OPEH(26.FIL£-'EXPLSV,RNO*.FORH-'FORHATTEO') 

181 

181 

0PEHd7,FILE-'ve0640.stv' .FORM-'FORHAnED' ) 

182 

182 

OPEHdS.FILE-'  f0640.stv'  .FORM-'FORMATTEO* ) 

183 

183 

0PEHd9.FILE-'pr640.stv‘ .FOWl-'FORHATTEO' ) 

184 

184 

OPENdl,FILE-'truck.lnput.8b'.STATUS-’OLO'  ) 

185 

186 
187 

185 

186 
187 

c 

c 

188 

188 

c 

NMELIST  /DATA/  ICONOdCONP.IOPTN.XMCHIN.RIN.PIN.ALFA.HRGG.IHRM, 

189 

189 

c 

NTIHE.NOUMP.IOPORO 

190 

190 

c 

191 

191 

.1 

192 

192 

c 

I 

193 

193 

c 

I 

194 

194 

c 

—  MEANING  OF  NAMELIST  VARIABLES: 

I 

195 

195 

c 

I 

196 

196 

c 

ICONO  -  0  READ  INPUT  GRID  FOR  A  NEM  RUN 

I 

197 

197 

c 

•  1  READ  THE  GRID  FRW  PREVIOUS  RUN 

I 

198 

198 

c 

ICONP  •  0  PRIMITIVE  VARIABLES  SET  TO  ZERO 

I 

199 

199 

c 

-  1  VARIABLES  READ  FROM  PREVIOUS  RUN 

I 

200 

200 

c 

lOPTN  -  1  SOLUTION  FOR  STEADY  STATE. 

I 

201 

201 

c 

-  2  SOLUTION  FOR  TRANSIENT  PHENOMENA 

I 

202 

202 

c 

I 

203 

203 

c 

XMCHIN  -  FOR  TRANSIENT  SHOCK  CALCULAT10NSd0PTR-2)THIS  VARIABLE 

I 

204 

204 

c 

IS  USED  TO  SPECIFY  THE  UPSTREAM  MACH  NUMBER 

I 

205 

205 

c 

I 

206 

206 

c 

RIN  -  THE  AMBIENT  DENSITY  IN  THE  CHAMBER 

I 

207 

2C: 

c 

I 

208 

2:: 

c 

PIN  -  THE  AMBIENT  PRESSURE  IN  THE  CHAMBER 

I 

209 

c 

I 

210 

j 

c 

APPLYING  NORMAL  SHOCK  HAVES  RELATIONS  FOR  AN  ADIABATIC 

I 

211 

A 

c 

FLOH  RELATION  STATIC-PRESSURE  RATIO  ACROSS  THE  SHOCK 

I 

212 

.12 

c 

AS  HELL  AS  THE  DENSITY  RATIO  AND  MACH  NUMBER  RATIO 

I 

213 

-13 

c 

ARE  COMPUTED  TO  SET  CORRECTLY  THE  CONDITION  AT  THE 

I 

214 

214 

c 

INLET  EDGES!  EDGE  BOUNDARY  8  )  OF  THE  COMPUTATIONAL 

I 

215 

215 

c 

DOMAIN 

I 

216 

216 

c 

I 

217 

217 

c 

FOR  STEADY  STATE  SHOCK  CALCUUTIONSdOPTN-l)THIS  IS  THE 

I 

218 

218 

c 

INFLOH  MACH  NUMBER.  ALL  DOMAIN  VELOCITIES  ARE  THEN 

I 

219 

219 

c 

INITIALIZED  HITH  THIS  VALUE. 

I 

220 

220 

c 

I 

221 

221 

c 

RIN  -  THE  AMBIENT  DENSITY  AT  INFINITY 

I 

page 


148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
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163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 
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207 
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210 
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222  222  C  I  222 

223  223  C  PIN  -  THE  AMBIENT  PRESSURE  AT  INFINITY  I  223 

224  224  C  I  224 

225  225  C  ALL  COMPUTATIONAL  DOMAIN  ARE  THEN  INITIALIZED  KITH  I  225 

226  226  C  THOSE  VALUES.  I  226 

227  227  C  I  227 

228  228  C  ALFA  -  THE  DIRECTION  OF  INFLOW  IN  DEGREES  RELATIVE  TO  A  RIGHT  !  228 

229  229  C  HAND  COORDINATE  SYSTEM.  ALFA-0  MEANS  FLOW  FROM  LEFT  TO  I  229 

230  230  C  RIGHT.  ALFA-90  MEANS  FROM  BOTTOM  TO  TOP.  ALFA-90  OR  270  I  230 

231  231  C  MEANS  FLOH  FROM  TOP  TO  BOTTOM  ETC.  I  231 

232  232  C  HRGG  -  INITIAL  GAMMA  IN  THE  EQUATION  OF  STATE  I  232 

233  233  C  THE  CODE  RUNS  USING  THE  AIR  EQUATION  AS  A  BASELINE  AND  I  233 

234  234  C  SHOULD  BE  MODIFIED  IF  SOMETHING  ELSE  IS  DESIRED.  I  234 

235  235  C  IHRN  -  NIMBER  OF  ITERATIONS  IN  THE  RIEMANN  SOLVER  TO  FIND  THE  I  235 

236  236  C  DIAPHRAGM  SOLUTION.  (3  to  4  SHOULD  BE  USED  AND  INCREASED  I  236 

237  237  C  ONLY  FOR  HIGH  MACH  NUMBER  CASES).  I  237 

238  238  C  I  238 

239  239  C  NTIHE  -  NtNffiER  OF  REPEATS  FOR  THE  INTEGRATION  SEQUENCE.  I  239 

240  240  C  AN  OUTPUT  DUM»  IS  DONE  EVERY  SEQUENCE  REPEAT.  I  240 

241  241  C  NOUMP  •  NUMBER  OF  ITERATIONS  IN  THE  INNER  LOOP  I  241 

242  242  C  I  242 

243  243  C  + _ o  HTIME  -  DUMPING  DATA  I  243 

244  244  C  I  I  244 

245  245  C  I  ^0  NDUMP  -  INTEGRATION  I  245 

246  246  C  I  I  I  246 

247  247  C  I  I  I  247 

248  248  C  I  ♦ _ 0 .  INNER  LOOP  I  248 

249  249  C  I  I  249 

250  250  C  ♦ _ 0 . DUMPING  LOOP  I  250 

251  251  C  I  251 

252  252  C  lOPORO  -  1  THE  CODE  WILL  RUN  FIRST  ORDER  GODUNOV  METHOD  I  252 

253  253  C  -2  THE  CODE  HILL  RUN  SECOND  ORDER  GODUNOV  METHOD  I  253 

254  254  C  I  254 

255  255  C - 1  255 

256  256  C  256 

257  257  ICOND  -  0  257 

258  258  ICniP  -  0  258 

259  259  lOPTN  -  I  259 

260  260  lEOS  •  1  260 

261  261  C  261 

262  262  XnCHIN  -  2.5  262 

263  263  RIN  -  1.25  263 

264  264  PIN  -  101350.  264 

265  265  RGAS  '  -  8314.3  265 

266  266  GPERCC  -  .001  266 

267  267  C  267 

268  268  ALFA  -  0.  268 

269  269  HRGG  -  1.4  269 

270  270  IHRN  -  4  270 

271  271  NTIHE  -  12  271 

272  272  NOUMP  •  ZOO  272 

273  273  lOPORO  •  2  273 

274  274  C  274 

275  275  C  —  READ  THE  INPUT  DATA -  275 

276  276  C  276 

277  277  C  READ  (2, DATA)  277 

278  278  C  278 

279  279  C  —  PRINTOUT  THE  RUN  PARAMETERS -  279 

280  280  C  280 

281  281  PRINT  101,  ICONO.ICONP.IOPTN.XMCHIN. RIN. PIN, ALFA. HRGG, IHRN,  281 

282  282  .  NTIHE, NOUMP, lOPORO  282 

283  283  C  283 

284  284  C  —  SET  RUN  CONDITIONS  ANO  PRINTOUT  TO  CONSOLE  -  284 

285  285  C  285 

286  286  C  READING  GRID  DATA  FRim  EOGE.ZON  286 

287  287  C  287 

288  288  THIRD  -  1.  /  3.  288 

289  289  IF{  ICOND  .  EQ  .  0  )  THEN  289 

290  290  C  290 

291  291  CALL  UPDATE  291 

292  292  C  292 

293  293  ELSE  293 

294  294  C  294 

295  295  CALL  UPGRAD  295 
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296 

296 

C 

296 

297 

297 

END  IF 

297 

298 

298 

CALL  MATRLA 

298 

299 

299 

CALL  HATRLX 

299 

300 

300 

c 

300 

301 

301 

c  - 

-  INITIALIZATION  OF  THE  PROBLEH 

301 

302 

302 

c 

302 

303 

303 

HRSM  -  l.E-8 

303 

304 

304 

HRGP  •  HRGG  +  1. 

304 

305 

305 

HRGH  •  HRGG  •  1. 

305 

306 

306 

CF  •  HRGP  /  (  2.  *  HRGG  ) 

306 

307 

307 

TT  -  0. 

307 

308 

308 

c 

308 

309 

309 

PIRAD  -  ATAN(  1.  )  /  45. 

309 

310 

310 

ALPHA  -  ALFA  •  PIRAO 

310 

311 

311 

PRINT  *,ALFA,PIRAO, ALPHA 

311 

312 

312 

c 

312 

313 

313 

COSS  -  COS(  ALPHA  ) 

313 

314 

314 

SINN  •  SIN(  ALPHA  ) 

314 

315 

315 

TANN  •  TAN(  ALPHA  ) 

315 

316 

317 

316 

^17 

c 

316 

318 

318 

c 

317 

318 

319 

319 

c  - 

-  SET  THE  INITIAL  VALUE  FOR  PRIMITIVE  VARIABLES  - 

319 

320 

320 

c 

320 

321 

321 

C(2) 

»» 

321 

322 

322 

TLIHIT  -  .9 

322 

323 

323 

ITER  -  6 

323 

324 

324 

IF(  ICONO  .  EQ  .  0  )  THEN 

324 

325 

325 

UVIN  -  XHCHIH  *  SORT(  HRGG  •  PIN  /  RIN  ) 

325 

326 

326 

UIN  •  UVIN  «  COSS 

326 

327 

327 

VIN  -  UVIN  •  SINN 

327 

328 

328 

WIN  -  0. 

328 

329 

329 

c 

329 

330 

330 

DO  150  IC  •  1  .  NC 

330 

331 

331 

HYDV(  IC  .  1  )  •  RIN 

331 

332 

332 

HYDW(  IC  .  2  )  -  0. 

332 

333 

333 

HYOV(  IC  .  3  )  -  0. 

333 

334 

334 

HVDV(  IC  ,  4  )  -  0. 

334 

335 

335 

HYDV(  IC  ,  5  )  -  PIN 

335 

336 

336 

HYOV(  IC  ,  6  )  -  l.E-6 

336 

337 

337 

HYOV(  IC  ,  7  )  -  1.4 

337 

338 

338 

HYDV(  IC  .  8  )  -  PIN  /  (  HYDV(  IC  ,  7  )  -  1.  ) 

338 

339 

339 

c 

339 

340 

340 

150 

CONTINUE 

340 

341 

341 

RADIUS  -  .0001 

341 

342 

342 

EXPLSV  -  8. 

342 

343 

343 

00  IC  -  1  .  NC 

343 

344 

344 

XXI  -  XC{  1  .  IC  ) 

344 

345 

345 

ni  -  xc(  2  ,  IC  ) 

345 

346 

346 

ZZI  -  XC(  3  .  IC  ) 

346 

347 

347 

RSS  -  SgRT(  XXI  *  XXI  ♦  YYI  *  YYI  ♦  ZZI  *  ZZI  ) 

347 

348 

348 

IF(  RSS  .  LT  .  RADIUS  )  THEN 

348 

349 

349 

print*, xxi ,yy1 , zzl .radius 

349 

350 

350 

HYDV(  IC  ,  1  )  .  EXPLSV  •  .4536  »  .75  /  3.141569  / 

350 

351 

351 

.  (  RADIUS  *  RADIUS  *  RADIUS  ) 

351 

352 

352 

HYDV(  IC  .  6  )  -  1. 

352 

353 

353 

HYDV(  IC  .  8  )  -  HYOV(  IC  .  1  )  *  1080,  *  4.185  * 

353 

354 

354 

1000.  *  1.01  /  .7 

354 

355 

355 

NITER  -  0 

355 

356 

356 

DST  -  HY0V(  IC  .  1  )  *  GPERCC 

356 

357 

357 

VOL  -  HHX  *  (  1.  -  OST  /  FSX  )  /  OST  /  XGX 

357 

358 

358 

EHEO  -  HYOV(  IC  ,  8  )  /  HY0V(  IC  .  1  )  •  VMX  /  RGAS 

358 

359 

359 

c 

359 

360 

360 

lYY  -  (  EHEO  -  EHEOX(  3  )  )  /  RAHGEX  +  1 

360 

361 

361 

lYY  -  HAXO(  1  .  HINO(  lYY  .  47  )  ) 

361 

362 

362 

c 

362 

363 

363 

K  -  lYY  ♦  2 

363 

364 

364 

lYY  -  lYY 

364 

365 

365 

.  +  INT(  AMAXK  EHEO  -  EHEOXI  K  )  .  0.)  /  DYX(  K  )  ) 

365 

366 

366 

.  -  INT'  MIAXK  EHEOX(  KM)-  EHEO  .  0.  )  /  OYX{  K  )  ) 

366 

367 

367 

lYY  -  MAXO(  1,  MINO(  lYY  .  47  )  ) 

367 

368 

368 

c 

368 

369 

369 

K1  -  lYY  ♦  2 

369 
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370 

370 

K2  -  K1  +  1 

370 

371 

371 

RT  -  (  EMEO  -  EHE0X(  K1  )  )  /  (  EHE0X(  K2  )  -  EHE0X{  K1  )  ) 

371 

372 

372 

T  .  TX(  K1  )  +  100.  •  RT 

372 

373 

373 

CVM  .  CVHX(  K1  )  *  RT  *  (  CVHX(  K2  )  -  CVHX(  K1  )  ) 

373 

374 

374 

ERS  -  0. 

374 

375 

375 

C 

375 

376 

376 

10 

CONTINUE 

376 

377 

377 

P  •  RGAS  •  T  /  VOL  /  GPERCC 

377 

378 

378 

RGAtmi  -  CVN 

378 

379 

379 

C 

379 

380 

380 

X  -  COVX  /  VOL  /  (  (  T  ♦  THETAX  )  *•  ALFAX  ) 

380 

381 

381 

Z  «  X  *  EXP{  BETAX  •  X  ) 

381 

382 

382 

X  -  1.  +  BETAX  •  X 

382 

383 

383 

RT  -  ALFAX  •  T  /  (  T  +  THETAX  ) 

383 

384 

384 

ERS  -  ERS  +  RT  *  Z  *  T 

384 

385 

385 

C 

385 

386 

386 

IF  (  ITER  .EQ.  NITER  )  GO  TO  20 

386 

387 

387 

C 

387 

388 

388 

CVH  -  CVM  *  XGX  +  SCVX 

388 

389 

389 

*  +  RT  •  Z  •  (  2.  -  RT  /  ALFAX  -  RT  *  X  ) 

389 

390 

390 

T  -  T  -  AHINK  ERS  /  CVM  .  TLIMIT  *  T  ) 

390 

391 

391 

C 

391 

392 

392 

NITER  -  NITER  +  1 

392 

393 

393 

C 

393 

394 

394 

RT  •  0.01  •  T 

394 

395 

395 

K1  -  RT 

395 

396 

396 

K1  •  HINO  (  Kl,  49  ) 

396 

397 

397 

K1  •  MAXO  (  Kl,  3  } 

397 

398 

398 

K2  -  Kl  +  1 

398 

399 

399 

RT  -  RT  -  Kl 

399 

400 

400 

CVM  -  CVMX(Kl)  +  RT  *  (  CVMX(  K2  )  -  CVMX(  Kl  )  ) 

400 

401 

401 

ERS  -  EMEOXI  Kl  )  +  RT  *  (  EMEOX(  K2  )  -  EHEOX(  Kl  )  ) 

401 

402 

402 

ERS  >  ERS  .  El€0 

402 

403 

403 

C 

403 

404 

404 

GO  TO  10 

404 

405 

405 

C 

405 

406 

406 

20 

CONTINUE 

406 

407 

407 

P  -  P  •  (  1.  ♦  U 

407 

408 

408 

RGAMMl  •  (  RGAmi  ^ 

406 

409 

409 

*  RT  •  Z  •  {  2.  -  RT  /  ALFAX  -  RT  •  X  )  )  /  (  1.  +  Z  ) 

409 

410 

410 

X  -  X  *  Z  /  (  1.  ♦  Z  ) 

410 

411 

411 

RGAMMl  -  RGAMMl  /  (  (  1.  -  RT  *  X  )  *•  2  ♦  X  •  RGAMMl  ) 

411 

412 

412 

ERS  -  ERS  /  EMEO 

412 

413 

413 

HYDV(  IC  .  7  )  -  1.  /  RGAMMl  *  1. 

413 

414 

414 

HVOV{  IC  .  5  )  -  P 

414 

415 

415 

END  IF 

415 

416 

416 

END  DO 

416 

417 

417 

c 

417 

418 

418 

XCOUHT  •  0 

418 

419 

419 

DO  1C  -  1  .  NC 

419 

420 

420 

RCOUHT  -  HYDV(  IC  .  8  )  +  .5  *  HYOV(  1C  .  1  )  • 

420 

421 

421 

(  HVDV(  IC  .  2  )  *  HYDV(  IC  ,  2  )  + 

421 

422 

422 

HYDV{  IC  .  3  )  *  HYDV(  IC  .  3  )  + 

422 

423 

423 

HYDV(  IC  .  4  )  •  HYOV(  IC  ,  4  )  ) 

423 

424 

424 

XCOUNT  -  XCDUNT  +  XC(  4  ,  IC  )  *  RCOUNT 

424 

425 

425 

END  DO 

425 

426 

426 

PRINT  *  .XCOUHT 

426 

427 

427 

IIJJ'l 

427 

428 

428 

IF(IIJJ.EO.O)  GO  TO  1122 

428 

429 

429 

c 

remove  the  followed  IF  statement  for  regular  run 

429 

430 

430 

c 

IF(  lOPTH  .£0.2)  THEN 

am 

431 

431 

c 

IF(  lOPTN  .  EQ  .  1  )  THEN 

432 

432 

c 

434 

433 

433 

NX  -  360 

433 

434 

434 

DO  190  IX  -  1  ,  NX 

434 

435 

435 

XX(IX)  -  (IX-.5)*.002 

435 

436 

436 

190 

CONTINUE 

436 

437 

437 

READ  (11,1001)  (PP(IX).IX-l.NX) 

437 

438 

438 

READ  (11,1001)  (UU(IX).IX.1,NX) 

438 

439 

439 

READ  (11.1001)  (HR(IX),IX.1,NX) 

439 

440 

440 

READ  (11,1001)  (AA(IX),IX.1.NX) 

440 

441 

441 

READ  (11,1001)  (GG(IX).IX-l.NX) 

441 

442 

442 

READ  (11,1001)  (EE(IX).IX-1,NX) 

442 

443 

443 

1001 

F0RHAT{6E12.5) 

443 
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444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 


444  C 

445 

446 

447  C 

448 

449 

450  C 

451 

452 

453 

454  C 

455 

456 

457 

458 

459 

460 

461  C 

462 

463 

464  C 

465 

466 

467 

468 

469  C 

470 

471 

472 

473  C 

474 

475 

476  C 

477 

478 

479 

480 

481 

482 

483  C 

484 

485 

486  270 

487  301 

488 

489 

490 

491 

492 

493 

494  C 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504  C 

505 

506 

507  C 

508 

509 

510 

511  C  - 

512 

513 

514 

515 

516 

517 


ICOUNT  -  0 
DO  260  IC  •  1  .  NC 

XXI  -  XC(  1  .  IC  )  +  .2667 
XXI  -  XC(  1  .  1C  )  ♦  .1143 

YYI  -  XC(  2  .  1C  )  -  1.96596 

ZZI  -  XC(  3  ,  IC  )  -  1.25 
ZZI  -  XC(  3  ,  IC  )  -  1.905 

RSS  -  SORT(  XXI  •  XXI  ♦  YYI  •  YYI  +  ZZI  *  ZZI  ) 

XYS  -  SORT(  XXI  *  XXI  ♦  YYI  *  YYI  ) 

00  270  IX  •  1  .  NX-1 

XOOl  -  XX(  IX  ) 

XD02  -  XX(  IX+1  ) 

IF(  RSS  .  GT  .  XIXll  .  AND  .  RSS  ,  LT  .  XD02  )  THEN 
XKSI  -  (  RSS  -  XODl  )  /  (  XDD2  -  XOOl  ) 

ICOUNT  .  ICOUNT  +  1 

HYDV(lC.l)  -  HR(IX)  •  (l.-XKSl)  + 

HR(IX+1)  *  XKSI 

HYDUVW  -  UU(IX)  •  (l.-XKSn  + 

UU(IX+1)  *  XKSI 

HY0V(IC.4)  -  ZZI  /  RSS  *  HYOUVH 
HYOVUV  -  XYS  /  RSS  *  HYDUVW 

THETHA  -  ATAN2(  YYI  .  XXI  ) 

HY0V(IC.2)  .HYOVUV  •  COS{  THETHA  ) 

HYOVdC.S)  -  HYOVUV  •  SIN(  THETHA  ) 

HYDVdC.S)  -  PP(IX)  *  d.-XKSI)  + 

PPdXd)  *  XKSI 
HYDVdC.S)  -  1.08*HyDVdC,5) 

HYOVdC.7)  -  GG(IX)  •  (l.-XKSI)  + 

GG(IX+1)  •  XKSI 
HY0V(1C,6)  -  AA(IX)  •  (l.-XKSI)  ♦ 

AA(IX+l)  •  XKSI 
HYDVdC.S)  -  EE(IX)  *  (l.-XKSI)  + 

EE(IX+1)  •  XKSI 

GOTO  301 
ENDIF 
CONTINUE 
CONTINUE 
NITER  -  6 

IFfNITER.EO.O)  THEN 

IF(  HYDV(  IC  .  6  )  .  LT  .  .2  )  THEN 

OST  -  HYOV(  IC  ,  1  )  *  GPERCC 

VOL  -  HHA  *  (  1.  -  OST  /  FSA  )  /  OST  /  XGA 

TT  -  HYDV(  IC  .  5  )  •  VOL  *  GPERCC  /  RGAS 

T  -  TT 

RT  -  0.01  *  T 
K1  -  RT 

K1  -  HINO  {  Kl,  49  ) 

K1  -  HAXO  (  Kl.  3  ) 

K2  -  Kl  +  1 

■  ((j  .  Kl 

ENERGY  -  EHEOA{  Kl  )  +  RT  •  (  EHEOA(  K2  )  -  EHEOA(  Kl  )  ) 
ENERGY  -  ENERGY  *  RGAS  /  HHA 

DO  ITER  -  1  .  NITER 

X  -  COVA  /  VOL  /  (  T  ♦  THETAA  )  ••  ALFAA 

BETAZX  -  BETAA  *  X 
RT  -  X  *  EXP(  BETAZX  ) 

RTINV  -  1.  /  (  1.  +  RT  ) 

ERS  IS  THE  FUNCTION,  RT  IS  THE  DERIVATIVE 
ERS  -  T  -  TT  •  RTINV 

RT  -  1.  -  TT  •  PTINV  •  RTINV  •  ALFAA  •  RT  *  (  1.  +  BETAZX  )  / 
(  T  THETAA  ) 

ERS  -  ERS  /  RT 
T  -  T  -  ERS 
END  DO 
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518 

518 

C 

518 

519 

519 

RT  -  0.01  •  T 

519 

520 

520 

K1  -  RT 

520 

521 

521 

K1  -  HINO  (  Kl,  49  ) 

521 

522 

522 

K1  -  MAXO  (  Kl,  3  ) 

522 

523 

523 

K2  -  Kl  +  1 

523 

524 

524 

RT  -  RT  -  Kl 

524 

525 

525 

ENERGY  .  EME0A(  Kl  )  ♦  RT  *  (  EHEOA(  K2  )  -  EMEOA(  Kl  )  ) 

525 

526 

526 

c 

526 

527 

527 

X  -  COVA  /  VOL  /  (  {  T  ♦  THETAA  )  •*  ALFAA  ) 

527 

528 

528 

EX  -  £XP(  BETAA  *  X  ) 

528 

529 

529 

Z  •  X  •  EX 

529 

530 

530 

RT  -  ALFAA  »  T  /  (  T  ♦  THETAA  ) 

530 

531 

531 

ENERGY  •  ENERGY  ♦  RT  *  Z  *  T 

531 

532 

532 

HYOV(  IC  ,  8  )  -  ENERGY  *  RGAS  /  HHA 

532 

533 

533 

Et€0  -  HYOV(  ir  .  8  )  /  HYOV(  1C  .  1  )  •  HHA  /  RGAS 

533 

534 

534 

c 

534 

535 

535 

lYY  -  (  EreO  -  EMEOA(  3  )  )  /  RANGEA  +  1 

535 

536 

536 

lYY  -  HAXO{  1  .  MIHO(  lYY  .  47  )  ) 

536 

537 

537 

c 

537 

538 

538 

K  -  lYY  +  2 

538 

539 

539 

lYY  -  lYY 

539 

540 

540 

.  +  INT(  AMAX1(  EHEO  -  EHEOA(  K  )  ,  0.)  /  OYA(  K  )  ) 

540 

541 

541 

.  -  1NT(  AMAXK  EHEOA{  K  ♦  1  )  -  EHEO  ,  0.  )  /  OYA{  K  )  ) 

541 

542 

542 

lYY  -  MAXO(  1.  MINO(  lYY  .  47  )  ) 

542 

543 

543 

c 

543 

544 

544 

Kl  -  lYY  +  2 

544 

545 

545 

K2  -  Kl  +  1 

545 

546 

546 

RT  -  (  EHEO  -  £HEOA(  Kl  )  )  /  (  EHEOA(  K2  )  -  EHEOA(  Kl  )  ) 

546 

547 

547 

T  -  TA(  Kl  )  ♦  100.  »  RT 

547 

548 

548 

CVH  •  CVMA(  Kl  )  »  RT  *  (  CVHA(  K2  )  -  CVHA(  Kl  )  ) 

548 

549 

549 

ERS  -  0. 

549 

550 

550 

c 

550 

551 

551 

P  -  RGAS  *  T  /  VOL  /  GPERCC 

551 

552 

552 

RGAHHl  -  CVH 

552 

553 

553 

HYDV(  1C  .  7  )  «  1.  /  RGAHHl  ♦  1. 

553 

554 

554 

HYDV(  IC  .  5  )  •  P 

554 

555 

555 

c 

555 

556 

556 

ELSE 

556 

557 

557 

c 

557 

558 

558 

DST  -  HYOV(  IC  .  1  )  •  GPERCC 

558 

559 

559 

VOL  ■  HHX  *  (  1.  -  DST  /  FSX  )  /  DST  /  XGX 

559 

560 

560 

TT  -  HYOV(  1C  ,  5  )  *  VOL  •  GPERCC  /  RGAS 

560 

561 

561 

c 

561 

562 

562 

T  -  TT 

562 

563 

563 

RT  -  0.01  •  T 

563 

564 

564 

Kl  -  RT 

564 

565 

565 

Kl  -  MINO  (  Kl,  49  ) 

565 

566 

566 

Kl  -  MAXO  (  Kl.  3  ) 

566 

567 

567 

K2  -  Kl  +  1 

567 

568 

568 

RT  -  RT  -  Kl 

568 

569 

569 

ENERGY  -  EHEOX(  Kl  )  *  RT  *  (  EMEOX(  K2  )  -  EHEOX(  Kl  )  ) 

569 

570 

570 

ENERGY  .  ENERGY  •  RGAS  /  HHX 

570 

571 

571 

c 

571 

572 

572 

DO  ITER  -  1  ,  NITER 

572 

573 

573 

X  -  COVX  /  VOL  /  (  T  ♦  TKETAX  )  *•  ALFAX 

573 

574 

574 

c 

574 

575 

575 

BETAZX  -  0ETAX  *  X 

575 

576 

576 

RT  -  X  •  EXP(  BETAZX  ) 

576 

577 

577 

RTIHV  -  1,  /  (  1.  RT  ) 

577 

578 

578 

c  - 

ERS  IS  THE  FUNCTION,  RT  IS  THE  DERIVATIVE 

578 

579 

579 

ERS  «  T  -  TT  *  RTIHV 

579 

580 

580 

RT  -  1.  -  TT  •  RTIHV  *  RTINV  *  ALFAX  •  RT  •  (  1.  ♦  BETAZX  )  / 

580 

581 

581 

(  T  +  THETAX  ) 

581 

582 

582 

ERS  -  ERS  /  RT 

582 

583 

583 

T  -  T  -  ERS 

583 

584 

584 

END  DO 

584 

585 

585 

c 

585 

586 

586 

RT  -  0.01  •  T 

586 

587 

587 

Kl  -  RT 

587 

588 

588 

Kl  -  HINO  (  Kl,  49  ) 

538 

589 

589 

Kl  •  MAXO  (  Kl,  3  ) 

589 

590 

590 

K2  -  Kl  +  1 

590 

591 

591 

RT  -  RT  -  Kl 

591 
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592 

592 

ENERGY  .  EHE0X{  K1  )  »  RT  •  (  £M£0X(  K2  )  -  EHE0X(  K1  )  ) 

592 

593 

593 

C 

593 

594 

594 

X  -  COVX  /  VOL  /  (  {  T  ♦  THETAX  )  *•  ALFAX  ) 

594 

595 

595 

EX  -  EXP(  BETAX  •  X  ) 

595 

596 

596 

Z  •  X  *  EX 

596 

597 

597 

RT  -  ALFAX  *  T  /  (  T  ♦  THETAX  ) 

597 

598 

598 

ENERGY  .  ENERGY  +  RT  *  Z  •  T 

598 

599 

599 

HYOV(  IC  .  8  )  -  ENERGY  •  RGAS  /  WMX 

599 

600 

600 

VOL  -  HHX  *  (  1.  -  OST  /  FSX  )  /  DST  /  XGX 

600 

601 

601 

El€0  -  HYDV(  IC  .  8  )  /  HYOV(  IC  ,  1  )  •  WMX  /  RGAS 

601 

602 

602 

c 

602 

603 

603 

lYV  -  (  EHEO  -  EHEOX(  3  )  )  /  RANGEX  +  1 

603 

604 

604 

lYY  -  MAXO(  1  .  HINO(  lYY  .  47  )  ) 

604 

605 

60S 

c 

605 

606 

606 

K  -  lYY  +  2 

606 

607 

607 

lYY  -  lYY 

607 

608 

608 

.  +  INT(  AHAXK  EMEO  -  EHEOX(  X  )  .  0.)  /  OYX(  K  )  ) 

608 

609 

609 

.  -  IHT(  AMAXK  EHEOX(  K  ♦  1  )  -  EHEO  ,  0.  )  /  DYX(  X  )  ) 

609 

610 

610 

lYY  -  MAXO(  1.  MIHO(  lYY  ,  47  )  ) 

610 

611 

611 

c 

611 

612 

612 

K1  -  lYY  +  2 

612 

613 

613 

K2  •  K1  +  1 

613 

614 

614 

RT  -  (  EMEO  -  EffiOX(  K1  )  )  /  (  EMEOX(  K2  )  -  EICOX(  K1  )  ) 

614 

615 

615 

T  •  TX(  K1  )  +  100.  *  RT 

615 

616 

616 

CVM  .  CVMX(  K1  )  +  RT  •  (  CVMX(  K2  )  -  eVHX(  K1  >  ) 

616 

617 

617 

ERS  -  0. 

617 

618 

618 

c 

618 

619 

619 

401 

CONTINUE 

619 

620 

620 

P  -  RGAS  *  T  /  VOL  /  GPERCC 

620 

621 

621 

RGAMNl  •  CVH 

621 

622 

622 

C 

622 

623 

623 

X  -  COVX  /  VOL  /  (  (  T  ♦  THETAX  )  •*  ALFAX  ) 

623 

624 

624 

Z  -  X  *  EXP(  BETAX  •  X  ) 

624 

625 

625 

X  -  1.  >  BETAX  *  X 

625 

626 

626 

RT  -  ALFAX  *  T  /  (  T  ♦  THETAX  ) 

626 

627 

627 

ERS  -  ERS  +  RT  *  Z  *  T 

627 

628 

628 

c 

628 

629 

629 

IF  {  ITER  .EQ.  NITER  )  GO  TO  201 

629 

630 

630 

c 

630 

631 

631 

CVH  -  CVH  *  XGX  ♦  SCVX 

631 

632 

632 

*  ♦  RT  *  Z  •  (  2.  -  RT  /  ALFAX  -  RT  *  X  ) 

632 

633 

633 

T  -  T  -  AHIHK  ERS  /  CVH  .  TLIMIT  *  T  ) 

633 

634 

634 

c 

634 

635 

635 

NITER  -  NITER  ♦  1 

635 

636 

636 

c 

636 

637 

637 

RT  -  0.01  *  T 

637 

638 

638 

K1  -  RT 

638 

639 

639 

K1  -  MINO  (  Kl,  49  ) 

639 

640 

640 

K1  -  MAXO  (  Kl,  3  ) 

640 

641 

641 

K2  -  Kl  +  1 

641 

642 

642 

RT  -  RT  -  Kl 

642 

643 

643 

CVM  -  CVMX(Kl)  +  RT  *  (  CVHX(  K2  )  -  CVMX(  Kl  )  ) 

643 

644 

644 

ERS  -  EHEOXI  Kl  )  ♦  RT  *  (  EHEOX(  K2  )  -  EMEOMI  Kl  )  ) 

644 

645 

645 

ERS  -  ERS  -  EHEO 

645 

646 

646 

c 

646 

647 

647 

GO  TO  401 

647 

648 

648 

c 

648 

649 

649 

201 

CONTINUE 

649 

650 

650 

P  -  P  •  (  1.  +  z  ) 

650 

651 

651 

RGAHHl  •  (  RGAHHl  ^ 

651 

652 

652 

*  RT  •  Z  •  (  2.  -  RT  /  ALFAX  -  RT  *  X  )  )  /  (  1.  +  Z  ) 

652 

653 

653 

X  -  X  •  Z  /  (  1.  >  Z  ) 

653 

654 

654 

RGAHHl  •  RGAHHl  /  (  (  1.  -  RT  •  X  )  *•  2  +  X  •  RGAHHl  ) 

654 

655 

655 

ERS  -  ERS  /  EMEO 

655 

65f 

656 

HYDV(  IC  ,  7  )  -  1.  /  RGAHHl  ♦  1. 

656 

65 

657 

HYDV(  IC  ,  5  )  -  P 

657 

65 

658 

END  IF 

658 

65 

659 

END  IF 

659 

66C 

660 

260 

coHTir:: 

660 

661 

661 

c 

661 

662 

662 

C{2)- 

662 

663 

663 

ELSE 

663 

664 

664 

C 

664 

665 

665 

XMSOR  -  XMCHIN  •  XMCHIN 

665 
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666 

666 

PINL  -  PIN 

667 

667 

RINL  -  RIN 

668 

668 

EINRTO  •  (  HMC  *  1.  )  *  XHSQR  / 

669 

669 

(  (  HRG6  -  1.  )  '  XMSQR  ♦  2.  ) 

670 

670 

PINRTO  -  (  2.  •  HRGG  •  XHSQR  -  {  HRGG  -  1.  )  )  / 

671 

671 

(  HRGG  ^  1.  ) 

672 

672 

PIN  -  PINRTO  •  PINL 

673 

673 

RIN  ■  RINRTO  *  RINL 

674 

674 

YMCHIN  •  SQRT(  (  (  HRGG  -  1.  )  *  XHSQR  ♦  2.  )  / 

675 

675 

(  2.  •  HRGG  *  XHSQR  -  (  HRGG  -  1.  )  )  ) 

676 

676 

PRINT*. HRGG. RIN, PIN. THCKIH 

677 

677 

PRINT*. HRGG, RINL. PINL.XHCHIN 

678 

678 

UVIN  -  XHCHIN  *  SqRT(  HRGG  *  PINL  /  RINL  )  - 

679 

679 

YHCHIN  *  SQRT(  HRGG  *  PIN  /  RIN  ) 

680 

680 

UIN  -  UVIN  *  COSS 

681 

681 

VIN  •  UVIN  *  SINN 

682 

682 

WIN  -  0. 

683 

683 

C 

684 

684 

DO  155  IC  •  1  .  NC 

685 

685 

HYDV(  IC  .  1  )  -  RINL 

686 

686 

HYDV(  IC  .  2  )  -  OIN 

687 

687 

HYDV(  IC  .  3  )  -  VIN 

688 

688 

HYDV(  IC  ,  4  )  •  WIN 

689 

689 

HYOV(  IC  .  5  )  -  PINL 

690 

690 

C 

691 

691 

155 

CONTINUE 

692 

692 

EHOIF 

693 

693 

C 

remove  the  followed  END  IF  for  regular  run 

694 

694 

C 

ENOIF 

695 

695 

c 

ENOIF 

696 

696 

C(2). 

«« 

697 

697 

c 

698 

698 

1122 

CONTINUE 

699 

699 

IF(  ICONO  .  EQ  .  0  )  THEN 

700 

700 

NPRTCL  -  25 

701 

701 

XPRTCL(l.l)  -  .443 

702 

702 

XPRTCL(2.1)  -  1.0414 

703 

703 

XPRTCL(3,1)  -  1.4224 

704 

704 

XPRTCL(1.2)  ■  -.002 

705 

705 

XPRTCL(2.2)  -  .3556 

706 

706 

XPRTCL(3,2)  -  0.5842 

707 

707 

XPRTCL(1,3)  -  -.275 

708 

708 

XPRTCL(2.3)  •  -.3058 

709 

709 

XPRTCL(3.3)  -  -1.4224 

710 

710 

XPRTCL(1.4)  -  2.032 

711 

711 

XPRTCL(2.4)  -  -.3048 

712 

712 

XPRTCL(3.4)  ■  -4.572 

713 

713 

XPRTCL(1.5)  -  .3048 

714 

714 

XPRTCL(2.5)  -  .1016 

715 

715 

XPRTCL(3,5)  .  .3048 

716 

716 

XPRTCL(1.6)  -  .4572 

717 

717 

XPRTCL(2.6)  -  .1016 

718 

718 

XPRTCL(3.6)  -  .4572 

719 

719 

XPRTCL(1.7)  -  .6096 

720 

720 

XPRTCL(2.7)  -  .1016 

721 

721 

XPRTCL(3,7)  -  .3048 

722 

722 

XPRTCL(1,8)  -  .4572 

723 

723 

XPRTCL{2.8)  -  .1016 

724 

724 

XPRTCL(3.8)  -  .1524 

725 

725 

XPRTCL(1.9)  -  1.3462 

726 

726 

XPRTCL(2,9)  -  .1016 

727 

727 

XPRTCL(3,9)  •  .3048 

728 

728 

XPRTCLd.lO)  -  1.4986 

729 

729 

XPRTCL(2.10)  -  .1016 

730 

730 

XPRTCL(3.10)  -  .4572 

731 

731 

XPRTCL(l.ll)  *  1.651 

732 

732 

XPRTCL(2,11)  -  .1016 

733 

733 

XPRTCL(3,11)  -  .3048 

734 

734 

XPP'*CL(1.12)  -  1.4986 

735 

735 

XPk(CL(2.12)  -  .1016 

736 

736 

XPRTCL(3.12)  -  .1524 

737 

737 

XPRTCL(1,13)  •  .6096 

738 

738 

XPRTCL(2.13)  -  .7740 

739 

739 

XPRTCL(3.13)  -  1.0668 
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740 

740 

XPRTCL(1,14)  • 

.6096 

740 

741 

741 

XPRTCL(2,14)  « 

.8138 

741 

742 

742 

XPRTCL{3.14)  - 

.5334 

742 

743 

743 

XPRTCL{1.15)  - 

1.4224 

743 

744 

744 

XPRTCL{2,15)  - 

.7740 

744 

745 

745 

XPRTCL(3.15)  - 

1.0668 

745 

746 

746 

XPRTCL(1.16)  . 

1.4224 

746 

747 

747 

XPRTCL{2,16)  - 

.8128 

747 

748 

748 

XPRTCL(3.16)  . 

.5334 

748 

749 

749 

XPRTCL(1.17)  - 

-.3058 

749 

750 

750 

XPRTCL(2.17)  - 

1.3208 

750 

751 

751 

XPRTCL(3.17)  - 

-.4318 

751 

752 

752 

XPRTCL(1.18)  - 

.2032 

752 

753 

753 

XPRTCL(2.18)  - 

.7590 

753 

754 

754 

XPRTCL(3.18)  - 

1.1898 

754 

755 

755 

XPPTCLd.lO)  - 

.254 

755 

756 

756 

XPRTCL(2.19)  - 

.1772 

756 

757 

757 

XPRTCL(3.19)  • 

1.1948 

757 

758 

758 

XPRTCL(1.20)  - 

.9144 

756 

759 

759 

XPRTCL(2.20)  - 

.4064 

759 

760 

760 

XPRTCt.(3.20)  - 

.9652 

760 

761 

761 

XPRTCL(1.21)  - 

.2032 

761 

762 

762 

XPRTCL(2.21)  • 

.7680 

762 

763 

763 

XPRTCL(3.21)  ■ 

1.1888 

763 

764 

764 

XPfiTCL(1.22)  • 

.1532 

764 

765 

765 

XPRTCL(2,22)  • 

.7670 

765 

766 

766 

XPRTCL(3.22)  - 

1.1888 

766 

767 

767 

XPRTCL(1.23)  ' 

.1532 

767 

768 

768 

XPRTCL(2.23)  • 

.7665 

768 

769 

769 

XPRTCL(3.23)  - 

1.1878 

769 

770 

770 

XPRTCL(1,24)  - 

.1532 

770 

771 

771 

XPRTCL(2.24)  » 

.7765 

771 

772 

772 

XPRTCL(3,24)  - 

1.1898 

772 

773 

773 

XPRTCL(1.25)  . 

.1532 

773 

774 

774 

XPRTCL(2.25)  - 

.7655 

774 

775 

775 

XPRTCL(3,25)  - 

1.1898 

775 

776 

776 

DO  IK  •  1  .  NPRTCL 

776 

777 

777 

RMINH  -  100000000. 

777 

778 

778 

DO  IC  •  1  ,  NC 

778 

779 

779 

11^(1. IC) 

779 

780 

780 

I2-JC(2.IC) 

780 

781 

781 

[3-X(3.IC) 

781 

782 

782 

I4-JC(4,IC) 

782 

783 

783 

XXI  «  XPRTCL(  1 

.  IK  ) 

783 

784 

784 

YYI  -  XPRTCL(  2 

.  IK  ) 

784 

765 

785 

ZZI  -  XPRTCK  3 

,  IK  ) 

785 

786 

786 

CALL  VOLMTETC  ( 

II.  12.  13.  XXI,  YYI,  ZZI  .  VOLl  ) 

786 

787 

787 

CALL  VOLHTETC  { 

II,  12,  14.  XXl,  YYI,  ZZI  .  VOLZ  ) 

787 

788 

788 

CALL  VOLHTETC  ( 

II.  13.  14.  XXI.  YYI.  ZZI  ,  V0L3  ) 

788 

789 

789 

CALL  VOLHTETC  ( 

12.  13.  14.  XXI.  YYI.  ZZI  .  V0L4  ) 

789 

790 

790 

XXI  -  XV(  1  ,  14  ) 

790 

791 

791 

YYI  -  XV(  2  .  14  ) 

791 

792 

792 

ZZI  -  XV(  3  .  14  ) 

792 

793 

793 

CALL  VOLHTETC  ( 

11.  12.  13.  XXI.  YYI.  ZZI  .  VOLL  ) 

793 

794 

794 

OEFVOL-DABS  ( VOLl )  *DABS(  VOU )  +DABS  ( V0L3 )  +OABS(  V0L4 ) 

794 

795 

795 

.OABS(VOLL) 

795 

796 

796 

IF(  DABS(OEFVOL/VOLL)  .  LT  .  .001  )  THEN 

796 

797 

797 

IJKPRT(IK) 

•  IC 

797 

798 

798 

PRINT*, ik.voll.volZ,vol3.vol4 

798 

799 

799 

PRINT*, 1 c, vol 1 ,defvol ,defyol /vol 1 

799 

300 

800 

PRINT*,(XV(l(k,jc(l,ic)).kk-l,3) 

BOO 

801 

801 

PRIHT*,(XV(kk.jc(2,lc)).kk-l,3) 

801 

802 

802 

PRINT*,(XV(kk,jc(3,ic)),kk-l,3) 

802 

803 

803 

PRIHT*.(XV(kk,jc{4,ic)),kk-1.3) 

803 

804 

804 

PRINT*, (JS(9,jc(kk,ic)),kk-5,8) 

804 

805 

80S 

END  IF 

805 

606 

806 

END  DO 

806 

807 

807 

END  DO 

807 

808 

808 

00  IK  .  1  ,  NPRTCL 

808 

809 

809 

IC  -  IJKPRT(IK) 

809 

810 

810 

ISS  -  JC(5.IC) 

810 

811 

811 

DO  IKK  ■  5  .  8 

811 

812 

812 

IS  -  JC(IKK,IC) 

812 

813 

813 

IBC  -  JS(9,IS) 

813 

j 
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814 

814 

IF(  laC  .  EQ  .  6  )  THEN 

815 

815 

ISS  -  IS 

816 

816 

END  If 

817 

817 

END  00 

818 

313 

IJKPRT(IK)  .  ISS 

819 

319 

END  DO 

820 

820 

END  IF 

821 

821 

C 

822 

822 

PRINT  *  .ICONO.ICONP 

823 

823 

C 

824 

824 

IF(  ICONP  .  EQ  .  1  )  THEN 

825 

825 

REA0(8)  R1N,PIN,RIHL.PINL,UV1N,UIN,VIN,NIN,TT 

826 

326 

PRINT  *.  RIN.PIN.RINL.PINL.UVIN.UIN.VIN.WIN.TT 

827 

827 

C 

READ  (8)  NPRTCL 

828 

828 

C 

IF(NPRTCL.GT.O) 

829 

829 

C 

.  READ  (8)  { I JKPRT( IK), IK-1. NPRTCL) 

830 

830 

00  II  -  1  .  5 

831 

831 

READ(8)  ((HYDVdC. IK). IK-1.8). IC-l, NO 

832 

832 

END  DO 

833 

833 

C 

834 

834 

END  IF 

835 

835 

C 

836 

836 

ZCOUNT  -  0 

837 

337 

DO  380  IC  -  1  .  NC 

838 

838 

RCOUNT  -  HYOV(  IC  .  8  )  ♦  .5  *  HYDV(  IC  ,  1  )  • 

839 

839 

(  HYDV(  IC  .  2  )  *  HYDV(  IC  .  2  )  ♦ 

840 

840 

HY0V(  IC  .  3  )  •  HY0V(  IC  .  3  )  + 

841 

841 

HY0V(  IC  ,  4  )  •  HYDV(  IC  .  4  )  ) 

ZCOUNT  -  ZCOUNT  ♦  XC(  4  .  IC  )  *  RCOUNT 

842 

842 

843 

843 

380 

CONTINUE 

844 

844 

YCOUNT  -  ZCOUNT  -  XCOUNT 

845 

345 

PRINT  •  .ZCOUNT. YCOUNT 

846 

846 

CALL  HYDRHN 

847 

847 

C 

848 

849 

850 

348 

849 

850 

C  — 
C 

C 

EXIT  POINT  FROM  PROGRAM  - 

851 

851 

c 

STOP  777 

034 

853 

853 

c 

854 

854 

c  — 

FORMATS  - 

855 

855 

c 

FORHATdH  . ' ICONO-' .  12. 5X.  'ICONP-' .  12. 5X. ' lOPTN-' .  I2./.1X, 

856 

856 

101 

857 

857 

.  'XHCHIN-'.FlS.e.SX.'RIN-'.FlS.S.SX.'PIN-'.FlS.e./.lX. 

858 

358 

•ALFA-’ .FI3.6,5X. 'HRGG-' .F13.6,5X. ' IHRN-' . I2.5X./.1X. 

859 

859 

' NTIME- ’ , 12 . 5X. 'NDUHP- ' , 15. 5X. ’ lOPORD- ' . 12 ) 

860 

360 

861 

861 

END 

862 

862 

c 

814 

815 

816 

817 

818 

819 

820 
821 
822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 
861 
862 
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863 

1 

SUBROUTINE  HYORFL 

863 

864 

2 

C 

864 

865 

3 

c - 

865 

866 

4 

c 

I 

866 

867 

5 

c 

HYORFL  IS  A  2  DIMENSIONAL  RIEHANN  SOLVER  THAT  INTEGRATES  1 

867 

868 

6 

c 

FLUXES  ACROSS  NORMAL  INTERFACES  TO  UPDATE  VERTICES  I 

868 

869 

7 

c 

VARIABLES  .  I 

869 

870 

8 

c 

I 

870 

871 

9 

C— — 

871 

872 

10 

c 

872 

873 

11 

include  'dmshOO.h' 

873 

874 

12 

include  'dhydmO.h' 

874 

875 

13 

include  'dphsmO.h* 

include  'dmtrlO.h' 

875 

876 

14 

876 

877 

15 

c 

877 

878 

16 

REAL  0£LP(128).HS0P(128).WS0H{128).HS00(128). 

878 

879 

17 

RSTAR(128).CSTAR(128).PMAX(128).PMIN(128) 

879 

880 

18 

REAL  RRIGHT(128),URIGHT(128}.VRIGHT(128),PRIGHT(I28) 

880 

881 

19 

REAL  RLEFTT(128).ULEFTT(128),VLEFTT(128).PLEFTT(128) 

881 

882 

20 

REAL  ENRGYI(128),ANRGYI(128) 

882 

883 

21 

c 

883 

884 

22 

C  ••• 

BEGIN  LOOP  OVER  ALL  EDGES  IN  THE  DOMAIN  - 

884 

885 

23 

c 

885 

886 

24 

00  260  IH  «  I  .  6 

886 

887 

25 

00  280  IC  -  1  ,  NC 

887 

888 

26 

HYOFLX(  IC  .  IK  )  ■  0. 

888 

889 

27 

280 

CONTINUE 

889 

890 

28 

c 

890 

891 

29 

NSl  •  1 

891 

892 

30 

HS2  ■  NOFVES(  1  ) 

892 

893 

31 

00  110  INS  «  1  .  NVEES 

893 

894 

32 

c 

894 

895 

33 

FETCH  HYDRO  QUANTITIES  - 

895 

896 

34 

c 

896 

897 

35 

00  120  IS  >  NSl  .  NS2 

897 

898 

36 

KS  -  IS  -  NSl  +  1 

898 

899 

37 

c 

899 

900 

38 

RRR(  KS  )  •  RR(  IS  ) 

900 

901 

39 

UUR(  KS  )  •  UR(  IS  ) 

901 

902 

40 

WR(  KS  )  -  VR(  IS  ) 

902 

903 

41 

HM)(  KS  )  -  WR(  IS  ) 

903 

904 

42 

PPR(  KS  )  -  PR(  IS  ) 

904 

905 

43 

AAR(  KS  )  •  AR(  IS  ) 

905 

906 

44 

EER(  KS  )  -  ER(  IS  ) 

906 

907 

45 

GGR(  KS  )  -  GR(  IS  ) 

907 

908 

46 

c 

908 

909 

47 

RRL(  KS  )  -  RL(  IS  ) 

909 

910 

48 

UUL(  KS  )  -  UL(  IS  ) 

910 

911 

49 

VVL(  KS  )  •  VL(  IS  ) 

911 

912 

50 

V«L(  KS  )  •  HL(  IS  ) 

912 

913 

51 

PPL(  KS  )  -  PL(  IS  ) 

913 

914 

52 

AAL(  KS  )  -  AL(  IS  ) 

914 

915 

53 

EEL(  KS  )  -  £L(  IS  ) 

915 

916 

54 

GGL(  KS  )  -  GL(  IS  ) 

916 

917 

55 

c 

917 

918 

56 

120 

CONTINUE 

918 

919 

57 

C 

919 

920 

58 

00  130  KS  -  1  ,  NOFVES(  INS  ) 

920 

921 

59 

C 

921 

922 

60 

C  — 

THIS  SECTION  OF  CODE  SOLVES  FOR  'PSTAR’  AND  "USTAR"  IN 

922 

923 

61 

c 

THE  RIEMAHN  PROBLEM  USING  NEWTON’S  METHOD. 

923 

924 

62 

c 

924 

925 

63 

HLEFT(  KS  )  -  SQRT(  GGL(  KS  )  *  PPL{  KS  )  •  RRL(  KS  )  ) 

925 

926 

64 

HR1GT(  KS  )  -  SQRT(  GGR(  KS  )  *  PPR(  KS  )  *  RRR(  KS  )  ) 

926 

927 

65 

HLESO(  KS  )  -  WLEFT(  KS  )  *  HLEFT(  KS  ) 

927 

928 

66 

HRISOC  KS  )  -  HR1GT(  KS  )  *  HRIGT(  KS  ) 

928 

929 

67 

c 

929 

930 

68 

PHIN(  KS  )  -  AMINK  PPL(  KS  )  .  PPR(  KS  )  ) 

930 

931 

69 

PSML(  KS  )  -  HRSM  *  PHIN(  KS  ) 

931 

932 

70 

c 

932 

933 

71 

c  — 

FORM  THE  STARTING  GUESS  FOR  THE  SOLUTION  . 

933 

934 

72 

c 

934 

935 

73 

PSTAR(  KS  )  -  (  HLEFT(  KS  )  •  PPR(  KS  )  * 

935 

936 

74 

HRIGT(  KS  )  •  PPL(  KS  )  - 

936 
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937 

75 

WLEFT(  KS  )  •  WRIGT(  KS  )  • 

937 

938 

76 

(  UUR(  KS  )  -  UUL(  KS  )  )  )  / 

938 

939 

77 

{  HLEFT(  KS  )  +  WRI6T(  KS  )  ) 

939 

940 

78 

PSTAR(  KS  )  -  AHAXK  PSTAR(  KS  )  .  PSML(  KS  )  ) 

940 

941 

79 

130 

CONTINUE 

941 

942 

SO 

C 

942 

943 

81 

00  140  1  •  1  ,  IHRN 

943 

944 

82 

C 

944 

945 

83 

c 

— 

BEGIN  THE  HEHTON  ITERATION  - 

945 

946 

84 

c 

946 

947 

85 

DO  150  KS  -  1  .  NOFVESI  INS  ) 

947 

948 

86 

CFFL  -  (  6GL(  KS  )  »  1.  )  /  {  2.  *  GGL(  KS  )  ) 

948 

949 

87 

HLEFS(  KS  )  -  (  1.  *  CFFL  •  (  PSTAR(  KS  )  / 

949 

950 

88 

PPL(  KS  )  -  1.  )  )  *  HLESQ(  KS  ) 

950 

951 

89 

WLEF7(  KS  )  -  SQRT{  WLEFS(  KS  )  ) 

951 

952 

90 

ZLEn(  KS  )  -  2.  *  HLEFTf  KS  '  *  NLEFS(  KS  )  / 

952 

953 

91 

(  WLESg(  KS  )  +  HLEFS(  KS  )  ) 

953 

954 

92 

USTL(  KS  )  -  UUL(  KS  )  - 

954 

955 

93 

(  PSTAR(  KS  )  -  PPL{  KS  )  )  /  WLEFT(  KS  ) 

955 

956 

94 

150 

CONTINUE 

956 

957 

95 

C 

957 

958 

96 

00  152  KS  -  1  .  NOFVES(  INS  ) 

958 

959 

97 

CFFR  -  (  G6R(  KS  )  ♦  1.  )  /  (  2.  *  GGR(  KS  )  ) 

959 

960 

98 

WRIFS(  KS  )  •  (  1.  *  CFFR  *  (  PSTAR(  KS  )  / 

960 

961 

99 

PPR(  KS  )  -  1.  )  )  *  WRISQ{  KS  ) 

961 

962 

IQO 

HR1GT(  KS  )  -  SQRT(  «R1FS{  KS  )  ) 

962 

963 

101 

ZRIGT(  KS  )  -  2.  •  «RIGT(  KS  )  •  MRIFS(  KS  )  / 

963 

964 

102 

{  HRISQ{  KS  )  +  HRIFS(  KS  )  ) 

964 

965 

103 

USTR(  KS  )  -  UUR(  KS  )  ♦ 

965 

966 

104 

(  PSTAR(  KS  )  -  PPR(  KS  )  )  /  HRIGT(  KS  ) 

966 

967 

105 

152 

CONTINUE 

967 

968 

106 

C 

968 

969 

107 

DO  160  KS  -  1  ,  NOFVESI  INS  ) 

969 

970 

108 

DPST(  KS  )  -  ZLEFT(  KS  )  *  ZRIGT(  KS  )  • 

970 

971 

109 

.  (  USTR(  KS  )  -  USTL(  KS  )  )  / 

971 

972 

110 

.  (  ZLEFT(  KS  )  ♦  ZRIGTI  KS  )  ) 

972 

973 

111 

PSTAR(  KS  )  -  PSTAR(  KS  )  -  OPST(  KS  ) 

973 

974 

112 

PSTARl  KS  )  -  AHAXH  PSTAR(  KS  )  .  PSHL(  KS  )  ) 

974 

975 

113 

160 

CONTINUE 

975 

976 

114 

C 

976 

977 

115 

140 

CONTINUE 

977 

978 

116 

C 

978 

979 

117 

C 

FORM  FINAL  SOLUTIONS  - 

979 

980 

118 

C 

980 

981 

119 

00  170  KS  •  1  ,  NOFVES(  INS  ) 

981 

982 

120 

CFFL  -  (  GGL(  KS  )  +  1.  )  /  (  2.  •  GGL(  KS  )  ) 

982 

983 

121 

HLEFT{  KS  )  =  SORT!  HIESOI  KS  )  *  (  1.  + 

983 

984 

122 

CFFL  •  (  PSTAR(  KS  )  /  PPL(  KS  )  -  1.  )  )  ) 

984 

985 

123 

170 

CONTINUE 

985 

986 

124 

C 

986 

987 

125 

DO  172  KS  -  1  .  NOFVESI  INS  ) 

987 

988 

126 

CFFR  -  (  GGR(  KS  )  M.  )  /  (  2.  *  G6R(  KS  )  ) 

988 

989 

127 

HRIGT(  KS  )  -  SORT!  HRISO(  KS  )  *  (  1.  ♦ 

989 

990 

128 

CFFR  *  (  PSTAR(  KS  )  /  PPR(  KS  )  -  1.  )  )  ) 

990 

991 

129 

172 

CONTINUE 

991 

992 

130 

C 

992 

993 

131 

00  180  KS  -  1  .  NOFVESI  INS  ) 

993 

994 

132 

USTARI  KS  )  -  (  PPL(  KS  )  -  PPR(  KS  )  ♦ 

994 

995 

133 

WLEFT(  KS  )  •  UUL(  KS  )  + 

995 

996 

134 

MRI6T{  KS  )  *  UUR(  KS  )  )  / 

996 

997 

135 

(  WLEFT(  KS  )  ♦  WR1GT(  KS  )  ) 

997 

998 

136 

180 

CONTINUE 

998 

999 

137 

C 

999 

1000 

138 

DO  190  KS  -  1  ,  NOFVESI  INS  ) 

1000 

1001 

139 

c 

1001 

1002 

140 

c 

— 

BEGIN  PROCEDURE  TO  OBTAIN  FLUXES  FROM  REIHANN  FORMALISM  — 

1002 

1003 

141 

c 

1003 

1004 

142 

IF{  USTAR(  KS  )  .  LE  .  0.0  )  THEN 

1004 

1005 

143 

c 

1005 

1006 

144 

R0(  KS  )  >  RRR(  KS  ) 

1006 

1007 

145 

P0(  KS  )  »  PPR(  KS  ) 

1007 

1008 

146 

U0(  KS  )  -  UUR(  KS  ) 

1008 

1009 

147 

C0(  KS  )  «  SORT!  HRGG  *  PPR(  KS  )  /  RRR(  KS  )  ) 

1009 

1010 

148 

W0(  KS  )  -  WRIGT{  KS  ) 

1010 

page  14 


Thu  Jul  1  14:17:00  1993 


threed.f 


SUBROUTINE  HYORFl 


page  15 


1011 

149 

G0(  KS  )  >  GGR(  KS  ) 

toil 

1012 

150 

ISN{  KS  )  -  1 

1012 

1013 

151 

C 

1013 

1014 

152 

ENRGYK  KS  )  -  ££R<  KS  ) 

1014 

1015 

153 

ANRGYK  KS  )  -  AAR(  KS  ) 

1015 

1016 

154 

VGDHV(  KS  )  -  VVR(  KS  ) 

1016 

1017 

155 

NGONVl  KS  )  >  WWR(  KS  ) 

1017 

1018 

156 

C 

1018 

1019 

157 

ELSE 

1019 

1020 

158 

C 

1020 

1021 

159 

R0(  KS  )  •  RRL(  KS  ) 

1021 

1022 

160 

P0(  KS  )  -  PPL(  KS  ) 

1022 

102 : 

161 

U0(  KS  )  -  UUL(  KS  ) 

1023 

1024 

162 

C0(  KS  )  -  SORT(  HRGG  *  PPL{  KS  )  /  RRL(  KS  )  ) 

1024 

1025 

163 

W0(  KS  )  »  HLEFT(  KS  ) 

1025 

1026 

164 

G0(  KS  )  •  GGL(  KS  ) 

1026 

1027 

165 

ISN(  KS  )  -  -  1 

1027 

1028 

166 

C 

1028 

1029 

167 

ENRGYK  KS  )  -  EEL(  KS  ) 

1029 

1030 

168 

ANRGYK  KS  )  -  AAL(  KS  ) 

1030 

1031 

169 

VGONV(  KS  )  -  VVL(  KS  ) 

1031 

1032 

170 

WG(HIV(  KS  )  >  WHL(  KS  ) 

1032 

1033 

171 

END  IF 

1033 

1034 

172 

190 

CONTINUE 

1034 

1035 

173 

C 

1035 

1036 

174 

DO  200  KS  -  1  .  NOFVES(  INS  ) 

1036 

1037 

175 

DELP(  KS  )  -  PSTAR(  KS  )  -  P0(  KS  ) 

1037 

1038 

176 

«SOP(  KS  )  -  ISN(  KS  )  *  00{  KS  )  ■►  W0(  KS  )  /  R0(  KS  ) 

1038 

1039 

177 

HS0H(  KS  )  •  ISN(  KS  )  •  U0(  KS  )  ♦  C0(  KS  ) 

1039 

1040 

178 

200 

CONTINUE 

1040 

1041 

179 

C 

1041 

1042 

180 

00  210  KS  -  1  ,  NOFVESl  INS  ) 

1042 

1043 

181 

IF(  DELP(  KS  )  .  GT  .  0.  )  THEN 

1043 

1044 

182 

HSOO(  KS  )  -  HSOP(  KS  ) 

1044 

1045 

183 

ELSE 

1045 

1046 

184 

MSOO(  KS  )  •  WSON(  KS  ) 

1046 

1047 

185 

END  IF 

1047 

1048 

186 

210 

CONTINUE 

1048 

1049 

187 

C 

1049 

1050 

188 

00  220  KS  -  1  .  N0FVE5(  INS  ) 

1050 

1051 

189 

c 

1052 

1052 

190 

c 

USE  OUTER  STATE  SOLUTION  - 

1052 

1053 

191 

c 

1053 

1054 

192 

PGONV(  KS  )  -  P0(  KS  ) 

1054 

1055 

193 

UGONV(  KS  )  =  U0(  KS  ) 

1055 

1056 

194 

CGONV(  KS  )  >  C0(  KS  ) 

1056 

1057 

195 

RGORV(  KS  )  -  R0{  KS  ) 

1057 

1058 

196 

220 

CONTINUE 

1058 

1059 

197 

C 

1059 

1060 

198 

C  — 

COMPUTE  STARRED  VALUES  - 

1(»0 

1061 

199 

C 

1061 

1062 

ZOO 

00  ?'?')  KS  -  I  .  NOFVESI  INS  ) 

1062 

1063 

201 

RSTAR(  KS  )  -  1.  /  (  1.  /  R0(  KS  )  -  OELP(  KS  )  / 

1063 

1064 

202 

{  W}(  KS  )  *  H0{  KS  )  )  ) 

1064 

1065 

203 

CSTAR(  KS  )  -  SORT!  G0{  KS  )  *  PSTAR{  KS  )  /  RSTAR(  KS  )  ) 

1065 

1066 

204 

WSOM(  KS  )  *  ISN(  KS  )  •  USTAR(  KS  )  +  CSTAR(  KS  ) 

1066 

1067 

205 

230 

CONTINUE 

1067 

1068 

206 

C 

1068 

1069 

207 

00  240  KS  -  1  ,  NOFVESI  INS  ) 

1069 

1070 

208 

IF(  OELP<  KS  )  .  CT  .  0.  )  THEN 

1070 

1071 

209 

SPIN(  KS  )  -  WSOP(  KS  ) 

1071 

1072 

210 

ELSE 

1072 

1073 

211 

SPIN(  KS  )  -  WS0H{  KS  ) 

1073 

107a 

212 

END  IF 

1074 

10" 

213 

240 

CONTINUE 

1075 

10.  :• 

214 

C 

1076 

IC"' 

215 

DO  250  KS  -  1  .  NOFVES(  INS  ) 

1077 

1C  .-a 

216 

c 

1078 

1079 

217 

1F(  HSOO(  KS  )  .  GE  .  0.  )  THEN 

1079 

1080 

218 

IF{  SPIN(  KS  )  .  GE  .  0.  )  THEN 

1080 

1081 

219 

c 

1081 

1082 

220 

c  — 

USE  THE  STARRED  STATE  RESULTS  . 

1082 

1083 

221 

c 

1083 

1084 

222 

RGOHV(  KS  )  -  RSTAR(  KS  ) 

1084 
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1085 

223 

UGDHVI  KS  )  -  USTAR{  KS  ) 

1085 

1086 

224 

CG0NV(  KS  )  -  CSTAR(  KS  ) 

1086 

1087 

225 

PGDNV(  KS  )  .  PSTAR(  KS  ) 

1087 

1088 

226 

ELSE 

1088 

1089 

227 

C 

1089 

1090 

228 

c  - 

-  EVALUATE  THE  INSIDE  RAREFACTION  WAVE  - 

1090 

1091 

229 

c 

1091 

1092 

230 

CGDNV(  KS  )  -  (  CSTAR(  KS  )  *  2.  - 

1092 

1093 

231 

ISH(  KS  )  ‘  USTAR(  KS  )  *  (  G0(  KS  )  -  1.  )  ) 

1093 

1094 

232 

/  (  G0(  KS  )  +  1.  ) 

1094 

1095 

233 

UGDNV(  KS  )  -  -  ISM(  KS  )  •  CGDNV(  KS  ) 

1095 

1096 

234 

RGDNV(  KS  )  -  {  CG0NV(  KS  )  /  C0(  KS  )  )  ** 

1096 

1097 

235 

{  2.  /  (  60(  KS  )  -  1.  )  )  •  R0(  KS  ) 

1097 

1098 

236 

PGONV(  KS  )  -  CGONV(  KS  )  *  CGDNV(  KS  )  *  RGONV(  KS  )  / 

1098 

1099 

237 

G0(  KS  ) 

1099 

1100 

238 

c 

1100 

1101 

239 

END  IF 

1101 

1102 

240 

c 

1102 

1103 

241 

END  IF 

1103 

1104 

242 

250 

CONTINUE 

1104 

1105 

243 

C 

1105 

1106 

244 

00  260  KS  •  1  .  NOFVESI  INS  ) 

1106 

1107 

245 

IS  •  KS  ♦  NSl  -  1 

1107 

1108 

246 

C 

1108 

1109 

247 

ICL  -  JS(  7  .  IS  ) 

1109 

1110 

248 

ICR  -  JS(  8  ,  IS  ) 

1110 

nil 

249 

C 

nil 

1112 

250 

CTT  -  SORT{  G0(  KS  )  *  PGONV(  KS  )  /  RGDNV(  KS  )  ) 

1112 

1113 

251 

XSS  -  XS(  5  .  IS  ) 

1113 

1114 

252 

XYZ  ■  1.  /  XSS 

1114 

1115 

253 

C 

1115 

1116 

254 

lATRB  -  JS(  9  ,  tS  ) 

1116 

1117 

255 

IF(  lATRB  .  EQ  .  0  )  THEN 

1117 

1118 

256 

C 

1118 

1119 

257 

XXN  -  (  XC(  1  .  ICR  )  -  XC(  1  .  ICL  )  )  •  XYZ 

1119 

1120 

258 

YYN  -  (  XC(  2  ,  ICR  )  -  XC(  2  .  ICL  )  )  *  XYZ 

1120 

1121 

259 

ZZH  •  {  XC(  3  ,  ICR  )  -  XC(  3  .  ICL  )  )  *  XYZ 

1121 

1122 

260 

c 

1122 

1123 

261 

VEL  - 

1123 

1124 

262 

.  (  UC»NV(  KS  )  *  XN(  IS  )  ^ 

1124 

1125 

263 

.  VGOHVI  KS  )  *  XP(  IS  )  ♦ 

1125 

1126 

264 

HGDNV(  KS  )  *  XT(  IS  )  )  •  XXN  ♦ 

1126 

1127 

265 

.  (  UGfflIVI  KS  )  *  YH(  IS  )  ♦ 

1127 

1128 

266 

VGONV(  KS  )  •  YP(  IS  )  + 

1128 

1129 

267 

.  HGDHVI  KS  )  *  YT(  IS  )  )  •  YYN  ♦ 

1129 

1130 

268 

(  UGONV{  KS  )  •  ZN(  IS  )  ♦ 

1130 

1131 

269 

VGONVI  KS  )  *  ZP(  IS  )  + 

1131 

1132 

270 

WG0HV(  KS  )  *  ZT(  IS  )  )  *  ZZN 

1132 

1133 

271 

c 

1133 

1134 

272 

DTU  -  XSS  /  (  Cn  >  ABS(  VEL  )  ) 

1134 

1135 

273 

DTT  -  ANINK  DTU  ,  OTT  ) 

1135 

1136 

274 

c 

1136 

1137 

275 

ELSE 

1137 

1138 

276 

c 

1138 

1139 

277 

XXN  -  (  XYZHDLI  1  .  IS  )  -  XC(  1  .  ICL  )  )  *  XYZ 

1139 

1140 

278 

YYN  -  (  XYZMDLI  2  ,  IS  )  -  XC{  2  .  ICL  )  )  *  XYZ 

1140 

1141 

279 

ZZN  -  (  XYZMOLI  3  .  IS  )  -  XC(  3  ,  ICL  )  )  •  XYZ 

1141 

1142 

280 

c 

1142 

1143 

281 

VEL  - 

1143 

1144 

282 

(  UGDNV(  KS  )  •  XN(  IS  )  + 

1144 

1145 

283 

VGDNV(  KS  )  *  XP(  IS  )  + 

1145 

1146 

284 

WGOHV(  KS  )  *  XT(  IS  )  )  *  XXN  + 

1146 

1147 

285 

{  UGDNV(  KS  )  *  YN(  IS  )  + 

1147 

1148 

286 

VGDNV(  KS  )  •  YP(  IS  )  + 

1148 

1149 

287 

«GDHV(  KS  )  *  YT(  IS  )  )  *  YYN  ♦ 

1149 

1150 

288 

(  UGDNV(  KS  )  •  ZN(  IS  )  * 

1150 

1151 

289 

VGDNV(  KS  )  *  ZP(  IS  )  + 

1151 

1152 

290 

WGDNVI  KS  )  *  ZT(  IS  )  )  •  ZZN 

1152 

1153 

291 

c 

1153 

1154 

292 

DTU  ■  XSS  /  (  CTT  ♦  ABS(  VEL  )  ) 

1154 

1155 

293 

OTT  -  AHIN1{  DTU  .  DTT  ) 

1155 

1156 

294 

c 

1156 

1157 

295 

END  IF 

1157 

1158 

296 

260 

CONTINUE 

1158 
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1159 

297 

C 

1159 

1160 

298 

00  270  KS  -  1  .  N0FVE5(  INS  ) 

1160 

1161 

299 

IS  -  KS  +  NSl  -  1 

1161 

1162 

300 

c 

1162 

1163 

301 

c  .. 

.  FLUX  FOR  DENSITY  . 

1163 

1164 

302 

c 

1164 

1165 

303 

R0(  KS  )  -  RGDNV(  KS  )  *  UGDNV{  KS  ) 

1165 

1166 

304 

c 

1166 

1167 

305 

c  .. 

.  FLUX  FOR  MOHENTUM  DENSITY  . 

1167 

1168 

306 

c 

1168 

1169 

307 

U0(  KS  )  -  PGDNV(  KS  )  •  XM(  IS  )  * 

1169 

1170 

308 

R0(  KS  )  »  (  UGDHVI  KS  )  »  XN(  IS  )  + 

1170 

1171 

309 

VGONV(  KS  )  *  XP(  IS  )  * 

1171 

1172 

310 

WGONVI  KS  )  *  XT(  IS  )  ) 

1172 

1173 

311 

C0(  KS  )  -  PGONV(  KS  )  •  YH(  IS  )  ♦ 

1173 

1174 

312 

R0(  KS  )  *  (  UGWIVI  KS  )  •  YN(  IS  )  + 

1174 

1175 

313 

VGOHV(  KS  )  *  YP(  IS  )  ♦ 

1175 

1176 

314 

WGONV{  KS  )  *  YT(  IS  )  ) 

1176 

1177 

315 

W0(  KS  )  -  PGOHV(  KS  )  •  ZN(  IS  )  ♦ 

1177 

1178 

316 

R0(  KS  )  *  (  UGONV(  KS  )  *  ZN(  IS  )  + 

1178 

1179 

317 

VGONV(  KS  )  *  2P(  IS  )  + 

1179 

1180 

318 

WGONV(  KS  )  •  ZT{  IS  )  ) 

1180 

1181 

319 

c 

1181 

1182 

320 

c  .. 

.  FLUX  FOR  ENERGY  DENSITY  . 

1162 

1183 

321 

c 

1183 

1184 

322 

P0(  KS  )  -  UGDNVI  KS  )  •  (  ENRGYK  KS  )  + 

1184 

1185 

323 

.5  *  RGDNV(  KS  )  •  (  UGDNVI  KS  )  *  UGONV(  KS  )  ♦ 

1185 

1186 

324 

VGDNV(  KS  )  *  VGDHV(  KS  )  + 

1186 

1187 

325 

HGDMV{  KS  )  *  WGDHVI  KS  )  )  ) 

1187 

1188 

326 

c 

1188 

1189 

327 

c  .. 

.  FLUX  FOR  COMBUSTION  INTERFACE  TRACKING  . 

1189 

1190 

328 

c 

1190 

1191 

329 

A0{  KS  )  -  UGDNV(  KS  )  *  RGDNV(  KS  )  *  ANRGYI(  KS  ) 

1191 

1192 

330 

c 

1192 

1193 

331 

270 

CONTINUE 

1193 

1194 

332 

c 

1194 

1195 

333 

DO  290  IS  -  NSl  ,  NS2 

1195 

1196 

334 

KS  -  IS  -  NSl  +  1 

1196 

1197 

335 

c 

1197 

1198 

336 

ICL  -  JS(  7  .  IS  ) 

1198 

1199 

337 

ICR  •  JS(  8  ,  IS  } 

1199 

1200 

338 

c 

1200 

1201 

339 

lATIW  -  JS{  9  ,  IS  ) 

1201 

1202 

340 

IF(  lATRB  .  ED  .  0  )  THEN 

1202 

1203 

341 

c 

1203 

1204 

342 

c  .. 

.  FLUX  FOR  DENSITY  . . . 

1204 

1205 

343 

c 

1205 

1206 

344 

OLENG  -  XS(  4  .  IS  )  *  R0{  KS  ) 

1206 

1207 

345 

HYOFLXI  ICL  ,  1  )  -  HYDFLXI  ICL  .  1  )  +  DLENG 

1207 

1208 

346 

HYDFLX(  ICR  .  1  )  -  HYDFLX(  ICR  .  1  )  -  OLENG 

1208 

1209 

347 

c 

1209 

1210 

348 

c  .. 

.  FLUX  FOR  MOMENTUM  DENSITY  (  U  DIRECTION  )  . 

1210 

1211 

349 

c 

1211 

1212 

350 

OLENG  -  XS(  4  ,  IS  )  »  U0(  KS  ) 

1212 

1213 

351 

HYOFLX(  ICL  .  2  )  ■  HYDFLX(  ICL  .  2  )  +  OLENG 

1213 

1214 

352 

HYOFLX(  ICR  ,  2  )  -  HYOFLX(  ICR  ,  2  )  -  OLENG 

1214 

1215 

353 

c 

1215 

1216 

354 

c  .. 

.  FLUX  FOR  MOHENTUM  DENSITY  (  V  DIRECTION  )  . 

1216 

1217 

355 

c 

1217 

1218 

356 

DLENG  -  XS(  4  ,  IS  )  •  C0(  KS  ) 

1218 

1219 

357 

HYOFLX(  ICL  ,  3  )  -  HYOFLXI  ICL  .  3  )  +  OLENG 

1219 

1220 

358 

HYOFLX(  ICR  .  3  )  -  HYOFLXI  ICR  .  3  )  -  DLENG 

1220 

1221 

359 

c 

1221 

1222 

360 

c  .. 

.  FLUX  FOR  MOHENTUM  DENSITY  (  W  DIRECTION  )  . 

1222 

1223 

361 

c 

1223 

1224 

362 

DLENG  •  XS(  4  ,  IS  )  *  H0(  KS  ) 

1224 

1225 

363 

HYOFLXI  ICL  .  4  )  -  HYOFLXI  ICL  ,  4  )  ♦  OLENG 

1225 

1226 

364 

HYDFLXI  ICR  ,  4  )  -  HYOFLXI  ICR  ,  4  )  -  DLENG 

1226 

1227 

365 

c 

1227 

1228 

366 

c  .. 

.  FLUX  FOR  ENERGY  DENSITY  . 

1228 

1229 

367 

c 

1229 

1230 

368 

OLENG  -  XSI  4  .  IS  )  *  POI  KS  ) 

1230 

1231 

369 

HYOFLXI  ICL  ,  5  )  -  HYDFLXI  ICL  .  5  )  +  OLENG 

1231 

1232 

370 

HYOFLXI  ICR  .  5  )  -  HYOFLXI  ICR  .  5  )  -  OLENG 

1232 
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1233 

371 

C 

1234 

372 

C  ... 

FLUX  FOR  COMBUSTION  INTERFACE  TRACKING . 

1235 

373 

c 

1236 

374 

DLEKG  -  XS{  4  .  IS  )  *  A0(  KS  ) 

1237 

375 

HYOFLX(  ICL  .  6  )  •  HYOFLX(  ICL  .  6  )  +  OLEHG 

1238 

376 

HYDFLX(  ICR  .  6  )  •  HYDFLX(  ICR  .  6  )  -  OLEHG 

1239 

377 

c 

1240 

378 

ELSE 

1241 

379 

c 

1242 

380 

c  ... 

FLUX  FOR  DENSITY  . 

1243 

381 

c 

1244 

382 

OLEHG  -  XS(  4  ,  IS  )  *  R0(  KS  ) 

1245 

383 

HYDFLX(  ICL  .  1  )  -  HYDFU(  ICL  .  1  )  +  OLEHG 

1246 

384 

c 

1247 

385 

c  ... 

FLUX  FOR  HOHENTUH  DENSITY  {  U  DIRECTION  )  .... 

1248 

386 

c 

1249 

387 

OLEHG  -  XS(  4  ,  IS  )  *  U0(  KS  ) 

1250 

388 

HYOFLX(  ICL  .  2  )  -  HYDFLX(  ICL  ,  2  )  ♦  OLEHG 

1251 

389 

c 

1252 

3W 

c  ... 

FLUX  FOR  HOHENTUH  DENSITY  (  V  DIRECTION  )  .... 

1253 

391 

c 

1254 

392 

OLEHG  -  XS{  4  ,  IS  )  *  C0(  KS  ) 

1255 

393 

HYOFLX(  ICL  ,  3  )  -  HYDFLX(  ICL  ,  3  )  ♦  OLEHG 

1256 

394 

c 

1257 

395 

c  ... 

FLUX  FOR  HOHEHTUH  DENSITY  {  W  DIRECTION  )  .... 

1258 

396 

c 

1259 

397 

OLEHG  -  XS(  4  ,  IS  )  *  H0(  KS  ) 

1260 

398 

HYOFLX(  ICL  .  4  )  .  HYOFLX(  ICL  .  4  )  +  OLEHG 

1261 

399 

c 

1262 

400 

c  ... 

FLUX  FOR  ENERGY  DENSITY  . 

1263 

401 

c 

1264 

402 

OLEHG  -  XS(  4  ,  IS  )  *  P0(  KS  ) 

1265 

403 

HYOFLX(  ICL  .  5  )  -  HYOFLX(  ICL  .  5  >  +  OLEHG 

1266 

404 

c 

1267 

405 

c  ... 

FLUX  FOR  COlfflUSTION  INTERFACE  TRACKING . 

1268 

406 

c 

1269 

407 

OLEHG  -  XS(  4  .  IS  )  *  A0(  KS  ) 

1270 

408 

HYOFLX(  ICL  .  6  )  -  HYDFLX(  ICL  ,  6  )  +  OLEHG 

1271 

409 

c 

1272 

410 

END  IF 

1273 

411 

290 

CONTINUE 

1274 

412 

c 

1275 

413 

NSl  -  NS2  *  I 

1276 

414 

HS2  -  NS2  +  NOFVESI  INS  +  1  ) 

1277 

415 

110 

CONTINUE 

1278 

416 

c 

1279 

417 

RETURN 

1280 

418 

END 

1281 

419 

c 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 


1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
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1282 

1 

SUBROUTINE  RYORFL 

1282 

1283 

2 

C 

1283 

1284 

3 

C-— 

- - I 

1284 

1285 

4 

C 

I 

1285 

1286 

5 

C 

RYORFL  IS  A  2  DIMENSIONAL  RIEHANN  SOLVER  THAT  INTEGRATES  I 

1286 

1287 

6 

C 

FLUXES  ACROSS  NORMAL  INTERFACES  TO  UPDATE  VERTICES  I 

1287 

1288 

7 

C 

VARIABLES  .  1 

1288 

1289 

8 

C 

1 

1289 

1290 

9 

C— — 

- 1 

1290 

1291 

10 

C 

1291 

1292 

11 

include  'dmshOO.h' 

1292 

1293 

12 

include  ‘dhydmO.h' 

1293 

1294 

13 

include  'dphsnO.h* 

1294 

1295 

14 

include  'dmtrlO.h' 

1295 

1296 

15 

c 

1296 

1297 

16 

REAL  0ELP(128),HS0P(128).HS0M(128).HS00(128), 

1297 

1298 

17 

RSTAR(128).CSTAR(128).PMAX{128).PHIN(128) 

1298 

1299 

18 

REAL  RRIGHT(228).URIGHT{128},VRIGHT(128),PRIGHT(128) 

1299 

1300 

19 

REAL  RLEFTTl  128) .  ULEFTT(  128) . VLEFTT(  128) ,  PLEFTT  (128) 

1300 

1301 

20 

REAL  ENRGYI(128).ANRGYI(128) 

1301 

1302 

21 

c 

1302 

1303 

22 

c  — 

BEGIN  LOOP  OVER  ALL  EDGES  IN  THE  DOMAIN  - 

1303 

1304 

23 

c 

1304 

1305 

24 

NSl  -  1 

1305 

1306 

25 

NS2  >  NOFVES(  1  } 

1306 

1307 

26 

DO  110  INS  -  1  ,  NVEES 

1307 

1308 

27 

c 

1308 

1309 

28 

c  — 

FETCH  HYDRO  QUANTITIES  - 

1309 

1310 

29 

c 

1310 

1311 

30 

DO  120  IS  -  NSl  .  NS2 

1311 

1312 

31 

KS  -  IS  -  NSl  +  1 

1312 

1313 

32 

c 

1313 

1314 

33 

ICL  -  JS(  7  ,  IS  ) 

1314 

1315 

34 

I0C  -  JS(  9  .  IS  ) 

1315 

1316 

35 

c 

1316 

1317 

36 

RRL(  KS  )  •  HY0V(  ICL  ,  1  ) 

1317 

1318 

37 

UUL(  KS  )  •  HYDV(  ICL  .  2  )  *  XN(  IS  )  + 

1318 

1319 

38 

HYDV(  ICL  .  3  )  •  YN(  IS  )  + 

1319 

1320 

39 

HYDV(  ICL  .  4  )  *  ZN(  IS  ) 

1320 

1321 

40 

WL(  KS  )  -  HY0V(  ICL  .  2  )  *  XP(  IS  )  + 

1321 

1322 

41 

.  HYOV(  ICL  .  3  )  *  YP(  IS  )  + 

1322 

1323 

42 

HV0V(  ICL  .  4  )  *  ZP(  IS  ) 

1323 

1324 

43 

WHL(  KS  )  -  HY0V(  ICL  ,  2  )  *  XT(  IS  )  ♦ 

1324 

1325 

44 

HYDV(  ICL  .  3  )  *  YT(  IS  )  ♦ 

1325 

1326 

45 

HYDV(  ICL  .  4  )  •  ZT(  IS  ) 

1326 

1327 

46 

PPL(  KS  )  •  HY0V(  ICL  .  5  ) 

1327 

1328 

47 

AAL(  KS  )  =>  HYOV(  ICL  .  6  ) 

1328 

1329 

48 

EEL(  KS  )  .  HY0V(  ICL  .  8  ) 

1329 

1330 

49 

GGL(  KS  )  -  HYOV(  ICL  .  7  ) 

1330 

1331 

50 

c 

1331 

1332 

51 

RRR(  KS  )  -  RRL(  KS  ) 

1332 

1333 

52 

IF(  IBC  .  EO  .  0  )  THEN 

1333 

1334 

53 

UUR(  KS  )  -  UUL(  KS  ) 

1334 

1335 

54 

ELSE 

1335 

1336 

55 

UUR(  KS  )  -  -  UUL(  KS  ) 

1336 

1337 

56 

END  IF 

1337 

1338 

57 

VVR(  KS  )  -  VVL(  KS  ) 

1338 

1339 

58 

HHR(  KS  )  •  HHL(  KS  ) 

1339 

1340 

59 

PPR(  KS  )  -  PPL(  KS  ) 

1340 

1341 

60 

AAR(  KS  )  •  AAL(  KS  ) 

1341 

1342 

61 

EER(  KS  )  -  EEL(  KS  ) 

1342 

1343 

62 

GGR(  KS  )  •  GGL(  KS  ) 

1343 

1344 

63 

c 

1344 

1345 

64 

120 

CONTINUE 

1345 

1346 

65 

c 

1346 

1347 

66 

DO  130  KS  -  1  .  NOFVES(  INS  ) 

1347 

1348 

67 

c 

1348 

1349 

68 

c  — 

THIS  SECTION  OF  CODE  SOLVES  FOR  "PSTAR"  AND  "USTAR"  IN 

1349 

1350 

69 

c 

THE  RIEHANN  PROBLEM  USING  NEWTON'S  METHW). 

1350 

1351 

70 

c 

1351 

1352 

71 

WLEFT(  KS  )  -  SORT(  GGL(  KS  )  *  PPL(  KS  )  *  RRL(  KS  )  ) 

1352 

1353 

72 

WRIGT(  KS  )  -  SORT(  GGR{  KS  )  *  PPR(  KS  )  *  RRR(  KS  )  ) 

1353 

1354 

73 

WLESO{  KS  )  -  HLEFT(  KS  )  *  WLEFT(  KS  ) 

1354 

1355 

74 

HRISQ(  KS  )  -  HR1GT(  KS  )  *  HRIGT(  KS  ) 

1355 
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1356 

75 

C 

1356 

1357 

76 

PHIN(  KS  )  .  AHIHK  PPL(  KS  )  .  PPR(  KS  )  ) 

1357 

1358 

77 

PSHL(  KS  )  .  HRSH  *  PMIK(  KS  ) 

1358 

1359 

78 

C 

1359 

1360 

79 

C  — 

•  FORM  THE  STARTING  GUESS  FOR  THE  SOLUTION  - 

1360 

1361 

80 

C 

1361 

1362 

81 

PSTAR(  KS  )  -  (  HLEFT(  KS  )  *  PPR(  KS  )  + 

1362 

1363 

82 

WR1GT(  KS  )  *  PPL(  KS  )  - 

1363 

1364 

83 

HLEFT(  KS  )  •  WRIGT(  KS  )  * 

1364 

1365 

84 

(  UUR(  KS  )  -  UUL(  KS  )  )  )  / 

1365 

1366 

85 

(  WLEFT(  KS  )  +  WR1GT(  KS  )  ) 

1366 

1367 

86 

PSTAR(  KS  )  -  AHAXK  PSTAR(  KS  )  .  PSHL(  KS  )  ) 

1367 

1368 

87 

130 

CONTINUE 

1368 

1369 

88 

C 

1369 

1370 

89 

00  140  1  -  1  ,  IHRN 

1370 

1371 

90 

C 

1371 

1372 

91 

C  — 

•  BEGIN  THE  NEHTON  ITERATION  - 

1372 

1373 

92 

C 

1373 

1374 

93 

DO  150  KS  -  1  .  NOFVES(  INS  ) 

1374 

1375 

94 

CFFL  -  (  GGL(  KS  )  ♦  1.  )  /  {  2.  *  GGL(  KS  )  ) 

1375 

1376 

95 

HLEFS(  KS  )  -  (  1-  *  CFFL  *  (  PSTAR(  KS  )  / 

1376 

1377 

96 

PPL(  KS  )  -  1,  )  )  •  HLESQ(  KS  ) 

1377 

1378 

97 

HLEFT(  KS  )  -  SQRT(  HLEFS(  KS  )  ) 

1378 

1379 

98 

ZLEFT(  KS  )  -  2.  •  HLEFT(  KS  )  •  HLEFS(  KS  )  / 

1379 

1380 

99 

(  HLESQ{  KS  )  +  HLEFS(  KS  )  ) 

1380 

1381 

100 

USTL(  KS  )  -  UUL(  KS  )  - 

1381 

1382 

101 

(  PSTAR(  KS  )  -  PPL(  KS  )  )  /  WLEFT(  KS  ) 

1382 

1383 

102 

150 

CONTINUE 

1383 

1384 

103 

c 

i3M 

1385 

104 

00  152  KS  -  1  ,  NOFVES(  INS  ) 

1385 

1386 

105 

CFFR  -  (  GGR(  KS  )  +  1.  )  /  (  2.  *  GGR(  KS  )  ) 

1386 

1387 

106 

HRIFS(  KS  )  -  (  1.  +  CFFR  •  (  PSTAR(  KS  )  / 

1387 

1388 

107 

.  PPR{  KS  )  -  1.  )  )  *  HRISQ(  KS  ) 

1388 

1389 

108 

WRIGT(  KS  )  -  SQRTI  HRIFS(  KS  )  ) 

1389 

1390 

109 

ZRIGT(  KS  )  -  2.  *  NRIGT(  KS  )  *  MRIFS(  KS  )  / 

1390 

1391 

110 

(  HRISQI  KS  )  ♦  HRIFS(  KS  )  ) 

1391 

1392 

111 

USTR(  KS  )  -  UUR(  KS  )  ♦ 

1392 

1393 

112 

.  (  PSTAR(  KS  )  -  PPR(  KS  )  )  /  HRI6T(  KS  ) 

1393 

1394 

113 

152 

CONTINUE 

1394 

1395 

114 

C 

1395 

1396 

US 

DO  160  KS  •  1  ,  NOFVES(  INS  ) 

1396 

1397 

116 

OPST(  KS  )  -  ZLEFT(  KS  )  •  ZRIGT(  KS  )  * 

1397 

1398 

117 

.  (  USTR(  KS  )  -  0STL(  KS  )  )  / 

1398 

1399 

118 

.  (  ZLEFT(  KS  )  +  ZRIGT(  KS  )  ) 

1399 

1400 

119 

PSTAR(  KS  )  -  PSTAR(  KS  )  -  DPST(  KS  ) 

1400 

1401 

120 

PSTAR(  KS  )  -  AHAXK  PSTAR(  KS  )  .  PSHLf  KS  )  1 

1401 

1402 

121 

160 

CONTINUE 

1402 

1403 

122 

C 

1403 

1404 

123 

140 

CONTINUE 

1404 

1405 

124 

C 

1405 

1406 

125 

FORM  FINAl  SOI UT IONS  _ 

1407 

126 

c 

IWO 

1407 

1408 

127 

DO  170  KS  -  1  ,  NOFVESI  INS  ) 

1408 

1409 

128 

CFFL  -  (  GGL(  KS  )  +  1.  )  /  (  2.  *  GGL(  KS  )  ) 

1409 

1410 

129 

WLEFT(  KS  )  .  SQRT(  HLESO(  KS  )  *  (  1.  ♦ 

1410 

1411 

130 

CFFL  *  (  PSTAR(  KS  )  /  PPL(  KS  )  -  1.  )  )  ) 

1411 

1412 

131 

170 

CONTINUE 

1412 

1413 

132 

c 

1413 

1414 

133 

00  172  KS  -  1  .  NOFVESI  INS  ) 

1414 

1415 

134 

CFFR  -  (  GGR(  KS  )  +  1,  )  /  (  2.  *  GGR(  KS  )  ) 

1415 

1416 

135 

HRIGT(  KS  )  -  SQRT(  HRISQ(  KS  )  •  (  1.  + 

1416 

1417 

136 

CFFR  •  (  PSTAR(  KS  )  /  PPR(  KS  )  -  1.  )  )  ) 

1417 

1418 

137 

172 

CONTINUE 

1418 

1419 

138 

C 

1419 

1420 

139 

DO  180  KS  -  1  ,  NOFVESI  INS  ) 

1420 

1421 

140 

USTAR(  KS  )  =  (  PPL(  KS  )  -  PPR(  KS  )  + 

1421 

1422 

141 

HLEFT(  KS  )  *  UUL(  KS  )  + 

1422 

1423 

142 

HRIGT(  KS  )  •  UUR(  KS  )  )  / 

1423 

1424 

143 

(  WLEFT(  KS  )  +  WRIGT(  KS  )  ) 

1424 

1425 

144 

180 

CONTINUE 

1425 

1426 

145 

C 

1426 

1427 

146 

DO  190  KS  -  1  ,  NOFVES(  INS  ) 

1427 

1428 

147 

C 

1428 

1429 

148 

C  — 

BEGIN  PROCEDURu  TO  OBTAIN  FLUXES  FROf*  REIHANN  FORMALISM  - 

1429 
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1430 

149 

C 

1430 

1431 

ISO 

1F(  USTAR(  KS  )  .  LE  .  0.0  )  THEN 

1431 

1432 

151 

C 

1432 

1433 

152 

RO(  KS  )  -  RRR(  KS  ) 

1433 

1434 

153 

PO(  KS  )  -  PPR(  KS  ) 

1434 

1435 

154 

U0{  KS  )  -  UUR{  KS  ) 

1435 

1436 

155 

CO(  KS  )  -  SQRT(  HRGG  *  PPR(  KS  )  /  RRR(  KS  )  ) 

1436 

1437 

156 

W0(  KS  )  -  HRIGT{  KS  ) 

1437 

1438 

157 

G0(  KS  )  -  GGR(  KS  ) 

1438 

1439 

158 

ISN(  KS  )  >  1 

1439 

1440 

159 

C 

1440 

1441 

160 

ENRGYI(  KS  )  .  £ER(  KS  ) 

1441 

1442 

161 

ANRGYK  KS  )  .  AAR(  KS  ) 

1442 

1443 

162 

VGONV(  KS  )  -  VVR(  KS  ) 

1443 

1444 

163 

WGDNV(  KS  )  >  WWR(  KS  ) 

1444 

1445 

164 

c 

1445 

1446 

165 

ELSE 

1446 

1447 

166 

c 

1447 

1448 

167 

R0(  KS  )  -  RRL(  KS  ) 

1448 

1449 

168 

P0(  KS  )  -  PPL(  KS  ) 

1449 

1450 

169 

U0(  KS  )  -  UUL(  KS  ) 

1450 

1451 

170 

C0(  KS  )  -  SQRT(  HRGG  *  PPL(  KS  )  /  RRL{  KS  )  ) 

1451 

1452 

171 

H0(  KS  )  -  HLEFT(  KS  ) 

1452 

1453 

172 

G0(  KS  )  -  GGL(  KS  ) 

1453 

1454 

173 

ISH(  KS  )  -  -  1 

1454 

1455 

174 

c 

1455 

1456 

175 

ENRGYK  KS  )  -  £EL(  KS  ) 

1456 

1457 

176 

ANRGYK  KS  )  .  AAL(  KS  ) 

1457 

1458 

177 

VGDNV(  KS  )  •  VVL(  KS  ) 

1458 

1459 

178 

WGONV(  KS  )  >  WHL(  KS  ) 

1459 

1460 

179 

END  IF 

1460 

1461 

180 

190 

CONTINUE 

1461 

1462 

181 

C 

1462 

1463 

182 

DO  200  KS  -  1  ,  NOFVES(  INS  ) 

1463 

1464 

183 

DELP(  KS  )  -  PSTAR(  KS  )  -  P0{  KS  ) 

1464 

1465 

184 

HSOP(  KS  )  -  ISN(  KS  )  *  U0(  KS  )  +  H0(  KS  )  /  R0(  KS  ) 

1465 

1466 

185 

WSOH(  KS  )  •  ISN(  KS  )  *  U0(  KS  )  +  C0(  KS  ) 

1466 

1467 

186 

200 

CONTINUE 

1467 

1468 

187 

c 

1468 

1469 

188 

DO  210  KS  •  1  .  HOFVES(  INS  ) 

1469 

1470 

189 

IF(  DELP(  KS  )  .  GT  .  0.  )  THEN 

1470 

1471 

190 

VISOO(  KS  )  •  HSOP(  KS  ) 

1471 

1472 

191 

ELSE 

1472 

1473 

192 

HSOO(  KS  )  -  WSOM(  KS  ) 

1473 

1474 

193 

END  IF 

1474 

1475 

194 

210 

CONTINUE 

1475 

1476 

195 

c 

1476 

1477 

196 

DO  220  KS  -  1  ,  NOFVESI  INS  ) 

1477 

1478 

197 

c 

1478 

1479 

198 

c 

■  USE  OUTER  STATE  SOLUTION  - 

1479 

1480 

199 

c 

1480 

1481 

200 

PGDNV(  KS  )  =  P0(  KS  ) 

1481 

1482 

201 

UGONV(  KS  )  -  U0(  KS  ) 

1482 

1483 

202 

CG0NV(  KS  )  -  C0(  KS  ) 

1483 

1484 

203 

RG0NV(  KS  )  -  R0(  KS  ) 

1484 

1485 

204 

220 

CONTINUE 

1485 

1486 

205 

C 

1486 

1487 

206 

c 

•  COMPUTE  STARRED  VALUES  - 

1487 

1488 

207 

C 

1488 

1489 

208 

DO  230  KS  •  1  .  NOFVES(  INS  ) 

1489 

1490 

209 

RSTAR(  KS  )  «  1,  /  (  1.  /  R0(  KS  )  -  DELP(  KS  )  / 

1490 

1491 

210 

(  H0(  KS  )  *  H0(  KS  )  )  ) 

1491 

1492 

211 

CSTAR(  KS  )  =  SQRT(  G0(  KS  )  •  PSTAR(  KS  )  /  RSTAR(  KS  )  ) 

1492 

1493 

212 

WSOH(  KS  )  »  ISN(  KS  )  *  USTAR{  KS  )  +  CSTAR(  KS  ) 

1493 

1494 

213 

230 

CONTINUE 

1494 

1495 

211 

C 

1495 

1496 

215 

DO  240  KS  •  1  ,  NOFVESC  INS  ) 

1496 

1497 

216 

IF(  DELP(  KS  )  .  GT  .  0.  )  THEN 

1497 

1498 

217 

SPIN!  KS  )  -  HSOP(  KS  ) 

1498 

1499 

218 

ELSE 

1499 

1500 

219 

SPIN!  KS  )  -  HSOM(  KS  ) 

1500 

1501 

220 

END  IF 

1501 

1502 

221 

240 

CONTINUE 

1502 

1503 

222 

C 

1503 
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1504 

223 

DO  250  KS  •  i  .  N0fVES{  INS  ) 

1504 

1505 

224 

C 

1505 

1506 

225 

IF(  WSOO(  KS  )  .  GE  .  0.  )  THEM 

1506 

1507 

226 

1F(  SP1N(  KS  )  .  GE  .  0.  )  THEN 

1507 

1508 

227 

C 

1508 

1509 

228 

C  - 

-  USE  THE  STARRED  STATE  RESULTS  . 

1509 

1510 

229 

C 

1510 

1511 

230 

RGONV(  KS  )  .  RSTAR(  KS  ) 

1511 

1512 

231 

UGONV(  KS  )  -  USTAR(  KS  ) 

1512 

1513 

232 

CGDNV(  KS  )  .  CSTAR(  KS  ) 

1513 

1514 

233 

PGDNV(  KS  )  -  PSTAR(  KS  ) 

1514 

1515 

234 

ELSE 

1515 

1516 

235 

C 

1516 

1517 

236 

C  — 

-  EVALUATE  THE  INSIDE  RAREFACTION  WAVE  . 

1517 

1518 

237 

C 

1518 

1519 

238 

CGDNV(  KS  )  -  (  CSTAR{  KS  )  *  2.  - 

1519 

1520 

239 

1SN(  KS  )  •  OSTAR(  KS  )  *  (  G0(  KS  )  - 

1.  )  ) 

1520 

1521 

240 

/  {  G0{  KS  )  + 

1.  ) 

1521 

1522 

241 

U6DNV(  KS  )  -  -  1SN(  KS  )  *  CGOMV(  KS  ) 

1522 

1523 

242 

fiGONV(  KS  )  -  (  CGONV(  KS  J  /  C0(  KS  )  )  •» 

1523 

1524 

243 

(  2.  /  (  G0(  KS  )  -  1.  )  )  •  R0(  KS  ) 

1524 

1525 

244 

PGONV(  KS  )  -  CG0NV(  KS  )  •  CGDNV(  KS  )  *  RGOHV(  KS  )  / 

1525 

1526 

245 

G0(  KS  ) 

1526 

1527 

246 

C 

1527 

1528 

247 

END  IF 

1528 

1529 

248 

C 

1529 

1530 

249 

END  IF 

1530 

1531 

250 

250 

CONTINUE 

1531 

1532 

251 

C 

1532 

1533 

252 

DO  260  KS  -  1  .  N0FVES(  INS  ) 

1533 

1534 

253 

IS  -  KS  +  NSl  •  1 

1534 

1535 

254 

RR(  IS  )  •  RG0NV(  KS  ) 

1535 

1536 

255 

PR(  IS  )  -  PGDNV(  KS  ) 

1536 

1537 

256 

260 

CONTINUE 

1537 

1538 

257 

C 

1538 

1539 

258 

NSl  -  NS2  ♦  1 

1539 

1540 

259 

NS2  -  NS2  +  NOFVES(  INS  +  1  ) 

1540 

1541 

260 

110 

CONTINUE 

1541 

1542 

261 

c 

1542 

1543 

262 

RETURN 

1543 

1544 

263 

END 

1544 

1545 

264 

c 

1545 

Thu  Jut 

1  14: 

17:00  : 

1993  threed.f  SUBROUTINE  KYDRFL 

1546 

1 

SUBROUTINE  KYDRFL 

1546 

1547 

2 

c 

1547 

1548 

3 

c— . 

-I 

1548 

1549 

4 

c 

I 

1549 

1550 

5 

c 

KYDRFL  IS  A  2  DIMENSIONAL  RIEHANN  SOLVER  THAT  INTEGRATES 

I 

1550 

1551 

6 

c 

FLUXES  ACROSS  NORMAL  INTERFACES  TO  UPDATE  VERTICES 

I 

1551 

1552 

7 

c 

VARIABLES  . 

I 

1552 

1553 

8 

c 

I 

1553 

1554 

9 

C-.. 

-1 

1554 

1555 

10 

c 

1555 

1556 

11 

include  'dtnshOO.h' 

1556 

1557 

12 

include  'dhydniO.h' 

1557 

1558 

13 

include  'dphsmO.h' 

1558 

1559 

14 

include  'dintrlO.h' 

1559 

1560 

15 

c 

1560 

1561 

16 

REAL  DELP ( 128 ) . HSOP( 128 ) , WSW1( 123) . HSOO{ 128 ) , 

1561 

1562 

17 

RSTARI 128) ,CSTAR(128) ,PHAX(128) ,PMIN{ 128) 

1562 

1563 

18 

REAL  RRIGHTa28),URIGHT(128),VRIGHT(128).PRIGHT(128) 

1563 

1564 

19 

REAL  RLEFTT(128),ULEFTT{128).VLEFTT(128).PLEFTT(128) 

1564 

1565 

20 

INTEGER  N0FVEP(128) 

1565 

1566 

21 

c 

1566 

1567 

22 

c  — 

•  FETCH  HYDRO  QUANTITIES  . 

— 

1567 

1568 

23 

c 

1568 

1569 

24 

DO  120  KS  >  1  ,  NPRTCL 

1569 

1570 

25 

IS  -  IJKPRT(  KS  ) 

1570 

1571 

26 

ICL  -  JS(  7  ,  IS  ) 

1571 

1572 

27 

IBC  -  JS(  9  ,  IS  ) 

1572 

1573 

28 

c 

1573 

1574 

29 

RRL(  KS  )  >  HYOVf  ICL  .  I  ) 

1574 
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1575 

30 

UUL(  KS  )  •  HYDV(  ICL  .  2  )  •  XN(  IS  )  ♦ 

1575 

1576 

31 

HYDV(  ICL  .  3  )  •  YN(  IS  )  ♦ 

1576 

1577 

32 

HYOV(  ICL  .  4  )  *  ZN(  IS  ) 

1577 

1578 

33 

VVL{  KS  )  -  HYOV{  ICL  .  2  )  •  XP(  IS  )  ♦ 

1578 

1579 

34 

HYDV(  ICL  .  3  )  *  YP(  IS  )  ♦ 

1579 

1580 

35 

HYDV(  ICL  .  4  )  •  ZP(  IS  ) 

1580 

1581 

36 

WWL{  KS  )  -  HYDV(  ICL  .  2  )  *  XT(  IS  )  ♦ 

1581 

1582 

37 

HYOV(  ICL  .  3  )  •  YT(  IS  )  + 

1582 

1583 

38 

HYDV(  ICL  ,  4  )  *  ZT(  IS  ) 

1583 

1584 

39 

PPL(  KS  )  -  HYDV(  ICL  .  5  ) 

1584 

1585 

40 

AAL(  KS  )  -  HYDV(  ICL  .  6  ) 

1585 

1586 

41 

EEL(  KS  )  -  HYDV(  ICL  .  8  ) 

1586 

1587 

42 

GGL(  KS  )  -  HYOV(  ICL  .  7  ) 

1587 

1588 

43 

C 

1588 

1589 

44 

RRR(  KS  )  -  RRL(  KS  ) 

1589 

1590 

45 

IF(  I8C  .  EO  .  0  )  THEN 

1590 

1591 

46 

UUR(  KS  )  -  UUL(  KS  ) 

1591 

1592 

47 

ELSE 

1592 

1593 

48 

UUR(  KS  )  -  -  UUL(  KS  ) 

1593 

1594 

49 

END  IF 

1594 

1595 

50 

WR(  KS  )  •  WVL(  KS  ) 

1595 

1596 

51 

WWR(  KS  )  -  WWL(  KS  ) 

1596 

1597 

52 

PPR(  KS  )  -  PPL(  KS  ) 

1597 

1598 

53 

AAR(  KS  )  ■  AAL(  KS  ) 

1598 

1599 

54 

EER(  KS  )  -  EEL(  KS  ) 

1599 

1600 

55 

GGR(  KS  )  -  GGL(  KS  ) 

1600 

1601 

56 

C 

1601 

1602 

57 

120 

CONTINUE 

1602 

1603 

58 

C 

1603 

1604 

59 

00  130  KS  -  1  .  NPRTCL 

1604 

1605 

60 

C 

1605 

1606 

61 

C  - 

-  THIS  SECTION  OF  CODE  SOLVES  FOR  'PSTAR"  AND  ’USTAR*  IN 

1606 

1607 

62 

C 

THE  RIEHANN  PROBLEM  USING  NEKTON'S  METHOD. 

1607 

1608 

63 

C 

1608 

1609 

64 

HLEFT{  KS  )  •  SORT(  GGL(  KS  )  •  PPL(  KS  )  •  RRL(  KS  )  ) 

1609 

1610 

65 

HRIGT{  KS  )  -  SORT(  GGR(  KS  )  *  PPR(  KS  )  •  RRR(  KS  )  ) 

1610 

1611 

66 

HLESO(  KS  )  -  MLEFT(  KS  )  *  HLEFT(  KS  ) 

1611 

1612 

67 

«RISq(  KS  )  -  WRIGT(  KS  )  •  WIGT(  KS  ) 

1612 

1613 

68 

C 

1613 

1614 

69 

PMIH(  KS  )  -  AMINK  PPL(  KS  )  .  PPR{  KS  )  ) 

PSHL(  KS  )  -  HRSM  *  PMIN(  KS  ) 

1614 

1615 

70 

1615 

1616 

71 

C 

1616 

1617 

72 

C  - 

FORM  THE  STARTING  GUESS  FOR  THE  SOLUTIOf  - 

1617 

1618 

73 

C 

1618 

1619 

74 

PSTAR(  KS  )  -  (  HLEFT(  KS  )  *  PPR(  KS  )  + 

1619 

1620 

75 

HRIGTI  KS  )  *  PPL(  KS  )  - 

1620 

1621 

76 

WLEFT(  KS  )  •  HRIGT(  KS  )  * 

1621 

1622 

77 

(  UUR{  KS  )  -  UUL(  KS  )  )  )  / 

1622 

1623 

78 

{  HLEFT{  KS  )  ♦  HRIGT(  KS  )  ) 

1623 

1624 

79 

PSTAR{  KS  )  •  AMAX1(  PSTAR(  KS  )  .  PSML(  KS  )  ) 

1624 

1625 

80 

130 

CONTINUE 

1625 

1626 

81 

c 

1626 

1627 

82 

DO  140  I  -  1  .  IHRN 

1627 

1628 

83 

c 

1628 

1629 

84 

c  - 

BEGIN  THE  NEWTON  ITERATION . . 

1629 

1630 

85 

c 

1630 

1631 

86 

DO  150  KS  -  1  .  NPRTCL 

1631 

1632 

87 

CFFL  -  (  GGL(  KS  )  ♦  1.  )  /  (  2.  *  GCL(  KS  )  ) 

1632 

1633 

88 

HLEFS(  KS  )  -  (  1.  +  CFFL  •  (  PSTAR(  KS  )  / 

1633 

1634 

89 

PPL{  KS  )  -  1.  )  )  •  HLESQ(  KS  ) 

1634 

1635 

90 

HLEFT(  KS  )  •  SQRT(  WLEFS(  KS  )  ) 

1635 

1636 

91 

2LEFT(  KS  )  -  2.  •  WLEFT{  KS  )  •  WLEFS(  KS  )  / 

1636 

1637 

92 

(  HLESQ(  KS  )  +  HLEFS(  KS  )  ) 

1637 

1638 

93 

USTL(  KS  )  -  UUL(  KS  )  - 

1638 

1639 

94 

(  PSTAR(  KS  )  -  PPL(  KS  )  )  /  HLEFT(  KS  ) 

1639 

1640 

95 

150 

CONTINUE 

1640 

1641 

96 

c 

1641 

1642 

97 

DO  152  KS  -  1  ,  NPRTCL 

1642 

1643 

98 

CFFR  -  (  GGR(  KS  )  +  1.  )  /  (  2.  *  GGR(  KS  )  ) 

1643 

1644 

99 

WflIFSI  KS  )  -  (  1.  +  CFFR  *  (  PSTAR(  KS  )  / 

1644 

1645 

lOO 

PPR(  KS  )  -  1.  )  )  *  HRISOl  KS  ) 

1645 

1646 

101 

WRIGT{  KS  )  .  SORT(  HRIFS(  KS  )  ) 

1646 

1647 

102 

ZRIGTI  KS  )  -  2.  *  HRIGT(  KS  )  •  HRIFS(  KS  )  / 

1647 

1648 

103 

(  HRISQ(  KS  )  +  HR1FS(  KS  )  ) 

1648 
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1649 

1650 

1651 

1652 
1633 

1654 

1655 

1656 

1657 

1658 

1659 

1660 
1661 
1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 
1681 
1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 


104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 


USTR(  KS  )  -  UUR{  KS  )  * 

{  PSTAR(  KS  )  -  PPR(  KS  )  )  /  WRIGT(  KS  ) 

152  CONTINUE 
C 

DO  160  KS  -  1  .  NPRTCL 

0PST(  KS  )  .  ZLEFT{  KS  )  *  ZRIGT{  KS  )  * 

(  USTR(  KS  )  -  USTL(  KS  )  )  / 

(  ZLEFT{  KS  )  +  2RIGT(  KS  )  ) 

P$TAR(  KS  )  -  PSTAR(  KS  )  -  DPST(  KS  ) 

PSTAR(  KS  )  -  AHAX1{  PSTAR(  KS  )  ,  PSML(  KS  }  ) 

160  CON*.  INUE 

C 

140  CONTINUE 

C 

C  —  FORM  FINAL  SOLUTIONS  - 

C 

DO  170  KS  •  1  .  NPRTCL 

CFFL  -  (  GGL(  KS  )  +  1.  )  /  (  2.  *  GGL(  KS  )  ) 

HLEFT(  KS  )  «  SQRT(  HLESO(  KS  )  *  (  1.  + 

CFFL  •  {  PSTAR{  KS  )  /  PPL(  KS  )  -  1.  )  )  ) 

170  CONTINUE 
C 

DO  172  KS  -  1  .  NPRTCL 

CFFR  -  (  GGR(  KS  )  +  1.  )  /  {  2.  •  GGR(  KS  )  ) 

WR1GT(  KS  )  -  SqRT(  HRISO(  KS  )  *  (  1-  ♦ 

CFFR  *  (  PSTAR(  KS  )  /  PPR(  KS  )  -  1.  )  )  ) 

172  CONTINUE 
C 

00  180  KS  «  1  ,  NPRTCL 

USTAR{  KS  )  .  (  PPL(  KS  )  -  PPR(  KS  )  + 

WLEFT(  KS  )  *  UUL(  KS  )  + 

HRIGTI  KS  )  »  UUR(  KS  )  )  / 

(  HLEFT(  KS  )  +  WRIGT(  KS  )  ) 

180  CONTINUE 
C 

00  190  KS  •  1  .  NPRTCL 
C 

C  —  BEGIN  PROCEDURE  TO  OBTAIN  FLUXES  FROM  REIHANN  FORMALISM  - 
C 

IF{  USTAR(  KS  )  .  LE  .  0.0  )  THEN 
C 

.  R0(  KS  )  -  RRR(  KS  ) 

P0(  KS  )  -  PPR(  KS  ) 

U0(  KS  )  .  UUR(  KS  ) 

C0(  KS  )  -  SQRT(  HRGG  »  PPR(  KS  )  /  RRR(  KS  )  ) 

W0(  KS  )  -  WRIGT(  KS  ) 

G0(  KS  )  =  GGR(  KS  ) 

ISN(  KS  )  =>  1 
C 

VGDNVI  KS  )  -  VVR(  KS  ) 

WGONV(  KS  )  •  HWR(  KS  ) 

C 

ELSE 

C 

R0(  KS  )  .  RRL(  KS  ) 

P0(  KS  )  -  PPL(  KS  ) 

U0(  KS  )  -  UUL(  KS  ) 

C0(  KS  )  -  SqRT(  HRGG  *  PPL(  KS  )  /  RRL(  KS  )  ) 

W0(  KS  )  >  HLEFTI  KS  ) 

G0(  KS  )  -  GGL(  KS  ) 

ISK(  KS  )  -  -  1 

C 

VGDNV(  KS  )  -  VVL(  KS  ) 

HGONVI  KS  )  -  HWL{  KS  ) 

END  IF 

190  CONTINUE 

C 

DO  200  KS  -  1  ,  NPRTCL 

DELP(  KS  )  -  PSTmR(  KS  )  -  P0{  KS  ) 

WSOP(  KS  )  -  ISN(  KS  )  *  U0(  KS  )  +  H0{  KS  )  /  R0(  KS  ) 

WSOM(  KS  )  .  ISN(  KS  )  •  U0(  KS  )  +  C0(  KS  ) 

200  CONTINUE 
C 

DO  210  KS  -  1  ,  NPRTCL 


1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 
1661 
1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 
1681 
1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 
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1723 

178 

IF(  DELP(  KS  )  .  GT  .  0.  )  THEN 

1723 

1724 

179 

HSOO(  KS  )  -  WSOP{  KS  ) 

1724 

1725 

180 

ELSE 

1725 

1726 

181 

HSOO(  KS  )  *  HS0M(  KS  ) 

1726 

1727 

182 

E(®  IF 

1727 

1728 

183 

210 

CONTINUE 

1728 

1729 

184 

C 

1729 

1730 

185 

DO  220  KS  -  1  .  NPRTCL 

1730 

1731 

186 

C 

1731 

1732 

187 

Q 

iKr  nilTCD  ^TATP  CnitlTTnu  . , 

1732 

1733 

188 

C 

1733 

1734 

189 

PG0NV(  KS  )  -  P0(  KS  ) 

1734 

1735 

190 

UGONV(  KS  )  -  U0(  KS  } 

1735 

1736 

191 

CG0NV(  KS  )  -  C0(  KS  ) 

1736 

1737 

192 

RGONV(  KS  )  -  R0(  KS  ) 

1737 

1738 

193 

220 

CONTINUE 

1738 

1739 

194 

C 

1739 

1740 

195 

c  — 

COMPUTE  STARRED  VALUES  - 

1740 

1741 

196 

c 

1741 

1742 

197 

00  230  KS  -  1  ,  NPRTCL 

1742 

1743 

198 

RSTAR(  KS  )  •  1.  /  (  1.  /  R0(  KS  )  -  DELP(  KS  )  / 

1743 

1744 

199 

(  W0(  KS  )  *  H0(  KS  )  )  ) 

1744 

1745 

200 

CSTAR(  KS  )  -  SqRT(  G0(  KS  )  *  PSTAR(  KS  )  /  RSTAR(  KS  )  ) 

1745 

1746 

201 

«S0M(  KS  )  .  1SH{  KS  )  *  0STAR(  KS  )  +  CSTAR(  KS  > 

1746 

1747 

202 

230 

CONTINUE 

1747 

1748 

203 

C 

1748 

1749 

204 

DO  240  KS  -  1  .  NPRTCL 

1749 

1750 

205 

IF(  0ELP{  KS  )  .  GT  ,  0.  )  THEN 

1750 

1751 

206 

SPIN(  KS  )  -  HS0P(  KS  ) 

1751 

1752 

207 

ELSE 

1752 

1753 

208 

SPIN(  KS  )  •  USOK(  KS  ) 

1753 

1754 

209 

END  IF 

1754 

1755 

210 

240 

CONTINUE 

1755 

1756 

211 

C 

1756 

1757 

212 

DO  250  KS  -  1  ,  NPRTCL 

1757 

1758 

213 

c 

1758 

1759 

214 

IF(  WSOO(  KS  )  .  GE  .  0.  )  THEN 

1759 

1760 

215 

IF(  SPIN{  KS  )  .  GE  .  0.  )  THEM 

1760 

1761 

216 

c 

1761 

1762 

217 

c  — 

USE  THE  STARRED  STATE  RESULTS  - 

1762 

1763 

216 

c 

1763 

1764 

219 

RGOHV(  KS  )  -  RSTAR(  KS  ) 

1764 

1765 

220 

U^(  KS  )  •  USTAR(  KS  ) 

1765 

1766 

221 

CGONVI  KS  )  -  CSTAR(  KS  ) 

1766 

1767 

222 

PGDNV(  KS  )  •  PSTAR(  KS  ) 

1767 

1768 

223 

ELSE 

1768 

1769 

224 

c 

1769 

1770 

225 

c  — 

EVALUATE  THE  INSIDE  RAREFACTION  HAVE  - 

1770 

1771 

226 

c 

1771 

1772 

227 

CGONV(  KS  )  »  (  CSTAR(  KS  )  »  2.  - 

1772 

1773 

228 

ISN(  KS  )  *  USTAR(  KS  )  *  (  G0(  KS  )  -  1.  )  ) 

1773 

1774 

229 

/  (  G0(  KS  )  +  1.  ) 

1774 

1775 

230 

UGONV(  KS  )  -  -  ISN(  KS  )  *  CGDNV(  KS  ) 

1775 

1776 

231 

ROJNVI  KS  )  -  (  CGONV(  KS  )  /  C0(  KS  )  )  ** 

1776 

1777 

232 

(  2.  /  (  G0(  KS  )  -  1.  )  )  *  R0(  KS  ) 

1777 

1778 

233 

PGDNVI  KS  )  •  CGDHV(  KS  )  *  CGDNV(  KS  )  *  RGONV(  KS  )  / 

1778 

1779 

234 

G0(  KS  ) 

1779 

1780 

235 

c 

1780 

1781 

236 

END  IF 

1781 

1782 

237 

c 

1782 

1783 

238 

END  IF 

1783 

1784 

239 

250 

CONTINUE 

1784 

1785 

240 

C 

1785 

1786 

241 

DO  260  KS  -  1  .  NPRTCL 

1786 

1787 

242 

RR(  KS  )  -  RGDNVI  KS  ) 

1787 

1788 

243 

PR(  KS  )  -  PGDNV{  KS  ) 

1788 

1789 

244 

260 

CONTINUE 

1789 

1790 

245 

C 

1790 

1791 

246 

RETURN 

1791 

1792 

247 

END 

1792 
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1794 

1 

SUBROUTINE  HYDRHN 

1794 

1795 

2 

C 

1795 

1796 

3 

C— 

-I 

1796 

1797 

4 

c 

I 

1797 

1798 

5 

c 

HYDRHN 

IS  A  2  DIHENSIONAL  RIEHANN  SOLVER  THAT  CALCULATES 

1 

1798 

1799 

6 

c 

FLUXES  ACROSS  NORHAL  INTERFACES. 

I 

1799 

1800 

7 

c 

IT  IS  CONFIGURED  TO  WORK  IN  EITHER  TWO  OR  THREE 

I 

1800 

1801 

8 

c 

DIHENSIONAL  SITUATIONS.  THE  HYDROOYNAHIC  QUANTITIES  I 

1801 

1802 

9 

c 

CAN  BE  SIDE  OR  VERTEX  CENTERED  FOR  2-D  AND  CELL  OR 

1 

1802 

1803 

10 

c 

VERTEX  CENTERED  FOR  3-0.  THE  SPECIFIC  USE  IS  BASED 

1 

1803 

1804 

11 

c 

OH  THE  CONTENTS  OF  "OPTHYD*. 

I 

1804 

1805 

12 

c 

I 

1805 

1806 

13 

c 

I 

1806 

1807 

14 

c— 

-I 

1807 

1808 

15 

c 

1808 

1809 

16 

c 

THE  USE  OF  THE  HYDRO  VARIABLES  IS  AS  FOLLOWS: 

1809 

1810 

17 

c 

1810 

1811 

18 

c 

1811 

1812 

19 

c 

4 

1812 

1813 

20 

c 

•f 

HY0V(IV,IH)  CONTAINS  VERTEX  CENTERED  HYDRO- 

■f 

1813 

1814 

21 

c 

♦ 

DYNAHIC  QUANTITIES.  IT  IS  USED  WITH  ALL  CASES. 

•f 

1814 

1815 

22 

c 

♦ 

+ 

1815 

1816 

23 

c 

♦ 

HYOE(IH.IE)  CONTAINS  EDGE  CENTERED  HYDRO- 

4 

1816 

1817 

24 

c 

+ 

DYNAHIC  FLUX  QUANTITIES  WITH  ORIENTATION 

4 

1817 

1818 

25 

c 

> 

DETERHINED  BY  THE  "SIDE*  "VERTEX"  OR  "CELL  " 

♦ 

1818 

1819 

26 

c 

♦ 

OPTIONS  .  IT  IS  USED  FOR  THE  CASES  WHERE 

4 

1819 

1820 

27 

c 

+ 

"OPTHYO*  -  "SIDE  2D"  2-0  SIDE  CENTERED 

4 

1820 

1821 

28 

c 

•  "VERTEX20'  2-0  VERTEX  CENTERED 

4 

1821 

1822 

29 

c 

-  "VERTEX3D’  3-0  VERTEX  CENTERED 

4 

1822 

1823 

30 

c 

+ 

4 

1823 

1824 

31 

c 

♦ 

HYOC(IC.IH)  CONTAINS  CELL  CENTERED  HYDRO- 

4 

1824 

1825 

32 

c 

DYNAHIC  QUANTITIES.  IT  IS  USED  FOR  THE  CASE 

4 

1825 

1826 

33 

c 

♦ 

"OPTHYD"  -  "CELL  3D"  3-D  CELL  CENTERED 

4 

1826 

1827 

34 

c 

♦ 

4 

1827 

1828 

35 

c 

+ 

4 

1828 

1829 

36 

c 

♦ 

IV  -  VERTEX  INDEX 

4 

1829 

1830 

37 

c 

♦ 

IS  -  SIDE  INDEX 

4 

1830 

1831 

38 

c 

♦ 

IE  •  EDGE  INDEX 

4 

1831 

1832 

39 

c 

♦ 

IC  -  CELL  INDEX 

4 

1832 

1833 

40 

c 

♦ 

IH  -  HYDRO  INDEX 

4 

1833 

1834 

41 

c 

•f 

4 

1834 

1835 

42 

c 

4- 

1  -  RO  DENSITY  IN  *•••*•••••• 

4 

1835 

1836 

43 

c 

♦ 

2  -  UX  X  VELOCin  *••***••**• 

4 

1836 

1837 

44 

c 

♦ 

3  -  UY  Y  VELOCITY  **••*••**** 

4 

1837 

1838 

45 

c 

♦ 

4  . 

4 

1838 

1839 

46 

c 

4 

5  -  PO  PRESSURE  IN  •••••••••• 

4 

1839 

1840 

47 

c 

+ 

6  -  £N  ENERGY  IN  ••**•*••*• 

4 

1840 

1841 

48 

c 

+ 

4 

1841 

1842 

49 

c 

1842 

1843 

SO 

c 

1843 

1844 

51 

include 

'dmshOO.h' 

1844 

1845 

52 

include 

•dhydmO.h’ 

1845 

1846 

53 

include 

'dphsmO.h* 

1846 

1847 

54 

include 

'dtrtrlO.h' 

1847 

1848 

55 

c 

1848 

1849 

56 

REAL  RRN(128),URN(128).VRN(128).WRN(128).EPN(128), 

1849 

1850 

57 

ARN( 128) .XS2S{128) ,XSAR(128) 

1850 

1851 

58 

REAL  HYOVR(  128) ,  HYDVU(  128 ) ,  HY0W(  128) .  HYDVH(  128) . 

1851 

1852 

59 

HYDVP(128) 

1852 

1853 

60 

INTEGER  N0UHHY1,N0UHHY2,H00MMY3 

1853 

1854 

61 

INTEGER  IDUHMY(4) , VDATA(2) , F0ATA{2) 

1854 

1855 

62 

CHARAtTER»31  VIABEL 

1855 

1856 

63 

CHARACTER*32  FLABEL 

1856 

1857 

64 

CHAR4CTER*6  CTRI,  CTET 

1857 

1858 

65 

INTEGER  ISURF(400000) 

1858 

1859 

66 

c 

1859 

1860 

67 

REAL  C01(4),CD2{4) 

1860 

1861 

68 

c 

1861 

1862 

69 

NOUMHYl- 

•1 

1862 

1863 

70 

NDUNHY2>4 

1863 

1864 

71 

NDUMMY3-0 

1864 

1865 

72 

IDUHMY(l)  -  0 

1865 

1866 

73 

IDUHMY(2)  -  0 

1866 

1867 

74 

IDU»IY(3)  -  0 

1867 
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1868 

75 

10UW1Y(4)  -  0 

1868 

1869 

76 

VOATAd)  -  1 

1869 

1870 

77 

VDATA(2)  -  1 

1870 

1871 

78 

FDATA(l)  -  1 

1871 

1872 

79 

FDATA{2)  -  4 

1872 

1873 

80 

VLA8EL-'  pressure,  new  /  m**2' 

1873 

1874 

81 

FLABEL-'  tets  faces,' 

1874 

1875 

82 

CTRI-'  tn  ■ 

1875 

1876 

83 

CTET-'  tet  ■ 

1876 

1877 

84 

C 

TLIHIT-TT 

1877 

1878 

85 

TLIHIT-30. 

1878 

1879 

86 

C 

1879 

1830 

87 

IJKNUH  -  0 

1880 

1881 

88 

IF(  ICONP  .£0.1)  THEN 

i881 

1882 

89 

REWIND  10 

1882 

1883 

90 

REWIND  26 

1883 

1884 

91 

READ  (26,*)  IJKNUN 

1885 

92 

DO  KKJ  -  1  .  IJKNUN 

1885 

1886 

93 

READ  (26.*)  R0,(RRN(1K), IK-1, NPRTCL) 

1886 

1887 

94 

WRITE  (10, •)  RO.(RRN(IK).IK.l. NPRTCL) 

1887 

1888 

95 

END  DO 

1888 

1889 

96 

END  IF 

1889 

1890 

97 

DO  120  JT  -  1  ,  NTIHE 

1890 

1891 

98 

IF(JT.GT.5)  IEOS-0 

1891 

1892 

99 

c 

1892 

1893 

100 

DO  KK  -  1  .  5 

1893 

1894 

101 

DO  IV  ■  1  .  NV 

1894 

1895 

102 

HNUN(  IV  ,  KK  )  -  0. 

1895 

1896 

103 

END  DO 

1896 

1897 

104 

END  DO 

1897 

1898 

105 

DO  140  ITT  -  1  ,  HDUNP 

1898 

1899 

106 

c 

im 

1900 

107 

c  — 

-  SELECT  ORDER  OF  INTEGRATION  - 

1900 

1901 

108 

c 

1901 

1902 

109 

IF(IOPORD.E0.1)THEN 

1902 

1903 

110 

CALL  FIRST 

1903 

1904 

111 

ELSEIF(IOPORD.£0.2)THEN 

1904 

1905 

112 

CALL  GRADNT 

1905 

1906 

113 

ElOIF 

1906 

1907 

114 

c 

1907 

1908 

115 

on  -  1.E24 

1908 

1909 

116 

c 

1909 

1910 

117 

CALL  HYORFL 

1910 

1911 

118 

c 

1911 

1912 

119 

on  -  on  •  .4 

1912 

1913 

120 

TT  -  TT  +  OTT 

1913 

1914 

121 

PRINT  *.JT.ITT,0TT.TT,NS 

1914 

1915 

122 

c 

1915 

1916 

123 

NCI  -  1 

1916 

1917 

124 

NC2  -  NOFVECC  1  ) 

1917 

1918 

125 

DO  110  INC  -  1  .  NVEEC 

1918 

1919 

126 

c 

1919 

1920 

127 

DO  150  IC  -  NCI  ,  HC2 

1920 

1921 

128 

KC  •  IC  -  NCI  +  1 

1921 

1922 

129 

RRR(  KC  )  -  HYOV(  1C  .  1  ) 

1922 

1923 

130 

00R(  KC  )  -  HYDV{  IC  .  2  ) 

1923 

1924 

131 

WR(  KC  )  -  HYOV(  IC  .  3  ) 

1924 

1925 

132 

WWR(  KC  )  -  HVDV(  IC  .  4  ) 

1925 

1926 

133 

PPR(  KC  )  -  HYDV(  IC  .  5  ) 

1926 

1927 

131 

AAR(  KC  )  -  HYDV(  IC  .  6  ) 

1927 

1928 

i; 

c 

1928 

1929 

1 

RRL(  KC  )  -  HYDFLX(  IC  ,  1  ) 

1929 

1930 

UUL(  KC  )  -  HYDFLX(  IC  .  2  ) 

1930 

1931 

VVL(  KC  )  -  HY0FLX(  IC  ,  3  ) 

1931 

1932 

3 

HWL(  KC  )  -  HYDFIX(  IC  ,  4  ) 

1932 

1933 

3 

PPL(  KC  )  -  HYDFLX(  IC  .  5  ) 

1933 

1931 

41 

AAL(  KC  )  -  HYDFLX(  IC  ,  6  ) 

1934 

1C35 

42 

c 

1935 

1936 

,43 

XS2Sf  KC  )  .  XC(  2  ,  IC  ) 

1936 

1937 

144 

XSAR(  KC  )  -  SVOLM(  IC  ) 

1937 

1938 

i45 

150 

CONTINUE 

1938 

1939 

146 

c 

1939 

1940 

147 

DO  170  KC  >  1  ,  NOFVECI  INC  ) 

1940 

1941 

148 

IC  -  KC  +  NCI  -  1 

1941 
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1942 

149 

RRN(  KC  )  -  RRR(  KC  ) 

1942 

1943 

150 

URN(  KC  )  «  RRR(  KC  )  •  U0R(  KC  ) 

1943 

1944 

151 

VR»(  KC  )  «  RRR(  KC  )  *  WR(  KC  ) 

1944 

1945 

152 

HRN(  KC  )  -  RRR(  KC  )  *  WV(R(  KC  ) 

1945 

1945 

153 

EPN(  KC  )  .  HY0V(  IC  .  8  )  +  .5  *  RRR(  KC  )  * 

1946 

1947 

154 

(  U0R(  KC  )  •  UUR(  KC  )  + 

1947 

1948 

155 

VVR(  KC  )  *  WR(  KC  )  + 

1948 

1949 

156 

WWR(  KC  )  •  WWR{  KC  )  ) 

1949 

1950 

157 

ARH{  KC  )  .  RRR(  KC  )  *  AAR(  KC  ) 

1950 

1951 

158 

170 

CONTINUE 

1951 

1952 

159 

C  - 

-  COMPUTE  THE  SOURCE  TERM  FOR  AX  I  SYWtETRY  FLOW  PROBLEM 

1952 

1953 

160 

c .. 

-  IF  THE  FLOW  IS  NOT  AXI  SYMMETRY  .  COMMENT  LOOP  160 

1953 

1954 

161 

C 

1954 

1955 

162 

DO  190  KC  -  1  .  N0FVEC(  INC  } 

1955 

1956 

163 

IC  •  KC  +  NCI  -  1 

1956 

1957 

164 

DTA  -  OTT  *  XSAR(  KC  ) 

1957 

1958 

165 

C 

1958 

1959 

166 

RRLL  -  OTA  •  RRL(  KC  ) 

1959 

1960 

167 

HULL  -  OTA  •  UUL(  KC  ) 

1960 

1961 

168 

VVLL  -  OTA  •  VVL(  KC  ) 

1961 

1962 

169 

HWLL  -  OTA  *  WWL(  KC  ) 

1962 

1963 

170 

RRN(  KC  )  -  RRN(  KC  )  -  RRLL 

1963 

1964 

171 

C 

1964 

1965 

172 

URN(  KC  )  -  URN(  KC  ]  -  DULL 

1965 

1966 

173 

C 

1966 

1967 

174 

VRN(  KC  )  -  VRN(  KC  )  -  VVLL 

1967 

1968 

175 

C 

1968 

1969 

176 

WRN(  KC  )  -  HRN(  KC  )  -  WHLL 

1969 

1970 

177 

C 

1970 

1971 

178 

PPLL  -  OTA  *  PPL(  KC  ) 

1971 

1972 

179 

EPN(  KC  )  =  EPN(  KC  )  -  PPLL 

1972 

1973 

180 

C 

1973 

1974 

181 

AALL  -  OTA  *  AAL(  KC  ) 

1974 

1975 

182 

ARN(  KC  )  •  ARN(  KC  )  -  AALL 

1975 

1976 

183 

c 

1976 

1977 

184 

190 

CONTINUE 

1977 

1978 

185 

C 

1978 

1979 

186 

DO  195  IC  -  NCI  .  NC2 

1979 

1980 

187 

KC  -  1C  -  NCI  +  1 

1980 

1981 

188 

WXJM  -  1.  /  RRN(  KC  ) 

1981 

982 

189 

HYDV(  IC  .  1  )  •  RRN(  KC  ) 

1982 

1983 

190 

HYOV(  IC  .  2  )  -  URH(  KC  )  *  HDUM 

1983 

1984 

191 

HYOV(  IC  ,  3  )  -  VRH(  KC  )  *  HDUM 

1984 

1985 

192 

HYOV(  IC  .  4  )  -  WRN(  KC  )  *  HDUM 

1985 

1986 

193 

HYDV(  IC  .  6  )  -  ARH(  KC  )  »  HOUH 

1986 

1987 

194 

195 

CONTINUE 

1987 

1988 

195 

C 

1988 

1989 

196 

00  200  IC  -  HCl  .  NC2 

1989 

1990 

197 

KC  •  IC  -  NCI  +  1 

1990 

1991 

198 

HYOV(  IC  ,  8  )  -  (  EPN(  KC  )  -  .5  •  HYDV(  IC  .  1  )  • 

1991 

1992 

199 

(  HYOV(  IC  ,  2  )  •  HYOV(  IC  ,  2  )  + 

1992 

1993 

200 

HYOV(  IC  .  3  )  •  HYDV(  IC  .  3  )  + 

1993 

1994 

201 

.  HYOV(  1C  .  4  )  •  HYOV(  1C  ,  4  )  )  ) 

1994 

1995 

202 

200 

CONTINUE 

1995 

1996 

203 

c 

1996 

1997 

204 

IF(  lEOS  .  EQ  .  1  )  THEN 

1997 

1998 

205 

TLIMIT  -  .9 

1998 

1999 

206 

ITER  -  6 

1999 

2000 

207 

00  IC  -  NCI  .  NC2 

2000 

2001 

208 

KC  -  IC  -  NCI  +  1 

2001 

2002 

209 

c 

2002 

2003 

210 

NITCR  -  0 

2003 

2004 

211 

IF(  HYOV(  IC  .  6  )  .  LE  .  .2  )  THEN 

2004 

2005 

212 

c 

2005 

2006 

213 

OST  -  HYDV(  IC  ,  1  )  •  GPERCC 

2006 

2007 

214 

VOL  -  WHA  *  (  1.  -  OST  /  FSA  )  /  OST  /  XGA 

2007 

2008 

215 

EHEO  -  HYOV(  1C  ,  8  )  /  HYDV(  IC  .  1  )  •  HMA  /  RGAS 

2008 

2009 

216 

c 

2009 

2010 

217 

lYY  -  (  EMEO  -  £MEOA(  3  )  )  /  RANGEA  +  1 

2010 

2011 

218 

lYY  -  MAXO{  1  ,  M1N0(  lYY  .  47  )  ) 

2011 

2012 

219 

c 

2012 

2013 

220 

K  -  lYY  +  2 

2013 

2014 

221 

lYY  -  lYY 

2014 

2015 

222 

.  t  INT(  AMAXK  EHEO  -  EHEOA{  K  )  .  0.)  /  OYA(  K  )  ) 

2015 
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2016 

223 

.  -  INT(  AMAXK  E«EOA(  K  ♦  1  )  -  EHE&  ,  0.  )  /  DYA(  K 

2017 

224 

lYY  •  MAX0{  1,  MIN0(  lYY  ,  47  )  ) 

2018 

225 

C 

2019 

226 

K1  -  lYY  +  2 

2020 

227 

K2  -  K1  +  1 

2021 

228 

RT  -  (  EHEO  -  EHE0A(  K1  )  )  /  (  EME0A(  K2  )  -  EHE0A(  1 

2022 

229 

T  -  TA(  K1  )  +  100.  *  RT 

2023 

230 

CVH  -  CVHA(  K1  )  +  RT  *  (  CVHA(  K2  )  -  CVMA(  K1  )  ) 

2024 

231 

ERS  -  0. 

2025 

232 

C 

2026 

233 

P  -  RGAS  *  T  /  VOL  /  GPERCC 

2027 

234 

RGAMHl  »  CVM 

2028 

235 

HYDV{  IC  .  7  )  -  1.  /  RGAMMl  +  1. 

2029 

236 

HYDV(  IC  ,  5  )  -  P 

2030 

237 

C 

2031 

238 

ELSE 

2032 

239 

C 

2033 

240 

OST  -  HYOV(  IC  .  1  )  *  GPERCC 

2034 

241 

VOL  -  WMX  *  (  1.  -  DST  /  FSX  )  /  OST  /  XGX 

2035 

242 

EHEO  -  HYOV(  1C  .  8  )  /  HYDV(  1C  .  1  )  •  WHX  /  RGAS 

2036 

243 

C 

2037 

244 

lYY  -  (  EHEO  -  EMEOX(  3  )  )  /  RAHGEX  +  1 

2038 

245 

lYY  -  HAX0(  1  .  HINO(  lYY  .  47  )  ) 

2039 

246 

C 

2040 

247 

K  -  lYY  +  2 

2041 

248 

lYY  -  lYY 

2042 

249 

.  +  IMT(  AMAXK  EHEO  -  EHE0X(  K  )  .  0.)  /  DYX(  K  )  ) 

2043 

250 

.  -  INT(  AMAXK  EMEOX(  K  ♦  1  )  -  EHEO  .  0.  )  /  OYX(  K 

2044 

251 

lYY  -  HAXO(  1.  HIH0(  lYY  .  47  )  ) 

2045 

252 

C 

2046 

253 

K1  -  lYY  +  2 

2047 

254 

K2  -  K1  +  1 

2048 

255 

RT  -  {  EHEO  -  EHE0X(  K1  )  )  /  (  EHE0X{  K2  )  -  EME0X(  1 

2049 

256 

T  -  TX(  K1  )  +  100.  *  RT 

2050 

257 

CVM  -  CVMX(  K1  )  +  RT  *  {  CVMX(  K2  )  -  CVMX(  K1  )  ) 

2051 

258 

ERS  -  0. 

2052 

259 

C 

2053 

260 

10 

cotirim 

2054 

261 

P  -  RGAS  *  T  /  VOL  /  GPERCC 

2055 

262 

RGAHHl  -  CVM 

2056 

263 

C 

2057 

264 

X  -  COVX  /  VOL  /  (  (  T  ♦  THETAX  )  *•  ALFAX  ) 

2058 

265 

Z  -  X  *  EXP(  BETAX  •  X  ) 

2059 

266 

X  -  1.  +  BETAX  *  X 

2060 

267 

RT  -  ALFAX  *  T  /  (  T  +  THETAX  ) 

2061 

268 

ERS  -  ERS  t  RT  •  Z  *  T 

2062 

269 

c 

2063 

270 

IF  (  ITER  .EO.  NITER  )  GO  TO  20 

2064 

271 

c 

2065 

272 

CVH  -  CVM  *  XGX  +  SCVX 

2066 

273 

•  +  RT  *  Z  *  (  2.  -  RT  /  ALFAX  -  RT  *  X  ) 

2067 

274 

T  -  T  -  AMIHK  ERS  /  CVM  .  TLIMIT  •  T  ) 

2068 

275 

c 

2069 

276 

NITER  -  NITER  +  1 

2070 

277 

c 

2071 

278 

RT  -  0.01  *  T 

2072 

279 

K1  -  RT 

2073 

280 

K1  •  MINO  (  Kl,  49  ) 

2074 

281 

K1  -  MAXO  (  Kl.  3  ) 

2075 

282 

K2  -  Kl  +  1 

2076 

283 

RT  -  RT  -  Kl 

2077 

284 

CVH  -  CVMX(Kl)  +  RT  *  (  CVMX(  K2  )  -  CVMX(  Kl  )  ) 

2078 

285 

ERS  -  EHEOX{  Kl  )  +  RT  *  (  EHEOX(  K2  )  -  EMEOX(  Kl  ) 

2079 

286 

ERS  -  ERS  -  EHEO 

2080 

287 

c 

2081 

288 

GO  TO  10 

2082 

289 

c 

2033 

290 

20 

CONTINUE 

2084 

291 

P  -  P  *  (  1.  +  z  ) 

2085 

292 

RGAMMl  -  (  RGAMMl  + 

2086 

293 

•  RT  •  Z  *  (  2.  -  RT  /  ALFAX  -  RT  •  X  )  )  / 

2087 

294 

X  -  X  ♦  Z  /  (  I.  +  Z  ) 

2088 

295 

RGAMMl  -  RGAMMl  /  (  (  1.  -  RT  •  X  )  •*  2  +  X  *  RGAIWl 

2089 

296 

ERS  -  ERS  /  EHEO 

2016 

2017 

2018 

2019 

2020 
2021 
2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 
2061 
2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 
2081 
2082 

2083 

2084 

2085 

2086 

2087 

2088 
2089 
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2090 

297 

HYDV(  IC  .  7  )  -  1.  /  RGWWl  ♦  1. 

2090 

2091 

298 

HYOV(  IC  .  5  )  -  P 

2091 

2092 

299 

END  If 

2092 

2093 

300 

END  DO 

2093 

2094 

301 

C 

2094 

2095 

302 

ELSE 

2095 

2096 

303 

C 

2096 

2097 

304 

DO  IC  »  NCI  ,  NC2 

2097 

2098 

305 

HYDV(  1C  .  5  )  -  HYDV(  1C  .  8  )  *  (  HYOV(  IC  .  7  )  -  1.  ) 

2098 

2099 

306 

END  DO 

2099 

2100 

307 

END  IF 

2100 

2101 

308 

c 

2101 

2102 

309 

NCI  -  NC2  +  1 

2102 

2103 

310 

NC2  -  NC2  +  NOFVEC(  INC  +  1  ) 

2103 

2104 

311 

no 

CONTINUE 

2104 

2105 

312 

c 

2105 

2106 

313 

IF(  NPRTCL  ,  NE  .  0  )  CALL  KYORFL 

2106 

2107 

314 

IJKNUH  •  IJKNUH  +  1 

2107 

2108 

315 

HRITEdO,*)  TT.(PR(KKJJ).KKJJ-1. NPRTCL) 

2108 

2109 

316 

140 

CONTINUE 

2109 

2110 

317 

C 

2110 

2111 

318 

PNAX  -  -10000000. 

2111 

2112 

319 

DO  415  IC  .  1  .  NC 

2112 

2113 

320 

IVl  -  JC(  1  .  IC  ) 

2113 

2114 

321 

IV2  -  JC(  2  .  IC  ) 

2114 

2115 

322 

IV3  -  JC(  3  .  IC  ) 

2115 

2116 

323 

IV4  -  JC(  4  .  IC  ) 

2116 

2117 

324 

HNUHM  -  HYOV(  IC  .  5  ) 

2117 

2118 

325 

HNUHN  -  XC(  4  ,  IC  ) 

2118 

2119 

326 

HNUH(  IVl  .  5  )  -  HHUM(  IVl  .  5  )  +  HHUHH  •  HHOMN 

2119 

2120 

327 

HNUH(  IVl  .  1  )  -  HNUN(  IVl  .  1  )  +  HNUHN 

2120 

2121 

328 

HN(M(  IV2  .  5  )  -  HNUH(  IV2  .  5  )  ♦  HNUHM  •  HNUHN 

2121 

2122 

329 

HNUH(  IV2  .  1  )  -  HNUM<  IV2  ,  1  )  +  HNUHN 

2122 

2123 

330 

KNUH(  IV3  ,  5  )  •  HNUM(  IV3  .  5  )  >  HNUMH  •  HNUHN 

2123 

2124 

331 

HNUH(  IV3  ,  1  )  -  HNUH(  IV3  .  1  )  +  HNUHN 

2124 

2125 

332 

HNUH(  IV4  ,  5  )  -  HNUM(  1V4  .  5  )  +  HNUMH  *  HNUHM 

2125 

2126 

333 

HNUH(  IV4  ,  1  )  •  HNUH(  IV4  .  1  }  ^  HNUHN 

2126 

2127 

334 

415 

CONTINUE 

2127 

2128 

335 

DO  IV  -  1  ,  NV 

2128 

2129 

336 

HNOM(  IV  .  5  )  -  HNUM(  IV  .  5  )  /  HNUH{  IV  ,  1  ) 

2129 

2130 

337 

END  DO 

2130 

2131 

338 

DO  IV  -  1  ,  NV 

2131 

2132 

339 

IF(  HNOH(  IV  ,  5  )  .GT.  PMAX  )  PHAX  -  HNUH(  IV  ,  5  ) 

2132 

2133 

340 

END  DO 

2133 

2134 

341 

PRINT  *  .  PMAX 

2134 

2135 

342 

C 

2135 

2136 

343 

ISNS  -  0 

2136 

2137 

344 

DO  300  IS  -  1  .  NS 

2137 

2138 

345 

IF{JS{9. IS). E0.6.AND.XS(2. IS). LT. 1.9649)  THEN 

2138 

2139 

346 

ISNS-lSNS+1 

2139 

2140 

347 

ISURF(ISNS)-IS 

2140 

2141 

348 

END  IF 

2141 

2142 

349 

300 

CONTINUE 

2142 

2143 

350 

print*, ISNS 

2143 

2144 

351 

C 

2144 

2145 

352 

C 

STEVE  FORMAT 

2145 

2146 

353 

C 

2146 

2147 

354 

DO  312  IV  -  1  .  NV 

2147 

2148 

355 

MRITE(17,1001)  IV.(XV(KK.IV),KK-1.3) 

2148 

2149 

356 

1001 

FORMATCn,  ’,15, ',2(F10.5,  ■.  d.FlO.S) 

2149 

2150 

357 

312 

CONTINUE 

2150 

2151 

358 

C 

2151 

2152 

359 

DO  322  IS  -  1  ,  ISNS 

2152 

2153 

360 

IK- I SURF (IS) 

2153 

2154 

361 

HRITE(18,1002)  IS.(JS(KK.1K),KK-1.3),JS{3,IK) 

2154 

2155 

362 

1002 

FORMATCen,', 4(110,'.’), 110) 

2155 

2156 

363 

322 

CONTINUE 

2156 

2157 

364 

C 

2157 

2158 

365 

WRITE (19. 1005)  TT 

2158 

2159 

366 

1005 

F0W1AT( 'time. ’.£13.5) 

2159 

2160 

367 

ITWO  -  1 

2160 

2161 

368 

IZERO  -  0 

2161 

2162 

369 

DO  342  IS  -  1  ,  ISNS 

2162 

2163 

370 

IK-ISURF(IS) 

2163 
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2164 

371 

WRITE(19.1003)  IS.ITW0.!ZER0.HHUM{JS(1.IK).5).HHUH(JS(2.IK).5), 

2164 

2165 

372 

. 

HN0M{JS(3.IK).5).HNUM(JS(3.IK),5) 

2165 

2166 

373 

1003 

F0RHAT('sfe.'.2(I5.'.*).‘pres.*.I5,'.',3(£12,5,'.’),E12.5) 

2166 

2167 

374 

342 

CONTINUE 

2167 

2168 

375 

C 

2168 

2169 

376 

WRITE ( 1 4 . 1010 1 )  3* ISNS . ISNS, NDUHHYl . NDUMHY3 . NDUMMYS 

2169 

2170 

377 

10101 

F0RMAT(5I8) 

2170 

2171 

378 

10102 

F0R«AT(I8.3E20.7) 

2171 

2172 

379 

10103 

F0RHAT(2I8.A6.3I8) 

2172 

2173 

380 

10104 

FORMAT! 18. E20.7) 

2173 

2174 

381 

CALL  RYORFL 

2174 

2175 

382 

KKVV  >  0 

2175 

2176 

383 

DO  310  IV  -  1  ,  ISNS 

2176 

2177 

384 

I((-ISURF(IV) 

2177 

2178 

385 

IVl  -  JS(l.IK) 

2178 

2179 

386 

IV2  -  JS(2.IK) 

2179 

2180 

387 

IV3  -  JS(3.IK) 

2180 

2181 

388 

XXV  -  XV(l.IVl) 

2181 

2182 

389 

YYV  -  XV(2.IV1) 

ziez 

2183 

390 

ZZV  -  XV(3.IV1) 

2183 

2184 

391 

XNN  -  -XNdK) 

2184 

2185 

392 

YNN  -  -YN(IK) 

2185 

2186 

393 

ZNN  •  -ZNdK) 

2186 

2187 

394 

XXX  -  XXV  +  XNN  *  .001 

2187 

2188 

395 

YYY  -  YYV  ♦  YNN  *  .001 

2188 

2189 

396 

ZZZ  -  ZZV  ♦  ZNN  *  .001 

2189 

2190 

397 

KKW  -  KKVV  ♦  1 

2190 

2191 

398 

WRITE! 14. 10102)  KKVV.XXX.YYY.ZZZ 

2191 

2192 

399 

XXV  -  XV!1.IV2) 

2192 

2193 

400 

YYV  -  XV!2.IV2) 

2193 

2194 

401 

ZZV  -  XVI3.IV2) 

2194 

2195 

402 

XXX  -  XXV  +  XNN  •  .001 

2195 

2196 

403 

YYY  -  YYV  +  YNN  *  .001 

2196 

2197 

404 

ZZZ  -  ZZV  +  ZNN  •  .001 

2197 

2198 

405 

KKW  -  KKW  >  1 

2198 

2199 

406 

WR1TE!14. 10102)  KKVV.XXX.YYY.ZZZ 

2199 

2200 

407 

XXV  -  XV!1.IV3) 

2200 

2201 

408 

YYV  -  XV!2.IV3) 

2201 

2202 

409 

ZZV  -  XV!3.1V3) 

2202 

2203 

410 

XXX  -  XXV  +  XNN  •  .001 

2203 

2204 

411 

YYY  -  YYV  +  YNN  •  .001 

2204 

2205 

412 

ZZZ  ■  ZZV  +  ZNN  •  .001 

2205 

2206 

413 

KKW  -  KKW  ♦  1 

2206 

2207 

414 

WRITE!14. 10102)  KKW.XXX.YYY.ZZZ 

2207 

2208 

415 

310 

CONTINUE 

2208 

2209 

416 

KKVV  -  0 

2209 

2210 

417 

DO  320  IS  -  1  .  ISNS 

2210 

2211 

418 

IK-ISURF!IS) 

2211 

2212 

419 

WR I TE ! 1 4 . 10 103 )  I S . I S . CTRI . KKVV+ 1 . KKVV+2 . KKVV+3 

2212 

2213 

420 

KKVV  -  KKVV  +  3 

2213 

2214 

421 

320 

CONTINUE 

2214 

2215 

422 

WRnE!14.10I01)  VDATA 

2215 

2216 

423 

WRITEd4.*)  VLABEL 

2216 

2217 

424 

KKW  -  0 

2217 

2218 

425 

DO  430  IV  •  1  .  ISNS 

2218 

2219 

426 

IK-ISURF!IV) 

2219 

2220 

427 

PRR  -  PRCIK) 

2220 

2221 

428 

HRITE!14. 10104)  KKVV+l.PRR 

2221 

2222 

429 

WRITEIH.  10104)  KKVV+2. PRR 

2222 

2223 

430 

WRITE! 14. 10104)  KKVV+3. PRR 

2223 

2224 

431 

KKVV  •  KKVV  +  3 

2224 

2225 

432 

430 

CONTINUE 

2225 

2226 

433 

ISNS  -  0 

2226 

2227 

434 

DO  IS  -  1  .  NS 

2227 

2228 

435 

IF(JS!9.IS).Eq.6)  THEN 

2228 

2229 

436 

XXS  -  XS!1.IS) 

2229 

2230 

437 

YYS  -  XSI2.IS) 

2230 

2231 

438 

ZZS  -  XSI3.IS) 

2231 

2232 

439 

ISNS-ISNS+1 

2232 

2233 

440 

ISURF!ISNS)-IS 

2233 

2234 

441 

END  IF 

2234 

2235 

442 

END  DO 

2235 

2236 

443 

print*.! SNS 

2236 

2237 

444 

WRITE! 15 . 10101 )  3* ISNS. ISNS. NDUMMYl . NDUMMY3 . NDUMMY3 

2237 
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2238 

445 

KKVV  -  0 

2238 

2239 

446 

DO  410  IV  -  1  .  ISHS 

2239 

2240 

447 

IK-ISURF(IV) 

2240 

2241 

448 

IVl  -  JS(l.IK) 

2241 

2242 

449 

IV2  -  JS(2.IK) 

2242 

2243 

450 

IV3  -  JS(3.IK) 

2243 

m 

2244 

451 

XNN  -  -XN(IK) 

2244 

2245 

452 

YNN  -  -YN(IK) 

2245 

2246 

453 

ZNN  -  -2N(IK} 

2246 

2247 

454 

XXV  -  XVd.IVl) 

2247 

2248 

455 

YYV  -  XV(2.m) 

2248 

2249 

456 

ZZV  -  XV(3.IV1) 

2249 

2250 

457 

XXX  -  XXV  +  XNN  *  .001 

2250 

A 

2251 

458 

YYY  -  YYV  +  YNN  *  .001 

2251 

V 

2252 

459 

ZZZ  -  ZZV  +  ZNN  •  .001 

2252 

2253 

460 

KKW  -  KKW  +  1 

2253 

2254 

461 

WRITE(15, 10102)  KKVV.XXX.YYY.ZZZ 

2254 

2255 

462 

XXV  -  XV(1.IV2) 

2255 

2256 

463 

YYV  -  XV(2.IV2) 

2256 

2257 

464 

ZZV  -  XV(3.IV2) 

2257 

2258 

465 

XXX  -  XXV  t  XNN  »  .001 

2258 

A 

2259 

466 

YYY  .  YYV  +  YNN  •  .001 

2259 

W 

2260 

467 

ZZZ  -  ZZV  +  ZNN  •  .001 

2260 

2261 

468 

KKW  -  KKW  +  1 

2261 

2262 

469 

WR1TE(15. 10102)  KKW. XXX. YYY, ZZZ 

2262 

2263 

470 

XXV  -  XV(1.IV3) 

2263 

2264 

471 

YYV  -  XV(2.IV3) 

2264 

2265 

472 

ZZV  -  XV(3.IV3) 

2265 

2266 

473 

XXX  -  XXV  +  XNN  *  .001 

2266 

2267 

474 

YYY  -  YYV  +  YNN  *  .001 

2267 

2268 

475 

ZZZ  -  ZZV  +  ZNN  •  .001 

2268 

2269 

476 

KKW  •  KKW  +  1 

2269 

2270 

477 

WRITE(15. 10102)  KKW.XXX.YYY.ZZZ 

2270 

2271 

478 

410 

CONTINUE 

2271 

2272 

479 

KKW  •  0 

2272 

2273 

480 

00  420  IS  •  1  ,  ISHS 

2273 

2274 

481 

IK-ISURF(IS) 

2274 

• 

2275 

482 

WRITE (15. 10103)  IS.IS.CTRI,KKVV+l,KKW+2,KKW+3 

2275 

2276 

483 

KKW  -  KKW  +  3 

2276 

2277 

484 

420 

CONTINUE 

2277 

2278 

485 

WRITE (15, 10101)  VDATA 

2278 

2279 

486 

WRITEdS,*)  VLABEL 

2279 

2280 

487 

KKW  •  0 

2280 

2281 

488 

DO  330  IV  -  1  .  ISHS 

2281 

2282 

489 

IK-ISURF(IV) 

2282 

• 

2283 

490 

PRR  -  PR(IK) 

2283 

2284 

491 

WRITEdS. 10104)  KKW+1,PRR 

2284 

2285 

492 

WRITEdS.  10104)  KKVV+2.PRR 

2285 

2286 

493 

WRITEdS.  10104)  KKVV+3.PRR 

2286 

2287 

494 

KKVV  -  KKVV  +  3 

2287 

2288 

495 

330 

CONTINUE 

2288 

2289 

496 

C 

2289 

A 

2290 

2291 

497 

408 

c 

2290 

2292 

499 

C 

2292 

2293 

500 

c 

I - 1 

2293 

2294 

SOI 

c 

I  OUTPUT  FILE  FOR  RESTARTS  I 

2294 

2295 

502 

c 

I - 1 

2295 

2296 

503 

c 

2296 

2297 

504 

IF(  JT  .  EQ  .  1  )  THEN 

2297 

2298 

505 

REWIND  8 

2298 

• 

2299 

506 

HRITE(9)  NV.NE.NS.NC.HTIME 

2299 

2300 

507 

WRITE(9)  ({XV(IK. IV), IK-1.3). IV-l.NV) 

2300 

2301 

508 

HRITE{9)  ((JE(KK.IE).KK-1.2).1E-1.NE) 

2301 

2302 

509 

WRITE(g)  ((JS(KK,IS).KK-1.9).(XS(KI.IS),K1-1,5). 

2302 

2303 

510 

XNdS),YNdS).ZNdS).XP(IS).YPdS).ZP(IS). 

2303 

2304 

511 

XT(IS).YTdS).2T(IS).IS-l.NS) 

2304 

2305 

512 

WRITE(9)  ((XYZMDL{KI.IS).K1.1.4).IS-1.NS) 

2305 

2306 

513 

HRITE(9)  ((JC(KK,1C).KK-1.8).(XC(KI.IC),KI-1,4).1C=1.NC) 

2306 

• 

2307 

514 

HRITE(9)  ((RCRADdC.KI),UGRAD(lC,KI).VGRAD(IC,KI). 

2307 

2308 

515 

WGRADdC,KI).PGRAOdC.KI).KI»1.3).IC-l.NC) 

2308 

2309 

516 

WRITE (9)  SAREVG, 

2309 

2310 

517 

NVECE , NREME , NVFCV , NREHV, NVECS, NREMS , NVECC . NREHC 

2310 

2311 

518 

WRITE(9)  RIN.PIN.RINL.PINL.UVIN.UIN.VIN.HIN.TT 

2311 
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2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

Thu  Jul 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 
237? 

23  '■ 
23:  • 
23‘ 
23. 0 
23.V 

2378 

2379 

2380 

2381 

2382 
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519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 


WRITE (9)  NPRTCL 
IF(NPRTCL.GT.O) 

.  HRITE(9)  (1JKPRT(IK).IK>1. NPRTCL) 

END  IF 

WRITE(9)  ({HYDVdC, IK), IK-1,8). IC=1,NC) 

C 

REWIND  88 

WRITE(88)  NV.NE.NS.NC.NTIHE 
WR1TE(88)  ({XV(1K.IV).IK-1.3).IV-1.HV) 

WRITE(88)  ((JE(KK,IE).KK-1.2).IE-1.NE) 

WRITE{88)  ({JS(KK.IS).KK-l.9).{XS{KI.IS).KI-1.5). 

XM(IS).YN(IS).ZN(IS).XP(IS),YP(IS).ZP(IS), 

XT(IS).YT(IS).ZT(IS),IS-1.NS) 

WRITE(88)  ((XY2HDL(KI,IS).KI-1,4),IS-1,NS) 

WRITE(88)  ((JC(KK.IC).KK-1,8).(XC{KI.1C).KI-1,4).IC-1,HC) 
WRITE(88)  ((RGRAD(IC.KI}.UGRAO(IC.KI).VGRAO(IC,KI), 
WGRA0(IC.KI).PGRAD(IC.KI).KI-1,3),IC-1.NC) 
HRITE(8a)  SAREVG, 

NVECE , NREHE . NVECV . NREHV, NVECS . NREMS , NVECC . KREHC 
WRITE(88)  RIN.PIN.RINL.PINL.UVIN.UIN.VIN.WIN.TT 
HR1TE{88)  NPRTCL 
IF(NPRTCL.GT.O) 

.  WRITE{88)  (IJKPRT(IK).IK-l. NPRTCL) 

WRITE(88)  ((HYOVdC. IK). IK-1.8). IC-1. NO 
C 

120  CIMTINUE 
REMIND  10 
REMIND  26 

WRITE(26.*)  IJKNUH 

DO  KKJ  -  1  .  IJKNUN 

READ  (10.*)  R0.(RRH( IK). IK-1. NPRTCL) 

WRITE  (26.*)  RO,(RRNdK), IK-1. NPRTCL) 

END  DO 
C 

RETURN 

END 
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2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 
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2 

C 

2350 

3 

• 

2351 

4 

C 

1 

2352 

5 

C 

GEOHTR  COMPUTE  THE  DUAL  MESH  AFTER  INITIALIZATION  THE  GRID  I 

2353 

6 

c 

I 

2354 

7 

C— _ 

2355 

8 

c 

2356 

9 

include  'dmshOO.h' 

2357 

10 

include  'dhydmO.h' 

2358 

11 

include  'dphsnO.h' 

2359 

12 

include  'dintrlO.h' 

2360 

13 

c 

2361 

14 

c  — 

DEFINING  BOUNDARY  EDGES  AND  COMPUTING  BAR  CENTER  OF  TRIANGLES 

2362 

15 

c 

2363 

16 

PRINT  *  .  NE.NS 

2364 

17 

DO  110  IC  -  1  ,  NC 

2365 

18 

SVOLM(  IC  )  -  1.  /  XC(  4  .  IC  ) 

2366 

19 

no 

CONTINUE 

2367 

20 

c 

2368 

21 

DO  120  IS  -  1  .  NS 

2369 

22 

c 

2370 

23 

ICL  -  JS(  7  .  IS  ) 

2371 

24 

ICR  -  JS{  8  ,  IS  ) 

2372 

25 

c 

2373 

26 

IVl  -  JS(  1  ,  IS  ) 

2374 

27 

IV2  -  JS(  2  ,  IS  ) 

2375 

28 

IV3  -  JS(  3  .  IS  ) 

2376 

29 

c 

2377 

30 

XI  -  XV(  1  ,  IVl  ) 

2378 

31 

YI  -  XV(  2  .  IVl  ) 

2379 

32 

Z1  -  XV(  3  ,  IVl  ) 

2380 

33 

c 

2381 

34 

A  -  XN(  IS  ) 

2382 
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2383 

35 

B  •  YN(  IS  ) 

2383 

2384 

36 

C  -  ZN(  IS  ) 

2384 

2385 

37 

C 

2385 

2386 

38 

0--(A*Xl+B*Yl+C»21) 

2386 

2387 

39 

C 

2387 

2388 

40 

XCL  -  XC(  1  .  ICL  ) 

2382 

2389 

41 

YCL  -  XC(  2  .  ICL  ) 

2389 

2390 

42 

ZCL  -  XC{  3  .  ICL  ) 

’390 

2391 

43 

c 

2391 

2392 

44 

OD  -  A  •  XCL  +  B  *  YCL  +  C  *  ZCL  ♦  D 

2392 

2393 

45 

c 

2393 

2394 

46 

lATRB  -  JS{  9  .  IS  ) 

2394 

2395 

47 

IF(  lATRB  .  £Q  .  0  )  THEN 

2395 

2396 

48 

c 

2396 

2397 

49 

XCR  -  XC(  1  .  ICR  ) 

2397 

2398 

50 

YLR  -  XC(  2  ,  ICR  ) 

2398 

2399 

51 

ZCR  ■  XC(  3  .  ICR  ) 

2399 

2400 

52 

c 

2400 

2401 

53 

XX  -  XCR  -  XCL 

2401 

2402 

54 

YY  -  YCR  -  YCL 

2402 

2403 

55 

ZZ  -  ZCR  -  ZCL 

2403 

2404 

56 

c 

2404 

2405 

57 

[)OD-A*XX  +  B*YY  +  C*ZZ 

2405 

2406 

58 

c 

2406 

2407 

59 

XYZ  -  -  00  /  ODD 

2407 

2408 

60 

XYZHOLI  4  .  IS  )  -  XYZ 

2408 

2409 

61 

XYZMDL{  1  .  IS  )  ■  XCL  +  XYZ  •  XX 

2409 

2410 

62 

XYZMDLI  2  .  IS  )  •  YCL  >  XYZ  *  YY 

2410 

2411 

63 

XYZHDL(  3  .  IS  )  -  ZCL  +  XYZ  *  ZZ 

2411 

2412 

64 

XS(  5  .  IS  )  -  SQRTI  XX  «  XX  +  YY  *  YY  +  ZZ  *  ZZ  ) 

2412 

2413 

65 

c 

2413 

2414 

66 

ELSE 

2414 

2415 

67 

c 

2415 

2416 

68 

XYZ  -  -  00 

2416 

2417 

69 

XYZHDL(  1  .  IS  )  -  XCL  ♦  XYZ  *  A 

2417 

2418 

70 

XYZ«DL(  2  .  IS  )  -  YCL  ♦  XYZ  •  B 

2418 

2419 

71 

XYZMDLI  3  .  IS  )  •  ZCL  +  XYZ  •  C 

2419 

2420 

72 

XS{  5  ,  IS  )  -  ABS(  XYZ  ) 

XYZMDLI  4  .  IS  )  -  1. 

2420 

2421 

73 

2421 

2422 

74 

c 

2422 

2423 

75 

END  IF 

2423 

2424 

76 

c 

2424 

2425 

7/ 

120 

CONTINUE 

2425 

2426 

78 

c 

2426 

2427 

79 

RETURN 

2427 

2428 

80 

Era) 

2428 

2429 

81 

c 

2429 

2430 

82 

SUBROUTINE  UPDATE 

2430 

2431 

83 

c 

2431 

2432 

84 

•  I 

2432 

2433 

85 

c 

I 

2433 

2434 

86 

c 

UPDATE  COMPUTE  THE  DUAL  MESH  AFTER  INITIALIZATION  THE  GRID 

I 

2434 

2435 

87 

c 

I 

2435 

2436 

88 

-I 

2436 

2437 

89 

c 

2437 

2438 

90 

include  'dmshOO.h' 

2438 

2439 

91 

Include  'dhydmO.h' 

2439 

2440 

92 

include  'dphsmO.h' 

include  'dmtrlO.h* 

2440 

2441 

93 

2441 

2442 

94 

c 

2442 

2443 

95 

c 

2443 

2444 

96 

c 

READ  IN  VERTEX  INFORMATION 

2444 

2445 

97 

c 

2445 

2446 

98 

READ  116,*)  NV.NE,NC,HS 

2446 

2447 

99 

DO  1110  IK  -  1  ,  NV 

2447 

2448 

100 

READ  116,*)  IJ,XVI1,IK).XVI2.IK).XVI3,IK) 

2448 

2449 

101 

XXX  -XVII, IK)  +  34.5 

2449 

2450 

102 

YYY  -XVI2,IK)  -  65.75 

2450 

2451 

103 

III  -XVI3.IK)  +  11.5 

2451 

2452 

104 

XVU,iK)-XXX*.0254 

2452 

2453 

105 

XVI2.IK)-YYY*.0Z54 

2453 

2454 

106 

XVI3.IK)-ZZZ*.0254 

2454 

2455 

107 

1110 

CONTINUE 

2455 

2456 

108 

PRINT  *  ,  NV 

2456 
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2457 

109 

C 

2458 

no 

C 

READ  IN  EDGE  INFORMATION  (  EDGES  OF  TRIANGLES). 

2459 

111 

C 

2460 

112 

DO  1120  IK  =  1  .  NE 

2461 

113 

READ  (16,*)  lJ,JE{l,iK).J£(2.IK) 

2462 

114 

1120 

CONTINUE 

2463 

115 

PRINT  *  .  HE 

2464 

116 

C 

2465 

117 

c 

READ  IN  CELL  (TETRAHIDRAL)  INFORMATION. 

2466 

118 

c 

2467 

119 

c 

CELL  INFORMATION.  FOR  EACH  CELL  FOUR  VERTICES 

2468 

120 

c 

2469 

121 

DO  1130  IK  -  1  ,  NC 

2470 

122 

READ  (16.*)  IJ.JC(1.IK).JC,MK).JC(3,IK).JC(4.IK) 

2471 

123 

1130 

CONTINUE 

2472 

124 

C 

2473 

125 

DO  1200  IK  -  1  .  NC 

2474 

126 

IVl  -  JC(  1  .  IK  ) 

2475 

127 

IV2  -  JC(  2  .  IK  ) 

2476 

128 

IV3  -  JC(  3  .  IK  ) 

2477 

129 

IV4  -  JC(  4  .  IK  ) 

2478 

130 

C 

2479 

131 

C 

SIDE  INFORMATION.  FOR  EACH  CELL  CENTROID  OF  CELL 

2480 

132 

C 

2481 

133 

XC(  1  ,  IK  )  ’  (  XV(  1  .  IVl  )  *  XV(  1  .  IV2  )  + 

2482 

134 

XV(  1  .  IV3  )  t  XV(  1  ,  1V4  )  )  * 

.25 

2483 

135 

XC(  2  .  IK  )  »  (  XV(  2  ,  IVl  )  ♦  XV(  2  .  IV2  )  + 

2484 

136 

XV(  2  .  IV3  )  ♦  XV(  2  .  1V4  )  )  * 

.25 

2485 

137 

XC(  3  .  IK  )  =  (  XV(  3  .  IVl  )  +  XV(  3  .  IV2  )  + 

2486 

138 

XV(  3  .  IV3  )  ^-  XV{  3  .  IV4  )  )  * 

.25 

2487 

139 

C 

2488 

140 

c 

SIDE  INFORMATION.  FOR  EACH  CELL  VOLUME  OF  CELL 

2489 

141 

c 

2490 

142 

XPIJ  -  XV(  1  .  IV2  )  -  XV(  1  .  IVl  ) 

2491 

143 

YPIJ  -  XV(  2  .  IV2  )  -  XV(  2  .  IVl  ) 

2492 

144 

ZPIJ  -  XV(  3  .  IV2  )  -  XV(  3  .  IVl  ) 

2493 

145 

c 

2494 

146 

XPIK  -  XV{  1  .  IV3  )  .  XV(  1  .  IVl  ) 

2495 

147 

YPIK  -  XV(  2  .  IV3  )  .  XV(  2  .  IVl  ) 

2496 

148 

ZPIK  -  XV(  3  .  IV3  )  -  XV(  3  ,  IVl  ) 

2497 

149 

c 

2498 

150 

XNIK  -  YPIJ  *  ZPIK  -  ZPIJ  •  YPIK 

2499 

151 

YNIK  -  ZPIJ  *  XPIK  -  XPIJ  *  ZPIK 

2500 

152 

ZNIK  -  XPIJ  *  YPIK  -  YPIJ  *  XPIK 

2501 

153 

c 

2502 

154 

XPIJ  .  XV(  1  .  IV4  )  -  XV(  1  .  IVl  ) 

2503 

155 

YPIJ  »  XV(  2  .  IV4  )  -  XV(  2  .  IVl  ) 

2504 

156 

ZPIJ  -  XV(  3  .  IV4  )  -  XV(  3  .  IVl  ) 

2505 

157 

c 

2506 

158 

VOL  -  (  XNIK  *  XPIJ  +  YNIK  *  YPIJ  + 

2507 

159 

ZNIK  *  ZPIJ  )  /  5. 

2508 

160 

XC(  4  .  IK  )  -  VOL 

2509 

161 

IF(  VOL  .  LT  .  0.  )  PRINT  ‘.IK.VOL 

2510 

162 

1200 

CONTINUE 

2511 

163 

PRINT  *  .  NC 

2512 

164 

c 

2513 

165 

c 

READ  IN  SIDE  (TRIANGLE)  INFORMATION. 

2514 

166 

c 

2515 

167 

c 

SIDE  INFORMATION.  FOR  EACH  FACE  THREE  VERTICES 

2516 

168 

c 

2517 

169 

DO  1150  IK  -  1  .  NS 

2518 

170 

READ  (16.*)  IJ.JS(1.IK),JS(2.IK).JS(3.IK) 

2519 

171 

1150 

CONTINUE 

2520 

172 

PRINT  *  ,  NS.NC 

2521 

173 

c 

2522 

174 

c 

SIDE  INFORMATION.  FOR  EACH  FACE  THREE  EDGES 

2523 

175 

c 

2524 

176 

DO  ’’50  IK  -  1  .  NS 

2525 

177 

P'Af  ^'.,*)  IJ.J5(4.IK).JS(5.IK).JS(6.IK) 

2526 

178 

1160 

CONilrtUE 

2527 

179 

PRINT  *  ,  NS.NC.NV 

2528 

160 

c 

2529 

181 

c 

CELL  INFORMATION.  FOR  EACH  CELL  FOUR  EDGES 

2530 

182 

c 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 
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2531 

183 

00  1140  IK  •  1  ,  NC 

2531 

2532 

184 

READ  (16,*)  IJ.JC5.10IRI.JC6,IDIR2. 

2532 

2533 

185 

JC7.IDIR3.JC8,IDIR4 

2533 

2534 

186 

JC{5.IK)  -  !ABS{  JC5  ) 

2534 

2535 

187 

JC{6,IK)  -  IABS(  JC6  ) 

2535 

2536 

188 

JC(7.IK)  -  IABS(  JC7  ) 

2536 

2537 

189 

JC(8.IK)  -  1ABS(  JC8  ) 

2537 

2538 

190 

1140 

CONTINUE 

2538 

2539 

191 

PRINT  •  .  NS.NC.NV.NE 

2539 

2540 

192 

C 

2540 

2541 

193 

C 

SIDE  INFORMATION.  FOR  EACH  FACE  LEFT  AND  RIGHT  TETREHEDRA 

2541 

2542 

194 

C 

2542 

2543 

195 

DO  1170  IK  -  1  .  NS 

2543 

2544 

196 

READ  (16,*)  IJ,JS(7.IK).JS(8,IK) 

2544 

2545 

197 

JS(  9  ,  IK  )  -  0 

2545 

2546 

198 

1170 

CONTINUE 

2546 

2547 

199 

PRINT  *  ,  NC.NV.NE 

2547 

2548 

200 

C 

2548 

2549 

201 

C 

SIDE  INFORMATION.  FOR  EACH  FACE  BOUNDARY  CONDITION 

2549 

2550 

202 

C 

2550 

2551 

203 

1180 

CONTINUE 

255’. 

2552 

204 

READ  {16,*,EN0-1210)  IJ.IDUHy.JS(9. IJ) 

2552 

2553 

205 

GO  TO  1180 

2553 

2554 

206 

1210 

CONTINUE 

2554 

2555 

207 

PRINT  *  ,  NV.NE.NS.NC 

2555 

2556 

208 

C 

2556 

2557 

209 

DO  1190  IK  -  1  ,  NS 

2557 

2558 

210 

IVl  -  JS(  1  ,  IK  ) 

2558 

2559 

211 

IV2  -  JS(  2  .  IK  ) 

2559 

2560 

212 

IV3  -  JS(  3  .  IK  ) 

2560 

2561 

213 

c 

2561 

2562 

214 

c 

SIDE  INFORMATION,  FOR  EACH  FACE  TANGENTIAL  VECTOR 

2562 

2563 

215 

c 

2563 

2564 

216 

XP{  IK  )  -  XV(  1  .  IV2  )  -  XW(  1  .  IVl  ) 

2564 

2565 

217 

YP(  IK  )  -  XV(  2  ,  IV2  )  -  XV(  2  .  IVl  ) 

2565 

2566 

218 

ZP(  IK  )  -  XV(  3  .  1V2  )  -  XV(  3  .  IVl  ) 

2566 

2567 

219 

XPOUMY  •  XV{  1  .  IV3  )  -  XV(  1  .  IVl  ) 

2567 

2568 

220 

YPOUMY  •  XV(  2  .  IV3  )  -  XV(  2  ,  IVl  ) 

2568 

2569 

221 

mm  -  xv{  3  ,  IV3  )  -  xv{  3  .  ivi  i 

2569 

2570 

222 

c 

2570 

2571 

223 

c 

SIDE  INFORMATION,  FOR  EACH  FACE  NORMAL  UNIT  VECTOR 

2571 

2572 

224 

c 

2572 

2573 

225 

XH(  IK  )  -  YP(  IK  ;  *  ZPOUMY  -  ZP(  IK  )  •  YPOUMY 

2573 

2574 

226 

YH(  IK  )  .  ZP(  IK  )  *  XPDOMY  -  XP(  IK  )  *  ZPDUMY 

2574 

2575 

227 

ZN(  IK  )  -  XP(  IK  )  •  YPOUMY  -  YP(  IK  )  *  XPOUMY 

2575 

2576 

228 

c 

2576 

2577 

229 

c 

SIDE  INFORMATION,  FOR  EACH  FACE  TANGENTIAL  VECTOR 

2577 

2578 

230 

c 

2578 

2579 

231 

XT(  IK  )  .  -  YP(  IK  )  •  ZH(  IK  )  +  ZP(  IK  )  •  YN(  IK  ) 

2579 

2580 

232 

yT(  IK  )  -  -  ZP(  IK  )  *  XN(  IK  )  +  XP(  IK  )  *  ZN(  IK  ) 

2580 

2581 

233 

ZT(  IK  )  -  -  XP{  IK  )  *  YN(  IK  )  *  YP(  IK  )  *  XN(  IK  ) 

2581 

2582 

234 

c 

2582 

2583 

235 

XYZOUH  -  XN(IK)»XN(1K)  *  YN(1K)*YH{1K)  ♦  ZN(IK)*ZN(IK) 

2583 

2584 

236 

1F(XYZ0UM.EQ.0.)  PRINT  *,IK 

2584 

2585 

237 

XYZDUM  -  1.  /  SqRT(  XYZDUM  ) 

2585 

2586 

238 

c 

2586 

2587 

239 

c 

SIDE  INFORMATION,  FOR  EACH  FACE  AREA  OF  FACE 

2587 

2588 

240 

c 

2588 

2589 

241 

XS(  4  ,  IK  )  -  .5  /  XYZOUH 

2589 

2590 

242 

c 

2590 

2591 

243 

c 

SIDE  INFORMATION,  FOR  EACH  FACE  CENTROJO  OF  FACE 

2591 

2592 

244 

c 

2592 

2593 

245 

XS(  1  ,  IK  ’  -  (  XV(  1  .  IVl  )  ♦  XV(  1  ,  IV2  )  + 

2593 

2594 

246 

XV(  1  ,  IV3  )  )  /  3. 

2594 

2595 

247 

XS(  2  .  IK  )  -  {  XV{  2  .  IVl  )  *  XV;  ’  IV2  )  * 

2595 

2596 

248 

XV{  2  .  IV3  )  )  /  3. 

2596 

2597 

249 

XS(  3  ,  IK  )  =  (  XV(  3  ,  IVl  )  »  XV{  3  ,  IV2  )  ' 

2597 

2598 

250 

XV(  3  .  IV3  )  )  /  3. 

2598 

2599 

251 

XH(  IK  )  -  XN(  IK  )  •  XYZDUM 

2599 

2600 

252 

YN(  IK  )  -  YN(  IK  /  •  XYZDUM 

2600 

2601 

253 

ZN(  IK  )  .  ZN(  IK  )  *  XYZDUM 

2601 

2602 

254 

XYZDUM  .  XP(1K)*XP(IK)  *  YP( IK)*YP( IK)  »  ZP{ 1K)*ZP( IK) 

2602 

2603 

255 

XYZDUM  -  1.  /  SORT(  XYZDUM  ) 

2603 

2604 

256 

XP(  IK)  .  XP(  IK  )  •  XYZDUM 

2604 
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2605 

257 

YP{  IK)  -  YP(  IK  )  •  XYZOUM 

2605 

2606 

258 

ZP(  IK)  -  ZP(  IK  )  •  XYZDUM 

2606 

2607 

259 

XYZDUM  -  XT{IK)*XT(IK)  +  YT(IK)*YT(1K)  ♦  ZT( IK)»ZT{ IK) 

2607 

2608 

<■60 

XYZDUM  -  1.  /  S0RT(  XYZDUM  ) 

2608 

2609 

261 

XT(  IK)  -  Xr(  IK  )  »  XYZDUM 

2609 

2610 

262 

YT(  IK)  .  YT(  IK  )  *  XYZDUM 

2610 

2611 

263 

ZT(  IK)  •  ZT(  IK  )  •  XYZDUM 

2611 

2612 

264 

1190 

CONTINUE 

2612 

2613 

265 

PRINT  *  .  NS 

2613 

2614 

266 

C 

2614 

2615 

267 

NVECV  -  NV  /  128 

2615 

2616 

268 

NREMV  -  NV  -  NVECV  *  128 

2616 

2617 

269 

NVECE  -  NE  /  128 

2617 

2618 

270 

NREME  -  NE  -  NVECE  *  128 

2618 

2619 

271 

NVECS  -  NS  /  128 

2619 

2620 

272 

NREHS  -  NS  -  NVECS  •  128 

2620 

2621 

273 

NVECC  -  NC  /  128 

2621 

2622 

274 

NREHC  -  NC  -  NVECC  *  128 

2622 

2623 

275 

C 

2623 

2624 

276 

DO  125  INV  -  1  .  NVECV 

2624 

2625 

277 

NOFVEVI  INV  )  •  128 

2625 

2626 

278 

125 

CONTINUE 

2626 

2627 

279 

NVEEV  -  NVECV 

2627 

2628 

280 

IF(  NREMV  .  GT  .  0  )  THEN 

2628 

2629 

281 

NVEEV  -  NVECV  ♦  1 

2629 

2630 

282 

NOFVEV(  NVEEV  )  >  NREMV 

2630 

2631 

283 

END  IF 

2631 

2632 

284 

C 

2632 

2633 

285 

00  105  INE  -  1  ,  NVECE 

2633 

2634 

286 

NOFVEEI  INE  )  -  128 

2634 

2635 

287 

105 

CONTINUE 

2635 

2636 

288 

NVEEE  >  NVECE 

2636 

2637 

289 

IF{  NREME  .  GT  .  0  )  THEN 

2637 

2638 

290 

NVEEE  •  NVECE  >  1 

2638 

2639 

291 

NOFVEE(  NVEEE  )  -  NREfK 

2639 

2640 

292 

END  IF 

2640 

2641 

293 

C 

2641 

2642 

294 

DO  115  INS  -  1  .  NVECS 

2642 

2643 

295 

NOFVES(  INS  )  »  128 

2643 

2644 

296 

115 

CONTINUE 

2644 

2645 

297 

NVEES  ■  NVECS 

2645 

2646 

298 

1F(  NREHS  .  GT  .  0  )  THEN 

2646 

2647 

299 

NVEES  -  NVECS  ♦  1 

2647 

2648 

300 

NOFVESI  NVEES  )  -  NREHS 

2648 

2649 

301 

END  IF 

2649 

2650 

302 

C 

2650 

2651 

303 

DO  135  INC  .  1  .  NVECC 

2651 

2652 

304 

NOFVECC  INC  )  .  128 

2652 

2653 

305 

135 

CONTINUE 

2653 

2654 

306 

NVEEC  -  NVECC 

2654 

2655 

307 

IF(  NREHC  .  GT  .  0  )  THEN 

2655 

2656 

308 

NVEEC  -  NVECC  +  1 

2656 

2657 

309 

NOFVEC(  NVEEC  )  .  NREHC 

2657 

2658 

310 

END  IF 

2658 

2659 

311 

C 

2659 

2660 

312 

PRINT  VNV.NE.NS.NC 

2660 

2661 

313 

PRINT  *, NVEEV. NVEEE, NVEES.NVEEC 

2661 

2662 

314 

PRINT  •, NREMV. NREME, NREHS. NREHC 

2662 

2663 

315 

1001 

F0W«T(4I7) 

2663 

2664 

316 

1002 

F0RHAT(I7,3E20.12) 

2664 

2665 

317 

C 

2665 

2666 

318 

CALL  GEOHTR 

2666 

2667 

319 

c 

2667 

2668 

320 

RETURN 

2668 

2669 

321 

END 

2669 

2670 

322 

c 

2670 

page  37 


Thu  Jul 

1  14:17:00 

1993  threeO.f  SUBROUTINE  UPGRAD 

page  38 

2671 

1 

SUBROUTINE  UPGRAD 

2671 

2672 

2 

C 

2672 

2673 

3 

C— 

2673 

2674 

4 

c 

i 

2674 

2675 

5 

c 

UPGRAD  COMPUTE  THE  DUAL  MESH  AFTER  ADOAPTING  THE  GRID  I 

2675 

2676 

6 

c 

I 

2676 

2677 

7 

C— - 

2677 

2678 

2678 

8 

c 

2679 

9 

include  'dmshOO.h' 

2679 

2680 

10 

include  'dhycM.h' 

2680 

2681 

11 

include  'dphsnO.h* 

2»1 

2682 

12 

include  'dmtrlO.h' 

2682 

2683 

13 

c 

2683 

2684 

14 

REAL  XELEFT(128).YELEFT(128).XERIGT(128).YERIGT(128) 

2684 

2685 

IS 

c 

2685 

2686 

16 

c  — 

-  DEFINING  BOUNDARY  EDGES 

2686 

2687 

17 

c 

2687 

2688 

18 

REA0(8)  NV.NE.NS.NC.NTINE 

2688 

2689 

19 

READ(8)  {(XV(IK.IV),IK.1.3).IV-1.NV) 

2689 

2690 

20 

READ(8)  ((JE(KK.1E),KK-1.2).1E-1.NE) 

2690 

2691 

21 

READ(8)  ((JS(KK,IS),KK-1.9).(XS{KI.IS),KI-1,5), 

2691 

2692 

22 

XN(IS).YN(1S).ZH(IS).XP(1S).YP(IS).ZP(IS). 

2692 

2693 

23 

XT(IS),YT(IS).ZT(IS).IS-1.NS) 

2693 

2694 

24 

REA0(8)  ((XYZIfflL(KI.IS).KI.1.4).IS-l.MS) 

2694 

2695 

25 

READ{8)  ((JC(KK.IC).KK-1.8).(XC{KI.IC).KI-1.4).IC-1.NC) 

2695 

2696 

26 

READ{8)  ((RGRA0(IC,KI),UGRA0(1C,KI).VGRAD{IC.K1). 

2696 

2697 

27 

HGRA0(IC.KI).PGRAD(IC.KI),KI.1.3).IC-1.NC) 

2697 

2698 

28 

READ(8}  SAREVG. 

2698 

2699 

29 

NVECE , NREHE , NVECV . NREMV , NVECS , NREHS . NVECC . NREMC 

2699 

2700 

30 

PRINT  *  ,  HE. NS 

2700 

2701 

31 

c 

2701 

2702 

32 

DO  100  IC  -  1  ,  NC 

2702 

2703 

33 

SVOLM(  IC  )  .  1.  /  XC(  4  .  IC  ) 

2703 

2704 

34 

100 

CONTINUE 

2704 

2705 

35 

c 

2705 

2706 

36 

DO  105  INE  -  1  .  NVECE 

2706 

2707 

37 

NOfVEE(  INE  )  -  128 

2707 

2708 

36 

105 

CONTINUE 

2708 

2709 

39 

NVEEE  •  NVECE 

2709 

2710 

40 

IF(  NREHE  .  GT  .  0  )  THEN 

2710 

2711 

41 

NVEEE  -  NVECE  ♦  1 

2711 

2712 

42 

NOFVEE(  NVEEE  )  >  NREME 

2712 

2713 

43 

END  IF 

2713 

2714 

44 

c 

2714 

2715 

45 

DO  115  INS  •  1  ,  NVECS 

2715 

2716 

46 

NOFVESI  INS  )  »  128 

2716 

2717 

47 

115 

CONTINUE 

2717 

2718 

48 

NVEES  -  NVECS 

2718 

2719 

49 

IF(  NREHS  .  GT  ,  0  )  THEN 

2719 

2720 

50 

NVEES  -  NVECS  +  1 

2720 

2721 

51 

NOFVES(  NVEES  )  -  NREHS 

2721 

2722 

52 

END  IF 

2722 

2723 

S3 

C 

2723 

2724 

54 

DO  125  INV  -  1  ,  NVECV 

2724 

2725 

55 

NOFVEV(  INV  )  -  128 

2725 

2726 

56 

125 

CONTINUE 

2726 

2727 

57 

NVEEV  -  NVECV 

2727 

2728 

58 

IF(  NREHV  .  GT  .  0  )  THEN 

2728 

2729 

59 

NVEEV  -  NVECV  +  1 

2729 

2730 

60 

NOFVEVC  NVEEV  )  -  NREHV 

2730 

2731 

61 

END  IF 

2731 

2732 

62 

C 

2732 

2733 

63 

DO  135  INC  -  1  .  NVECC 

2733 

2734 

64 

HOFVEC{  INC  )  ’  128 

2734 

2735 

65 

135 

CONTINUE 

2735 

2736 

66 

NVEEC  -  NVECC 

2736 

2737 

67 

IF(  NREHC  .  GT  .  0  )  THEN 

2737 

2738 

68 

NVEEC  -  NVECC  +  1 

2738 

2739 

69 

NOFVECC  NVEEC  )  -  NREMC 

2739 

2740 

70 

END  IF 

2740 

2741 

71 

C 

2741 

2742 

72 

PRINT  * , MV . NE , NS . NC , NVECV , NREMV . NVECE . NREHE .NVECS , NREHS , 

2742 

2743 

73 

NVECC. NREHC 

2743 

2744 

74 

C 

2744 
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2745 

75 

RETURN 

2745 

2746 

76 

END 

2746 

2747 

77 

C 

2747 

Thu  Jul 

1  14:17:00 

1993  threed.f  SUBROUTINE  GRADNT 

2748 

1 

SUBROUTINE  GRAONT 

2748 

2749 

2 

C 

2749 

2750 

3 

C-. 

2750 

2751 

4 

c 

I 

2751 

2752 

5 

c 

GRAONT  COMPUTE  THE  GRADIENT  FOR  SECOND  ORDER  CALCULATION  I 

2752 

2753 

6 

c 

I 

2753 

2754 

7 

c — 

2754 

2755 

8 

c 

2755 

2756 

9 

include  'ctnshOO.h' 

2756 

2757 

10 

include  'dhydmO.h' 

2757 

2758 

11 

include  'dphsmO.h' 

2758 

2759 

12 

include  'dmtrlO.h' 

2759 

2760 

13 

c 

2760 

2761 

14 

REAL  RRHI0L(128).PPMI0L(128).UUMIDL(128).VVMIDL(128), 

2761 

2762 

15 

HWHI0L(128),AAM10L(128) 

2762 

2763 

16 

REAL  RIGPJUK 128) , PIGRADC 128) .UIGRAO(128) , V1GRA0(128) , 

2763 

2764 

17 

WIGRA0(128),AIGRA0(128) 

2764 

2765 

18 

REAL  RJGRAD( 128) . PJGRAD( 128) .UJGRAD( 128) . VJCRAO( 128) . 

2765 

2766 

19 

HJGRA0(128),A  JRA0(128) 

2766 

2767 

20 

REAL  RKGRADl 128) . PKGRA0(128) , UKGRAD( 128) . VKGRAD( 128) . 

2767 

2768 

21 

WKGRA0(128).AKGRAD(128) 

2768 

2769 

22 

REAL  RMAX( 128) , PHAX( 128) .UMAX(128) . VMAX( 128) .WMAX( 128) . 

2769 

2770 

23 

AHAX(128) 

2770 

2771 

24 

REAL  RM!N(128).PMIN(128).UH1N(128).VMIN(128),WMIN(128), 

2771 

2772 

25 

AMIN(128) 

2772 

2773 

26 

REAL  R0R(4) . U0R(4) , V0R(4) ,H0R(4) .P0R(4) . A0R(4) 

2773 

2774 

27 

REAL  ROL(4).UOL(4).VOL(4),HOL(4).POL(4).AOL(4) 

2774 

2775 

28 

c 

2775 

2776 

29 

DO  120  IN  ■  1  ,  3 

2776 

2777 

30 

c 

2777 

2778 

31 

00  120  IC  •  1  ,  NC 

2778 

2779 

32 

c 

2779 

2780 

33 

RGRAD(  IC  ,  IH  )  •  0. 

2780 

2781 

34 

UGRAO(  IC  ,  IH  )  -  0. 

2781 

2782 

35 

VGRAO(  IC  .  IH  )  -  0. 

2782 

2783 

36 

HGRAO(  IC  ,  IH  )  •  0. 

2783 

2784 

37 

PGRAD(  1C  .  IH  )  -  0. 

2784 

2785 

38 

c 

2785 

2786 

39 

120 

CONTINUE 

2786 

2787 

40 

c 

2787 

2788 

41 

c  - 

-  BEGIN  LOOP  OVER  ALL  EDGES  IN  THE  DOMAIN  . 

2788 

2789 

42 

c 

2789 

2790 

43 

NSl  •  1 

2790 

2791 

44 

NS2  -  NOFVESI  1  ) 

2791 

2792 

45 

DO  90  INS  -  1  ,  NVEES 

2792 

2793 

46 

c 

2793 

2794 

47 

c  - 

-  FETCH  HYDRO  QUANTITIES  . 

2794 

2795 

48 

c 

2795 

2796 

49 

DO  105  IS  -  NSl  .  NS2 

2796 

2797 

50 

KS  -  IS  -  NSl  +  1 

2797 

2798 

51 

c 

2798 

2799 

52 

ICL  -  JS(  7  ,  IS  ) 

2799 

2800 

53 

ICR  .  JS{  8  .  IS  ) 

2800 

2801 

54 

c 

2801 

2802 

55 

lATRB  -  JS(  9  ,  IS  ) 

2802 

2803 

56 

IF{  lATRB  ,  EQ  .  0  )  THEN 

2803 

2804 

57 

c 

2804 

2805 

58 

XYZ  .  XYZMDLI  4  ,  IS  ) 

2805 

2806 

59 

RRHIOL(  KS  )  -  HYDV{  ICL  ,  1  )  *  XYZ  »  (  HYDV(  ICR  ,  1  )  - 

2806 

2807 

50 

HYDV(  ICL  ,  1  )  ) 

2807 

2808 

61 

UUHIDLI  KS  )  -  HYDV(  ICL  .  2  )  +  XYZ  *  (  HYOV(  ICR  ,  2  )  - 

2808 

2809 

62 

HYDV(  ICL  ,  2  )  ) 

2809 

2810 

63 

VUMIDL(  KS  )  >  HY0V(  ICL  ,  3  )  +  XYZ  *  (  HYDV(  ICR  .  3  )  - 

2810 

2811 

64 

HYDV(  ICL  ,  3  )  ) 

2811 

2812 

65 

HWMIOL(  KS  )  -  HYDV(  ICL  ,  4  )  +  XYZ  *  (  HYDV(  ICR  ,  4  )  - 

2812 

2813 

66 

HYDVI  ICL  .  4  )  ) 

2813 

2814 

67 

PPMIDLI  KS  )  -  HYDV(  ICL  .  5  )  ♦  XYZ  *  (  HYDV(  ICR  ,  5  )  - 

2814 

2815 

68 

HYDVI  ICL  .  5  )  ) 

2815 

Thu  Jul 

2816 

2817 

2818 

2819 

2820 
2821 
2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 
2861 
2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 
2881 
2882 

2883 

2884 

2885 

2886 

2887 

2888 
2889 
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69 

C 

2816 

70 

ELSE 

2817 

71 

C 

2818 

72 

RRHIDL(  KS  )  -  HYOV(  ICL  .  1  ) 

2819 

73 

UUMIDL(  KS  )  -  HYOV(  ICL  .  2  ) 

2820 

74 

miDL(  KS  )  -  HYOV{  ICL  .  3  ) 

2821 

75 

WHHIDLI  KS  )  •  HYOV{  ICL  ,  4  ) 

2822 

76 

PPMIDL(  KS  )  -  HYDV(  ICL  .  5  ) 

2823 

77 

C 

2824 

78 

END  IF 

2825 

79 

C 

2826 

80 

105 

CONTINUE 

2827 

81 

C 

2828 

82 

00  110  IS  -  NSl  .  NS2 

2829 

83 

KS  •  IS  -  NSl  +  1 

2830 

84 

C 

2831 

85 

XEXN  -  XS(  4  .  IS  )  •  XN(  IS  ) 

2832 

86 

XEYN  -  XS(  4  ,  IS  )  «  YN(  IS  ) 

2833 

87 

XEZN  «  XS(  4  .  IS  )  *  ZN(  IS  ) 

2834 

88 

c 

2835 

89 

RIGRAD(  KS  )  -  RRMIOL(  KS  )  *  XEXN 

2836 

90 

UIGRAD(  KS  )  -  UUH1DL(  KS  )  *  XEXN 

2837 

91 

VIGRAD(  KS  )  -  VVt1IDL(  KS  )  •  XEXN 

2838 

92 

HIGRADI  KS  )  -  HWMIDL(  KS  )  *  XEXN 

2839 

93 

P1GRAD(  KS  )  -  PPHIOL(  KS  )  •  XEXN 

2840 

94 

c 

2841 

95 

RJGRAD(  KS  )  -  RRH1DL(  KS  )  *  XEYN 

2842 

96 

UJGRAD(  KS  )  «  UUMIOL(  KS  )  *  XEYN 

2843 

97 

VJGRAD(  KS  )  -  VVMIOL(  KS  )  *  XEYN 

2844 

98 

V(JGRAD(  KS  )  "  WWHIOLC  KS  )  •  XEYN 

2845 

99 

PJ6RAD(  KS  )  -  PPMIOL(  KS  )  *  XEYN 

2846 

100 

c 

2847 

101 

RKGRAO{  KS  )  •  RRNIOL(  KS  )  *  XEZN 

2848 

102 

UKGRAO(  KS  )  •  UUHIOL(  KS  )  »  XEZN 

2849 

103 

VKGRAO(  KS  )  -  VVHIDL(  KS  )  •  XEZN 

2850 

104 

WKGRAD(  KS  )  •  WVMIOLC  KS  )  •  XEZN 

2851 

105 

PKGRAD(  KS  )  -  PPMIDL(  KS  )  •  XEZN 

2852 

106 

c 

2853 

107 

110 

CONTINUE 

2854 

108 

c 

2855 

109 

DO  130  IS  -  NSl  ,  NS2 

2856 

110 

KS  -  IS  -  NSl  ♦  1 

2857 

111 

c 

2858 

112 

ICL  •  JS(  7  .  IS  ) 

2859 

113 

ICR  -  JS(  8  ,  IS  ) 

2860 

114 

c 

2861 

115 

RGRAD{  ICL  ,  1  )  -  RGRAD(  ICL  .  1  )  +  RIGRAD(  KS  ) 

2862 

116 

RGRAD(  ICL  .  2  )  -  RGRAD(  ICL  .  2  )  +  fiJGRAO(  KS  ) 

2863 

117 

RGRAD(  ICL  .  3  )  •  RGRAD(  ICL  .  3  )  +  RKGRAD(  KS  ) 

2864 

118 

UGRAD{  ICL  .  1  )  -  UGRAOI  ICL  .  1  )  +  UIGRAO(  KS  ) 

2865 

119 

UGRAOI  ICL  .  2  )  -  UGRADI  ICL  ,  2  )  ♦  UJGIWO(  KS  ) 

2866 

120 

UGRADI  ICL  ,  3  )  -  UGRAD{  ICL  .  3  )  +  UKGRAD{  KS  ) 

2867 

121 

VGRAD(  ICL  .  1  )  -  VGRADI  ICL  .  1  )  +  VIGRAD(  KS  ) 

2868 

122 

VGRAO(  ICL  ,  2  )  -  VGRAD(  ICL  .  2  )  +  VJGRAD(  KS  ) 

2869 

123 

VGRAD(  ICL  .  3  )  -  VGRAD(  ICL  .  3  )  ♦  VKGRAD(  KS  ) 

2870 

124 

«GRAD(  ICL  .  1  )  -  HGRAO(  ICL  .  1  )  +  HIGRADf  KS  ) 

2871 

125 

HGRAD(  ICL  .  2  )  •  WGRAO(  ICL  .  2  )  ♦  HJGRAD(  KS  ) 

2872 

126 

HGRAO(  ICL  .  3  )  -  WGRAD(  ICL  .  3  )  +  HKGRAD(  KS  ) 

2873 

127 

PGRAD(  ICL  .  1  )  -  PGRAD(  ICL  .  1  )  +  PIGRAD(  KS  ) 

2874 

128 

PGRAO(  ICL  .  2  )  -  PGRADI  ICL  .  2  )  +  PJGRAD{  KS  ) 

2875 

129 

PGRAD(  ICL  ,  3  )  -  PGRAO(  ICL  ,  3  )  +  PKGRAD(  KS  ) 

2876 

130 

c 

2877 

131 

lATRB  -  JS(  9  .  IS  ) 

2878 

132 

IF(  lATRB  .  EQ  .  0  )  THEN 

2879 

133 

c 

2880 

134 

c  ... 

GRADIENT  OF  DENSITY  (  U  V  W  DIRECTION  )  . 

2881 

135 

c 

2882 

136 

RGRAO{  ICR  .  1  )  •  RGRAD,'  ICR  ,  1  )  -  RIGRAO(  KS  ) 

2883 

137 

RGRAO{  ICR  ,  2  )  -  RGRADI  ICR  ,  2  )  -  RJGRAOf  KS  ) 

2884 

138 

RGRAOI  ICR  ,  3  )  -  RGRAO(  ICR  .  3  )  -  RKGRAD(  KS  ) 

2885 

139 

c 

2886 

140 

c  ... 

GRADIENT  OF  U  VELOCITY  {  U  V  W  DIRECTION  ) . 

2887 

141 

c 

2888 

142 

UGRADI  ICR  ,  1  )  -  UGRADI  ICR  .  1  )  -  UIGRADI  KS  ) 

2889 
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2964 

217 

PPOR  -  PPOL 

2965 

218 

C 

2966 

219 

END  IF 

2967 

220 

c 

2968 

221 

R0L(  1  )  -  RROL 

2969 

222 

U0L(  1  )  -  UUOL 

2970 

223 

V0L(  1  )  •  VVOL 

2971 

224 

W0L(  1  )  -  WWOL 

2972 

225 

P0L(  1  )  -  PPOL 

2973 

226 

c 

2974 

227 

ROR(  1  )  -  RROR 

2975 

228 

U0R(  1  }  -  UUOR 

2976 

229 

V0R(  1  )  >  VVOR 

2977 

230 

H0R{  1  )  -  WWOR 

2978 

231 

P0R(  1  )  -  PPOR 

2979 

232 

c 

2^ 

233 

IS  -  JC(  6  .  IC  ) 

2981 

234 

c 

2982 

235 

ICL  -  JS{  7  .  IS  ) 

2983 

236 

ICR  -  JS(  8  ,  IS  ) 

2984 

237 

c 

2985 

238 

RROL  -  HYDV(  ICL  .  1  ) 

2986 

239 

UUOL  -  HYDV(  ICL  ,  2  ) 

2987 

240 

WOL  -  HYOV(  ICL  .  3  ) 

2988 

241 

HWOL  -  HYOV(  ICL  .  4  ) 

2989 

242 

PPOL  -  HYOV(  ICL  .  5  ) 

2990 

243 

c 

2991 

244 

lATRB  -  JS(  9  ,  IS  ) 

2992 

245 

IF(  lATRB  .£0,0)  THEN 

2993 

246 

c 

2994 

247 

RROR  -  HYOV(  ICR  ,  1  ) 

2995 

248 

UUOR  -  HYDV(  ICR  .  2  ) 

2996 

249 

WOR  •  HYDV(  ICR  ,  3  ) 

2997 

250 

UMOR  X  HYOV(  ICR  ,  4  ) 

2998 

251 

PPOR  -  HYDV(  ICR  .  5  ) 

2999 

252 

c 

3000 

253 

ELSE 

3001 

254 

c 

3002 

255 

RROR  -  RROL 

3003 

256 

UUOR  -  UUOL 

3004 

257 

Wtm  •  WOL 

3005 

258 

UWOR  -  WWOL 

3006 

259 

PPOR  •  PPOL 

3007 

260 

c 

3008 

261 

END  IF 

3009 

262 

c 

3010 

263 

ROL(  2  )  -  RROL 

3011 

264 

UOL(  2  )  -  UUOL 

3012 

265 

VOL(  2  )  •  WOL 

3013 

266 

HOL(  2  )  -  HHOL 

3014 

267 

POL(  2  )  -  PPOL 

3015 

268 

c 

3016 

269 

ROR(  2  )  >  RROR 

3017 

270 

UOR(  2  )  -  UUOR 

3018 

271 

VOR(  2  )  -  WOR 

3019 

272 

HOR(  2  )  -  HWJR 

3020 

273 

POR(  2  )  -  PPOR 

3021 

274 

c 

3022 

275 

IS  -  JC(  7  ,  IC  ) 

3023 

276 

c 

3024 

277 

ICL  -  JS(  7  .  IS  ) 

3025 

278 

ICR  -  JS(  8  ,  IS  ) 

3026 

279 

c 

3027 

280 

RROL  -  HYDV(  ICL  .  1  ) 

3028 

281 

UUOL  -  HYOV(  ICL  ,  2  ) 

3029 

282 

WOL  -  HYDV(  ICL  .  3  ) 

3030 

283 

WWOL  -  HYDV(  ICL  .  4  ) 

3031 

284 

PPOL  -  HYOV(  ICL  ,  5  ) 

3032 

285 

c 

3033 

286 

lATRB  -  JS(  9  ,  IS  ) 

3034 

287 

IF(  lATRB  ,  EQ  .  0  )  THEN 

3035 

288 

c 

3036 

289 

RROR  -  HYDV(  ICR  ,  1  ) 

3037 

290 

UUOR  -  HYDV(  ICR  .  2  ) 

page 
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2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 

zm 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 
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3038 

291 

VVOR  -  HYDV(  ICR  ,  3  ) 

3039 

292 

WHOR  -  HYDV(  ICR  ,  4  ) 

3040 

293 

PPOR  -  HYDV(  ICR  ,  5  ) 

3041 

294 

C 

3042 

295 

ELSE 

3043 

296 

C 

3044 

297 

RROR  -  RROL 

3045 

298 

UUOR  -  UUOL 

3046 

299 

WOR  -  VVOL 

3047 

300 

HWOR  •  WWOL 

3048 

301 

PPOR  -  PPOL 

3049 

302 

c 

3050 

303 

END  IF 

3051 

304 

c 

3052 

305 

ROL(  3  )  -  RROL 

3053 

306 

UOL(  3  )  -  UUOL 

3054 

307 

VOL{  3  )  -  VVOL 

3055 

308 

WOL(  3  )  •  WWOL 

3056 

309 

POL(  3  )  -  PPOL 

3057 

310 

c 

3058 

311 

ROR(  3  }  •  RROR 

3059 

312 

UOR(  3  )  •  UUOR 

3060 

313 

VOR(  3  )  -  VVOR 

3061 

314 

HOR(  3  )  >  WWOR 

3062 

315 

POR(  3  )  -  PPOR 

3063 

316 

c 

3064 

317 

IS  ■  JC(  8  .  IC  ) 

3065 

318 

c 

3066 

319 

ICL  -  JS(  7  ,  IS  ) 

3067 

320 

ICR  -  JS(  8  ,  IS  ) 

3068 

321 

c 

3069 

322 

RROL  -  HYDV(  ICL  .  1  ) 

3070 

223 

UUOL  -  HYDV(  ICL  ,  2  ) 

3071 

324 

WOL  -  HYDV(  ICL  .  3  ) 

3072 

325 

WWOL  -  HYDV(  ICL  .  4  ) 

3073 

326 

PPOL  «  HYOV(  ICL  ,  5  ) 

3074 

327 

c 

3075 

328 

lATRB  -  JS(  9  ,  IS  ) 

3076 

329 

IF(  lATRB  .  EQ  .  0  )  THEN 

3077 

330 

c 

3078 

331 

RROR  -  HYDV(  ICR  .  1  ) 

3079 

332 

UUOR  •  HYDV(  ICR  ,  2  ) 

3080 

333 

WOR  -  HYOV(  ICR  ,  3  ) 

3081 

334 

WVWR  -  HYDV(  ICR  ,  4  ) 

3082 

335 

PPOR  -  HYOV(  ICR  .  5  ) 

3083 

336 

c 

3084 

337 

ELSE 

3085 

338 

c 

3086 

339 

RROR  -  RROL 

3087 

340 

UUOR  •  UUOL 

3088 

341 

VVOR  -  VVOL 

3089 

342 

WWOR  -  WWOL 

3090 

343 

PPOR  -  PPOL 

3091 

344 

c 

3092 

345 

END  IF 

3093 

346 

c 

3094 

347 

ROL(  4  )  -  RROL 

3095 

348 

UOL(  4  )  -  UUOL 

3096 

349 

VOL(  4  )  >  VVOL 

3097 

350 

HOL(  4  )  -  WWOL 

3098 

351 

POL(  4  )  -  PPOL 

3099 

352 

c 

3100 

353 

ROR(  4  )  -  RROR 

3101 

354 

UOR(  4  )  -  UUOR 

3102 

355 

VOR(  4  )  -  VVOR 

3103 

356 

WOR{  4  )  -  WWOR 

3104 

357 

POR(  4  )  -  PPOR 

3105 

358 

c 

3106 

359 

R«AX(  KC  )  >  AHAXK  ROL(  1  )  . 

3107 

360 

ROR(  1  )  . 

3108 

361 

UHAX(  KC  )  »  AMAXK  UOL(  1  )  , 

3109 

362 

UOR(  1  )  , 

3110 

363 

VHAX(  KC  )  -  AMAXK  VOL(  1  )  , 

3111 

364 

VOR{  1  )  , 
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3038 

3039 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 

3066 

3067 

3068 

3069 

3070 

3071 

3072 

3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

3081 

3082 

3083 

3084 

3085 
30% 

3087 

3088 

3089 

3090 

3091 

3092 

3093 

3094 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 


ROL(  2  )  ,  ROL(  3  )  .  ROL(  4  )  ,  3106 
ROR(  2  )  .  ROR(  3  )  ,  ROR(  4  )  )  3107 
UOL(  2  )  .  UOL(  3  )  .  UOL(  4  )  .  3108 
UOR(  2  )  .  UOR(  3  )  ,  UOR(  4  )  )  3109 
VOL(  2  )  .  VOL(  3  )  .  VOL(  4  )  ,  3110 
VOR(  2  )  ,  VOR(  3  )  ,  VOR(  4  )  )  3111 
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3112 

365 

WMAX(  KC  )  -  AHAXK  W0L(  1 

)  .  WOL(  2  )  ,  WOL(  3  )  ,  HOLI  4  )  , 

3112 

3113 

366 

W0R(  I 

)  .  HOR(  2  )  ,  WORI  3  )  ,  WORI  4  )  ) 

3113 

3114 

367 

PHAX(  KC  )  =  AHAXK  P0L(  1 

)  .  POL(  2  )  .  POLI  3  )  .  POLI  4  )  . 

3114 

3115 

368 

P0R(  1 

)  .  PORI  2  )  .  PORI  3  )  ,  PORI  4  )  ) 

3115 

3116 

369 

C 

3116 

3117 

370 

RHIN{  KC  )  =  AHIHK  R0L(  1 

)  .  ROH  2  )  ,  ROH  3  )  .  ROLI  4  )  , 

3117 

3118 

371 

.  R0R(  1 

)  .  RORI  2  )  ,  ROR(  3  )  .  RORI  4  )  ) 

3118 

3119 

372 

UHIN(  KC  )  =  AMINK  U0L(  i 

)  .  UOLI  2  )  .  UOH  3  )  .  UOLI  4  )  , 

3119 

3120 

373 

U0R(  1 

)  .  UOR(  2  )  .  UOR(  3  )  .  UORI  4  )  ) 

3120 

3121 

374 

VMIN(  KC  )  =  AHINK  V0L(  1 

)  .  UOLI  2  )  ,  VOL{  3  )  .  VOLI  4  )  , 

3121 

3122 

375 

yOR(  1 

)  ,  VOR(  2  )  .  VOR(  3  )  .  VORI  4  )  ) 

3122 

3123 

376 

WMIN{  KC  )  -  AMINK  H0L(  1 

)  ,  HOLI  2  )  ,  won  3  )  ,  won  4  )  , 

3123 

3124 

377 

H0R(  1 

)  .  H0R(  2  )  .  WORI  3  )  ,  HORI  4  )  ) 

3124 

3125 

378 

PMIN(  KC  )  -  AMINK  P0L(  1 

)  ,  POLI  2  )  .  POLI  3  )  .  POLI  4  )  , 

3125 

3126 

379 

POR(  1 

)  .  PORI  2  )  .  PORI  3  )  .  PORI  4  )  ) 

3126 

3127 

380 

C 

3127 

3128 

381 

150 

CONTINUE 

3128 

3129 

382 

C 

3129 

3130 

383 

00  180  IC  -  NCI  .  NC2 

3130 

3131 

384 

KC  -  IC  -  NCI  +  1 

3131 

3132 

385 

C 

3132 

3133 

386 

RRR(  KC  )  «  RMAX(  KC  )  - 

HYOVI  IC  ,  1  ) 

3133 

3134 

387 

RRL{  KC  )  -  RH1N(  KC  )  - 

HYDVI  IC  ,  1  ) 

3134 

3135 

388 

UUR(  KC  )  -  UMAX(  KC  )  - 

HYOVI  IC  ,  2  ) 

3135 

3136 

389 

UUL(  KC  )  =  UMIN(  KC  )  - 

HYOVI  IC  .  2  ) 

3136 

3137 

390 

VVR{  KC  )  =  VMAX(  KC  )  - 

HYOVI  IC  .  3  ) 

3137 

3138 

391 

VVL(  KC  )  -  VHIN{  KC  )  - 

HYOVI  1C  .  3  ) 

3138 

3139 

392 

WHR(  KC  )  =  WMAX(  KC  )  - 

HYOVI  IC  .  4  ) 

3139 

3140 

393 

WHL(  KC  )  -  WMIN(  KC  )  - 

HYOVI  IC  .  4  ) 

3140 

3141 

394 

PPR(  KC  )  >  PHAX(  KC  )  - 

HYOVI  IC  .  5  ) 

3141 

3142 

395 

PPL(  KC  )  -  PHIN(  KC  )  - 

HYOVI  IC  .  5  ) 

3142 

3143 

396 

C 

3143 

3144 

397 

180 

CONTINUE 

3144 

3145 

398 

C 

3145 

3146 

399 

00  170  1C  •  HCl  ,  NC2 

3146 

3147 

400 

KC  -  IC  -  NCI  +  1 

3147 

3148 

401 

c 

3148 

3149 

402 

IS  -  JC(  5  ,  IC  ) 

3149 

3150 

403 

c 

3150 

3151 

404 

ICL  -  JS(  7  .  IS  ) 

3151 

3152 

405 

ICR  -  JS(  8  ,  IS  ) 

3152 

3153 

406 

c 

3153 

3154 

407 

XML  •  XYZHDL(  1  ,  IS  )  -  XC(  1  .  ICL  ) 

3154 

3155 

408 

YHL  -  XYZHDLC  2  .  IS  )  -  XC{  2  .  ICL  ) 

3155 

3156 

409 

ZHL  -  XYZMOLI  3  ,  IS  )  -  XC(  3  .  ICL  ) 

3156 

3157 

410 

c 

3157 

3158 

411 

RROL  =  l.E-16  +  RGRADI  ICL 

.  1  )  •  XML  + 

3158 

3159 

412 

RGRAO(  ICL 

,  2  )  *  YML  +  RGRADI  ICL  .  3  )  •  ZHL 

3159 

3160 

413 

UUOL  -  l.E-16  *  UGRAD(  ICL 

.  1  )  *  XML  + 

3160 

3161 

414 

UGRAO(  ICL 

,  2  )  •  YHL  ♦  UGRAOI  ICL  ,  3  )  •  ZHL 

3161 

3162 

415 

VVOL  =  l.E-16  +  VGRAD(  ICL 

,  1  )  •  XML  + 

3162 

3163 

416 

VGRAO(  ICL 

,  2  )  *  YML  +  VGRADI  ICL  .  3  )  *  ZHL 

3163 

3164 

417 

WHOL  >  l.E-16  +  WGRAD(  ICL 

,  1  )  *  XML  + 

3164 

3165 

418 

HGRAO(  ICL 

.  2  )  *  YML  ♦  HGRADI  ICL  ,  3  )  *  ZHL 

3165 

3166 

419 

PPOL  -  l.E-16  +  PGRAD(  ICL 

,  1  )  *  XHL  ♦ 

3166 

3167 

420 

PGRAD(  ICL 

,  2  )  *  YML  +  PGRADI  ICL  ,  3  )  *  ZHL 

3167 

3168 

421 

c 

3168 

3169 

422 

lATRB  -  JS{  9  ,  IS  ) 

IF(  lATRB  .  EQ  .  0  )  THEN 

3169 

3170 

423 

3170 

3171 

424 

c 

3171 

3172 

425 

XMR  -  XYZMOLI  1  ,  IS  )  -  XC(  1  ,  ICR  ) 

3172 

3173 

426 

YMR  -  XYZMDL(  2  ,  IS  )  -  XC(  2  ,  ICR  ) 

3173 

3174 

427 

ZMR  -  XYZMDLI  3  ,  IS  )  -  XC(  3  .  ICR  ) 

3174 

3175 

428 

c 

3175 

3176 

429 

RROR  -  l.E-16  ♦  RGRADI  ICR 

,  1  )  •  XMR  + 

3176 

3177 

430 

RGRADI  ICR 

.  2  )  *  YMR  +  RGRADI  ICR  .  3  )  *  ZHR 

3177 

3178 

431 

UUOR  -  I.E-16  +  UGRAOI  ICR 

,  1  )  *  XMR  * 

3178 

3179 

432 

UGRAOI  ICR 

.  2  )  *  YMR  4.  UGRAOI  ICR  .  3  )  *  ZMR 

3179 

3180 

433 

VVOR  -  l.E-16  +  VGRADI  ICR 

.1)*XMR4- 

3180 

3181 

434 

VGRADI  ICR 

.  2  )  *  YMP  +  VGRADI  ICR  ,  3  )  *  ZHR 

3181 

3182 

435 

WHOR  -  l.E-16  ♦  HGRADI  ICR 

.  1  )  *  XMR  4 

3182 

3183 

436 

HGRAOI  ICR 

.  2  )  *  YMR  +  WGRAOI  ICR  .  3  )  *  ZMR 

3183 

3184 

437 

PPOR  -  l.E-16  PGRADI  ICR 

,  1  )  *  XMR  ♦ 

3184 

3185 

438 

PGRADI  ICR 

,  2  )  *  YMR  4  PGRADI  ICR  .  3  )  *  ZHR 

3185 
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3186 

439 

C 

3136 

3187 

440 

ELSE 

3187 

3188 

441 

c 

3188 

3189 

442 

RROR  -  RROL 

3189 

3190 

443 

UUOR  •  UUOL 

3190 

3191 

444 

VVOR  •  VVOL 

3191 

3192 

445 

HMOR  >  WWOL 

3192 

3193 

446 

PPOR  -  PPOL 

3193 

3194 

447 

c 

3194 

3195 

448 

END  IF 

3195 

3196 

449 

c 

3196 

3197 

450 

ROL(  1  )  -  1.  /  RROL 

319/ 

3198 

451 

UOL(  1  )  •  1.  /  UUOL 

3198 

3199 

452 

VOL(  1  )  -  1.  /  VVOL 

3199 

3200 

453 

HOL(  1  )  -  1.  /  WWOL 

3200 

3201 

454 

POL(  1  )  >  1.  /  PPOL 

3201 

3202 

455 

c 

3202 

3203 

456 

ROR(  1  )  •  1.  /  RROR 

3203 

3204 

457 

UOR(  1  )  -  1.  /  UUOR 

3204 

3205 

458 

VOR(  1  )  -  1.  /  WOR 

3205 

3206 

459 

WOR(  1  }  -  1.  /  VIWOR 

3206 

3207 

460 

POR(  1  )  »  1.  /  PPOR 

3207 

3208 

461 

c 

3208 

3209 

462 

IS  -  JC(  6  .  IC  ) 

3209 

3210 

463 

c 

3210 

3211 

464 

ICL  -  JS(  7  ,  IS  ) 

3211 

3212 

465 

ICR  -  JS(  8  ,  IS  ) 

3212 

3213 

466 

c 

3213 

3214 

467 

XML  -  XYZMDL(  1  .  IS  )  -  XC(  1  . 

ICL  ) 

3214 

3215 

468 

YML  -  XYZMDLI  2  .  IS  )  -  XC(  2  , 

ICL  ) 

3215 

3216 

469 

ZHL  -  XYZMDLI  3  ,  IS  )  -  XC(  3  . 

ICL  ) 

3216 

3217 

470 

c 

3217 

3218 

471 

RROL  »  l.E-16  +  RGRAO(  ICL  .  1  ) 

*  XML  + 

3218 

3219 

472 

RGRAO(  ICL  .  2  ) 

*  YML  +  RGRAD(  ICL  . 

3  ) 

* 

ZHL 

3219 

3220 

473 

UUOL  •  l.E-16  +  UGRAD(  ICL  .  1  ) 

*  XML  + 

3220 

3221 

474 

UGRAO(  ICL  ,  2  ) 

*  YML  +  UGRAD(  ICL  , 

3  ) 

* 

ZML 

3221 

3222 

475 

WOL  -  l.E-16  +  VGRAD(  ICL  ,  1  ) 

*  XML  ♦ 

3222 

3223 

476 

VGRAO(  ICL  ,  2  ) 

*  YML  +  VGRAO(  ICL  . 

3  ) 

* 

ZML 

3223 

3224 

477 

WWOL  •  l.E-16  +  WGRAD(  ICL  .  1  ) 

*  XML  + 

3224 

3225 

478 

.  HGRAO(  ICL  .  2  ) 

•  YML  +  WGRAD(  ICL  . 

3  ) 

* 

ZML 

3225 

3226 

479 

PPOL  -  l.E-16  +  PGRAD(  ICL  .  1  ) 

*  XML  + 

3226 

3227 

480 

PGRAD(  ICL  .  2  ) 

*  YML  +  PGRAD(  ICL  . 

3  ) 

ZML 

3227 

3228 

481 

c 

3228 

3229 

482 

lATRB  -  JS(  9  .  IS  ) 

3229 

3230 

483 

IF(  lATRB  .  EQ  .  0  )  THEN 

3230 

3231 

484 

c 

3231 

3232 

485 

X«1  -  XYZf®L(  1  ,  IS  )  -  XC(  1  . 

ICR  ) 

3232 

3233 

486 

YHR  -  XYZHDLI  2  .  IS  )  -  XC(  2  . 

ICR  ) 

3233 

3234 

487 

ZHR  -  XYZM0L(  3  .  IS  )  -  XC(  3  . 

ICR  ) 

3234 

3235 

488 

c 

3235 

3236 

489 

RROR  -  l.E-16  +  RGRAD(  ICR  .  1  ) 

•  XMR  + 

3236 

3237 

490 

RGRAO(  ICR  .  2  ) 

*  YMR  +  RGRAD(  ICR  . 

3  ) 

* 

ZHR 

3237 

3238 

491 

UUOR  -  l.E-16  +  UGRAD(  ICR  .  1  ) 

•  XMR  + 

3238 

3239 

492 

UGRAO(  ICR  ,  2  ) 

*  YMR  +  UGRAD(  ICR  . 

3  ) 

* 

ZMR 

3239 

3240 

493 

VVOR  -  l.E-16  +  VGRAO(  ICR  .  1  ) 

*  XMR  + 

3240 

3241 

494 

VGRAD(  ICR  .  2  ) 

•  YMR  +  VGRAO(  ICR  . 

3  ) 

* 

ZHR 

3241 

3242 

495 

WWOR  •  l.E-16  ♦  HGRAD(  ICR  ,  1  ) 

*  XMR  + 

3242 

3243 

496 

HGRAO(  ICR  .  2  ) 

*  YMR  +  WGRAO{  ICR  . 

3  ) 

* 

ZMR 

3243 

3244 

49/ 

PPOR  -  l.E-16  +  PGRAOI  ICR  .  1  ) 

•  XMR  + 

3244 

3245 

498 

PGRAD(  ICR  .  2  ) 

*  YMR  +  PGRAD(  ICR  . 

3  ) 

* 

ZMR 

3245 

3246 

499 

c 

3246 

3247 

500 

ELSE 

3247 

3248 

501 

c 

3248 

3249 

502 

RROR  •  RROL 

3249 

3250 

503 

UUOR  -  UUOL 

3250 

3251 

504 

VVOR  -  VVOL 

3251 

3252 

505 

WWOR  >  WWOL 

3252 

3253 

506 

PPOR  -  PPOL 

3253 

3254 

507 

c 

3254 

3255 

508 

END  IF 

3255 

3256 

509 

c 

3256 

3257 

510 

ROL(  2  )  -  1.  /  RROL 

3257 

3258 

511 

UOL(  2  )  -  1.  /  UUOL 

3258 

3259 

512 

VOL{  2  )  -  1.  /  VVOL 

3259 
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3260 

513 

W0L(  2  )  =  1.  /  WWOL 

3261 

514 

P0L(  2  )  =  1.  /  PPOL 

3262 

515 

C 

3263 

516 

R0R(  2  )  =  1.  /  RROR 

3264 

517 

U0R(  2  )  »  1.  /  UUOR 

3265 

518 

VOR(  2  )  =  1.  /  VVOR 

3266 

519 

HOR(  2  )  "  1.  /  WWOR 

3267 

520 

POR(  2  )  -  1.  /  PPOR 

3268 

521 

C 

3269 

522 

IS  -  JC(  7  .  IC  ) 

3270 

523 

c 

3271 

524 

ICL  -  JS(  7  ,  IS  ) 

3272 

525 

ICR  -  JS(  8  .  IS  ) 

3273 

526 

c 

3274 

527 

XHL  -  XYZHOL(  1  .  IS  )  -  XC{  1  .  ICL  ) 

3275 

528 

YHL  "  XYZHDK  2  ,  IS  )  -  XC(  2  ,  ICL  ) 

3276 

529 

ZHL  -  XYZMOLI  3  .  IS  )  -  XC{  3  .  ICL  1 

3277 

530 

c 

3278 

531 

RROL  *  l.E-16  ♦  RGRAO(  ICL 

.  1  )  *  XHL  + 

3279 

532 

RGRAO(  ICL 

,  2  )  •  YHL  + 

RGRADI  ICL  , 

3  )  *  ZHL 

3280 

533 

UUOL  =  l.E-16  +  UGRAD(  ICL 

.  1  )  *  XHL  + 

3281 

534 

UGRAOI  ICL 

.  2  )  *  YHL  ♦ 

UGRAO( 

ICL  . 

3  )  *  ZHL 

3282 

535 

VVOL  -  l.E-16  ♦  VGRAD(  ICL 

.  1  )  *  XHL  + 

3283 

536 

VGRAO(  ICL 

.  2  )  •  YHL  + 

VGRAO( 

ICL  . 

3  )  •  ZHL 

3284 

537 

WWOL  -  l.E-16  +  W6RA0(  ICL 

.  1  )  *  XHL  + 

3285 

538 

WGRAD(  ICL 

.  2  )  •  YHL  + 

WGRAOI 

ICL  , 

3  )  *  ZHL 

3286 

539 

PPOL  -  l.E-16  +  PGRAD(  ICL 

.  1  )  *  XHL  + 

3287 

540 

PGRAD(  ICL 

,  2  )  •  YHL  + 

PGRAD( 

ICL  , 

3  )  •  ZHL 

3288 

541 

c 

3289 

542 

lATRB  -  JS(  9  .  IS  ) 

3290 

543 

IF(  lATRB  .  £Q  .  0  )  THEN 

3291 

544 

c 

3292 

545 

XMR  -  XYZW)L(  1  ,  IS  )  -  XC(  1  ,  ICR  ) 

3293 

546 

YMR  .  XYZHOLI  2  .  IS  )  -  XC(  2  ,  ICR  ) 

3294 

547 

ZMR  -  XYZHDLI  3  .  IS  )  -  XC(  3  .  ICR  ) 

3295 

548 

c 

3296 

549 

RROR  -  1.E.16  +  R6RA0(  ICR 

.  1  )  •  XHR  + 

3297 

550 

RGRAD(  ICR 

,  2  )  *  YHR  + 

RGRAD( 

ICR  . 

3  )  *  ZHR 

3298 

551 

UUOR  •  l.E-16  4-  UGRA0(  ICR 

.  1  )  •  XHR  + 

3299 

552 

UGRAO(  ICR 

.  2  )  •  YHR  + 

UGRAOI  ICR  . 

3  )  *  ZHR 

3300 

553 

WOR  -  l.E-16  +  VGRA0(  ICR 

.  1  )  •  XHR  + 

3301 

554 

VGRAO(  ICR 

.  2  )  *  YHR  + 

VGRAO( 

ICR  . 

3  )  •  ZHR 

3302 

555 

WWOR  -  l.E-16  +  WGRAD(  ICR 

.  1  )  •  XMR  + 

3303 

556 

WGRAO(  ICR 

,  2  )  *  YHR  + 

WGRAO( 

ICR  , 

3  )  •  ZHR 

3304 

557 

PPOR  -  l.E-16  +  PGRAD(  ICR 

,  1  )  *  XHR  + 

3305 

558 

PGRAO(  ICR 

.  2  )  *  YHR  + 

PGRAO( 

ICR  . 

3  )  *  ZHR 

3306 

559 

c 

3307 

560 

ELSE 

3308 

561 

c 

3309 

562 

RROR  ■  RROL 

3310 

563 

UUOR  •  UUOL 

3311 

564 

VVOR  -  VVOL 

3312 

565 

WWOR  -  WWOL 

3313 

566 

PPOR  -  PPOL 

3314 

567 

c 

3315 

568 

END  IF 

3316 

569 

c 

3317 

570 

ROL(  3  )  -  1.  /  RROL 

3318 

571 

UOL(  3  )  -  1.  /  UUOL 

3319 

572 

VOL(  3  )  ’  1.  /  VVOL 

3320 

573 

WOL(  3  )  -  1.  /  WWOL 

3321 

574 

POL(  3  )  -  1.  /  PPOL 

3322 

575 

c 

3323 

576 

ROR(  3  )  =  1.  /  RROR 

3324 

577 

UOR{  3  )  -  1.  /  UUOR 

3325 

578 

VOR(  3  )  -  1.  /  VVOR 

3326 

579 

WOR(  3  )  >  1.  /  WWOR 

3327 

580 

POR(  3  )  *  1.  /  PPOR 

3328 

581 

c 

3329 

582 

IS  -  JC(  8  ,  IC  ) 

3330 

583 

c 

3331 

584 

ICL  -  JS(  7  ,  IS  ) 

3332 

585 

ICR  -  JS{  8  ,  IS  ) 

3333 

586 

c 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

3313 

3314 

3315 

3316 

3317 

3318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 

3328 

3329 

3330 

3331 

3332 

3333 
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3334 

587 

XML  -  XYZMDLI  1  .  IS  ) 

-  XC(  1  , 

3335 

588 

YML  -  XYZHDL(  2  ,  IS  ) 

-  XC(  2  . 

3336 

589 

ZML  -  XYZMOL(  3  .  IS  ) 

-  XC(  3  . 

3337 

590 

C 

3338 

591 

RROL  >  l.E-16  +  RGRAD( 

ICL  .  1  ) 

3339 

592 

RGRAD( 

ICL  ,  2  ) 

3340 

593 

UUOL  -  l.E-16  +  UGRAO{ 

ICL  .  1  ) 

3341 

594 

.  UGRAO( 

ICL  .  2  ) 

3342 

595 

VVOL  -  l.E-16  *  VCRAD( 

ICL  .  1  ) 

3343 

596 

VGRAD( 

ICL  .  2  ) 

3344 

597 

HHOL  -  l.E-16  +  WGRAO( 

ICL  .  1  ) 

3345 

598 

WGRAO( 

ICL  ,  2  ) 

3346 

599 

PPOL  -  l.E-16  +  PGRAO( 

ICL  .  1  ) 

3347 

600 

PGRAO( 

ICL  .  2  ) 

3348 

601 

C 

3349 

602 

lATRB  =  JS(  9  .  IS  ) 

3350 

603 

IF{  IATR0  .  £Q  .  0  )  THEN 

3351 

604 

C 

3352 

605 

XMR  -  XYZHOL(  1  ,  IS  ) 

-  XC(  1  . 

3353 

606 

YMR  -  XYZMDL(  2  .  IS  ) 

-  XC(  2  . 

3354 

607 

ZMR  -  XYZMDL(  3  .  IS  ) 

-  XC(  3  . 

3355 

608 

C 

3356 

609 

RROR  -  l.E-16  RGRAO( 

ICR  .  1  ) 

3357 

610 

RGRAD( 

ICR  .  2  ) 

3358 

611 

UUOR  -  l.E-16  +  UGRAO( 

ICR  .  1  ) 

3359 

612 

UGRAD( 

ICR  .  2  ) 

3360 

613 

VVOR  -  l.E-16  +  VGRAO{ 

ICR  .  1  ) 

3361 

614 

VGRADI 

ICR  .  2  ) 

3362 

615 

WWOR  -  l.E-16  +  WGRAO( 

ICR  .  1  ) 

3363 

616 

UGRAO( 

ICR  .  2  ) 

3364 

617 

PPOR  .  l.E-16  +  PGRAD( 

ICR  .  1  ) 

3365 

618 

PGRAO( 

ICR  .  2  ) 

3366 

519 

C 

3367 

620 

ELSE 

3368 

621 

C 

3369 

622 

RROR  >  RROL 

3370 

623 

UUOR  ■  UUOL 

3371 

624 

WOR  -  VVOL 

3372 

625 

WHOR  -  WWOL 

3373 

626 

PPOR  •  PPOL 

3374 

627 

C 

3375 

628 

END  IF 

3376 

629 

C 

3377 

630 

ROL(  4  )  -  1.  /  RROL 

3378 

631 

UOL(  4  )  -  1.  /  UUOL 

3379 

632 

VOL(  4  )  -  1.  /  VVOL 

3380 

633 

HOL(  4  )  .  1.  /  WWOL 

3381 

634 

POL(  4  )  -  1.  /  PPOL 

3382 

635 

C 

3383 

636 

ROR(  4  )  -  1.  /  RROR 

3384 

637 

UOR(  4  )  -  1.  /  UUOR 

3385 

638 

VOR(  4  )  .  1.  /  VVOR 

3386 

639 

HOR(  4  )  -  1.  /  VmOR 

3387 

640 

POR(  4  )  -  1.  /  PPOR 

3388 

641 

C 

3389 

642 

ISNR  •  SIGN(  1.  ,  ROR( 

1  )  ) 

3390 

643 

ISNL  -  SIGN(  1.  ,  ROL{ 

1  )  ) 

3391 

644 

C 

3392 

645 

TEHPR  -  (  1  >  ISNR  )  * 

RRR(  KC  ) 

3393 

646 

(  1  -  ISNR  )  * 

RRL(  KC  ) 

3394 

647 

RUVPRl  -  0.5  *  TEHPR  • 

ROR{  1  ) 

3395 

648 

C 

3396 

649 

TEMPL  «  (  1  +  ISNL  )  * 

RRR(  KC  ) 

3397 

650 

(  1  -  ISNL  )  * 

RRL(  KC  ) 

3398 

651 

RUVPLl  =  0.5  *  TEMPL  * 

ROL(  1  ) 

3399 

652 

C 

3400 

653 

ISNR  -  SIGN{  1.  ,  ROR( 

2  )  ) 

3401 

654 

ISNL  -  SIGN!  1.  ,  ROL( 

2  )  ) 

3402 

655 

C 

3403 

656 

TEHPR  -  (  1  ♦  ISNR  )  * 

RRR(  KC  ) 

3404 

657 

(  1  -  ISNR  )  * 

RRL(  KC  ) 

3405 

658 

RUVPRZ  -  0.5  •  TEMPR  ♦ 

ROR(  2  ) 

3406 

659 

c 

/  t  .  T  cut 


ICL  )  3334 

ICL  )  3335 

ICL  )  3336 

3337 

*  XHL  +  3338 

*  YML  +  RGRAD(  ICL  ,  3  )  ♦  ZHL  3339 

*  XML  +  3340 

*  YML  +  UGRAD{  ICL  ,  3  )  *  ZHL  3341 

*  XHL  +  3342 

*  YML  +  VGRAD{  ICL  .  3  )  *  ZML  3343 

*  XHL  +  3344 

*  YML  +  WGRAD(  ICL  ,  3  )  *  ZHL  3345 

*  XML  +  3346 

*  YML  +  PGRAD(  ICL  ,  3  )  *  ZHL  3347 

3348 

3349 

3350 

3351 

ICR  )  3352 

ICR  )  3353 

ICR  )  3354 

3355 

*  XMR  +  3356 

*  YMR  +  RGRAD(  ICR  ,  3  )  •  ZMR  3357 

*  XMR  +  3358 

*  YMR  ♦  UGRAD(  ICR  .  3  )  »  ZMR  3359 

*  XMR  +  3360 

*  YMR  +  VGRAD(  ICR  ,  3  )  *  ZMR  3361 

»  XMR  +  3362 

*  YMR  +  WGRAD(  ICR  ,  3  )  *  ZMR  3363 

*  XMR  +  3364 

*  YMR  +  PGRAD(  ICR  .  3  )  *  ZMR  3365 


3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 
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3408 

661 

{  1  -  ISNL  )  * 

RRL(  KC  ) 

3408 

3409 

662 

RUVPL2  -  0.5  *  TEHPL  • 

ROL(  2  ) 

3409 

3410 

663 

C 

3410 

3411 

664 

ISNfi  -  SIGN(  1.  ,  R0R{ 

3  )  ) 

3411 

3412 

665 

ISNL  -  SIGN(  1.  ,  ROL( 

3  )  ) 

3412 

3413 

666 

C 

3413 

3414 

667 

TEMPR  «  (  1  +  ISNR  )  • 

RRR(  KC  )  + 

3414 

3415 

668 

(  1  -  ISNR  )  * 

RRL(  KC  ) 

3415 

3416 

669 

RUVPR3  •  0.5  *  TEMPR  * 

ROR(  3  ) 

3416 

3417 

670 

C 

3417 

3418 

671 

TEMPL  -  (  1  +  ISNL  )  » 

RRR(  KC  )  <• 

3418 

3419 

672 

{  1  -  ISNL  )  * 

RRL(  KC  ) 

3419 

3420 

673 

RUVPL3  =  0.5  *  TEMPL  ‘ 

ROL(  3  ) 

3420 

3421 

674 

C 

3421 

3422 

675 

ISNR  -  SIGN(  1.  .  ROR( 

4  )  ) 

3422 

3423 

676 

ISNL  -  SIGN(  1.  .  ROL( 

4  )  ) 

3423 

3424 

677 

C 

3424 

3425 

678 

TEMPR  -  (  1  +  ISNR  )  • 

RRR(  KC  )  + 

3425 

3426 

679 

(  1  -  ISNR  )  * 

RRL(  KC  ) 

3426 

3427 

680 

RUVPR4  -  0.5  •  TEMPR  * 

ROR{  4  ) 

3427 

3428 

681 

C 

3428 

3429 

682 

TEHPL  =  (  1  +  ISNL  )  * 

RRR(  KC  )  + 

3429 

3430 

683 

(  1  -  ISNL  )  * 

RRL(  KC  ) 

3430 

3431 

684 

RUVPL4  =  0.5  *  TEHPL  * 

ROL(  4  ) 

3431 

3432 

685 

C 

3432 

3433 

686 

RMIN{  KC  )  »  AMIN1(  I. 

.  RUVPRl  .  RUVPLl 

,  RUVPR2  . 

,  fiUVPL2  , 

3433 

3434 

687 

RUVPR3  .  RUVPL3 

.  RUVPR4 

,  RUVPL4  ) 

3434 

3435 

688 

C 

3435 

3436 

689 

ISNR  -  S[GN{  1.  .  UOR( 

1  )  ) 

3436 

3437 

690 

ISNL  =  SIGH(  1.  .  UOL( 

1  )  ) 

3437 

3438 

691 

C 

3438 

3439 

692 

TEMPR  *  (  1  +  ISNR  )  * 

m(  KC  )  + 

3439 

3440 

693 

(  1  -  ISNR  )  * 

UUL(  KC  ) 

3440 

3441 

694 

RUVPRl  >  0.5  *  TEMPR  * 

UOR(  1  ) 

3441 

3442 

695 

C 

3442 

3443 

696 

TEHPL  •  (  1  +  ISNL  )  • 

UUR(  KC  )  + 

3443 

3444 

697 

(  1  -  ISNL  )  • 

UUL(  KC  ) 

3444 

3445 

698 

RUVPLl  •  0.5  •  TEHPL  » 

UQL(  1  ) 

3445 

3446 

699 

c 

3446 

3447 

700 

ISNR  •  SIGN(  1.  ,  UOR( 

2  )  ) 

3447 

3448 

701 

ISNL  -  SIGN(  1.  .  UOL( 

2  )  ) 

3448 

3449 

702 

c 

3449 

3450 

703 

TEMPR  -  (  1  +  ISNR  )  • 

UUR(  KC  )  + 

3450 

3451 

704 

(  1  -  ISNR  )  • 

UUL(  KC  ) 

3451 

3452 

705 

RUVPR2  -  0.5  *  TEMPR  * 

UOR(  2  ) 

3452 

3453 

706 

c 

3453 

3454 

707 

TEHPL  »  (  1  +  ISNL  )  • 

UUR(  KC  )  + 

3454 

3455 

708 

(  1  -  ISNL  )  » 

UUL(  KC  ) 

3455 

3456 

709 

RUVPL2  =  0.5  *  TEMPL  * 

UOL(  2  ) 

3456 

3457 

710 

c 

3457 

3458 

711 

iSNR  -  SIGN(  1.  ,  UOR( 

3  )  ) 

3458 

3459 

712 

ISNL  -  SIGN(  1.  ,  UOL( 

3  )  ) 

3459 

3460 

713 

c 

3460 

3461 

714 

TEMPR  -  (  1  >  ISNR  )  * 

UUR(  KC  )  + 

3461 

3462 

715 

(  1  -  ISNR  )  * 

UUL(  KC  ) 

3462 

3463 

716 

RUVPR3  -  0.5  *  TEMPR  • 

UOR(  3  ) 

3463 

3464 

717 

c 

3464 

3465 

718 

TEMPL  -  (  1  +  ISNL  )  * 

UUR(  KC  )  + 

3465 

3466 

719 

(  1  -  ISNL  )  * 

UUL(  KC  ) 

3466 

3467 

720 

RUVPL3  -  0.5  *  TEHPL  • 

UOL(  3  ) 

3467 

3468 

721 

c 

3468 

3469 

722 

ISNR  -  SIGN(  1.  ,  UOR( 

4  )  ) 

3469 

3470 

723 

ISNL  -  SIGN{  I.  .  UOL( 

4  )  ) 

3470 

3471 

724 

c 

3471 

3472 

725 

TEMPR  -  {  1  +  ISNR  )  * 

UUR(  KC  )  + 

3472 

3473 

726 

(  1  -  ISNR  )  * 

OUL(  KC  ) 

3473 

3474 

727 

RUVPR4  =  0.5  *  TEMPR  * 

UOR(  4  ) 

3474 

3475 

728 

c 

3475 

3476 

729 

TEMPL  =  (  1  +  ISNL  )  * 

>1UR(  KC  )  + 

3476 

3477 

730 

(  1  -  ISNL  )  * 

UUL(  KC  ) 

3477 

3478 

731 

RUVPL4  -  0.5  *  TEMPL  * 

UOL(  4  ) 

3478 

3479 

732 

c 

3479 

3480 

733 

UHIN(  KC  )  -  AMINK  1. 

,  RUVPRl  .  RUVPLl  . 

RUVPR2  . 

RUVPL2  . 

3480 

3481 

734 

. 

RUVPR3  ,  RUVPL3  . 

RUVPR4  . 

RUVPL4  ) 

3481 
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3482 

735 

r 

3482 

3483 

736 

ISNR  -  S1GN(  I.  ,  V0R(  1  )  ) 

3483 

3484 

737 

ISNL  -  SIGN(  1.  .  V0L(  1  )  ) 

3484 

3485 

738 

C 

3485 

3486 

739 

TEHPR  *  (  1  +  ISNR  )  *  VVR(  KC  )  + 

3486 

3487 

740 

(  1  -  ISNR  )  *  VVL(  KC  ) 

3487 

3488 

741 

RUVPRl  -  0.5  *  TEHPR  *  V0R(  1  ) 
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XXN  -  (  XY2H0L(  1  ,  IS  )  -  XC(  1  ,  ICL  )  )  *  XYZ 

3984 

3985 

239 

YYN  •  (  XYZMOK  2  ,  IS  )  -  XC(  2  .  ICL  )  )  *  XYZ 

3985 

3986 

240 

ZZN  -  (  XYZMOK  3  .  IS  )  -  XC(  3  ,  ICL  )  )  •  XYZ 

3986 

3987 

241 

c 

3987 

3968 

242 

XXL  -  (  XYZHDL(  1  .  IS  )  -  XC(  1  .  ICL  )  ) 

3988 

3989 

243 

YYL  -  (  XYZMDLI  2  ,  IS  )  -  XC(  2  ,  ICL  )  ) 

3989 

3990 

244 

ZZL  =  (  XYZKOL(  3  .  IS  )  -  XC(  3  ,  ICL  )  ) 

3990 

3991 

245 

c 

3991 

3992 

246 

XX  -  XXL  -  ZZLEFT(  KS  )  *  XXN 

3992 

3993 

247 

YY  -  YYL  -  ZZLEFT(  KS  )  *  YYN 

3993 

3994 

248 

ZZ  •  ZZL  -  ZZLEFT(  KS  )  *  ZZN 

3994 

3995 

249 

c 

3995 

3996 

250 

HRRL  »  HYOV(  ICL  ,  1  )  ^-  RGRAD(  ICL  .  1  )  •  XX  + 

3996 

3997 

251 

.  RGRAD(  ICL  ,  2  )  *  YY  4-  fiGfiAO(  ICL  .  3  )  •  ZZ 

3997 

3998 

252 

HUUL  =  HYOV(  ICL  .  2  )  +  UGRAD(  ICL  .  1  )  *  XX  + 

3998 

3999 

253 

.  UGRAO(  ICL  .  2  )  *  YY  +  UGRAD(  ICL  .  3  )  »  ZZ 
HWL  -  HYDV(  ICL  ,  3  )  +  VGRAD(  ICL  ,  1  )  *  XX  + 

3999 

4000 

254 

4000 

4001 

255 

.  VGRAD(  ICL  ,  2  )  *  YY  4  yGRAD(  ICL  .  3  )  •  ZZ 

4001 

4002 

256 

HHWL  «  HYOV(  ICL  .  4  )  *  WGIM0(  ICL  ,  1  )  *  XX  + 

4002 

4003 

257 

.  WGRAD{  ICL  ,  2  )  •  YY  +  HGRAD{  ICL  ,  3  )  *  ZZ 
HPPL  -  HYOV(  ICL  .  5  )  +  PGRAO(  ICL  .  1  )  *  XX  + 

4003 

4004 

258 

4004 

4005 

259 

.  PGRAD(  ICL  .  2  )  *  YY  4  PGRAD(  ICL  ,  3  )  *  ZZ 

4005 

4006 

260 

c 

4006 

4007 

261 

GHTLFT  -  GL(  IS  )  •  HRRL  *  HPPL 

4007 

4008 

262 

SQGHTL  -  SQRT(  GHTLFT  ) 

4008 

4009 

263 

c 

4009 

4010 

264 

XX  .  (  ZPLEFT(  KS  )  -  ZZLEFT(  KS  )  )  *  XXN 

4010 

4011 

265 

YY  -  (  ZPLEFT(  KS  )  -  ZZLEFT(  KS  )  )  *  YYN 

4011 

4012 

266 

ZZ  -  (  ZPLEFT(  KS  )  -  ZZLEFT(  KS  )  )  *  ZZN 

4012 

4013 

267 

UUU  •  UGRAD(  ICL  .  I  )  •  XX  ♦  0GRAD(  ICL  ,  2  )  *  YY 

+ 

4013 

4014 

268 

UGRAO(  ICL  ,  3  )  •  ZZ 

4014 

4015 

269 

PPP  -  PGRAD(  ICL  .  1  )  *  XX  +  PGRAD(  ICL  ,  2  )  *  YY 

•f 

4015 

4016 

270 

PGRAO(  ICL  .  3  )  *  ZZ 

4016 

4017 

271 

UPLFT  -  -  .5  *  (  UUU  +  PPP  /  SQGHTL  )  /  SQGHTL 

4017 

4018 

272 

c 

4018 

4019 

273 

XX  -  (  ZHLEFTI  KS  )  -  ZZLEFT(  KS  )  )  •  XXN 

4019 

4020 

274 

YY  -  (  ZHLEFT(  KS  )  -  ZZLEFT(  KS  )  )  *  YYN 

4020 

4021 

275 

ZZ  -  (  ZHLEFT(  KS  )  -  ZZLEFT(  KS  )  )  *  ZZN 

4021 

4022 

276 

UUU  -  UGRAO(  ICL  ,  1  )  *  XX  +  UGRAD(  ICL  ,  2  )  *  YY 

f 

4022 

4023 

277 

UGRAD(  ICL  .  3  )  *  ZZ 

4023 

4024 

278 

PPP  -  PGRAD(  ICL  .  1  )  •  XX  t  PGPAD(  ICL  .  2  )  *  YY 

+ 

4024 

4025 

279 

.  PGRAO(  ICL  .  3  )  *  ZZ 

4025 

4026 

280 

UHLFT  .  .5  •  (  UUU  -  PPP  /  SQGHTL  )  /  SQGHTL 

4026 

4027 

281 

c 

4027 

4028 

282 

XX  -  (  ZOLEFT(  KS  )  -  ZZLEFT(  KS  )  )  *  XXN 

4028 

4029 

283 

YY  -  (  ZOLEFT(  KS  )  -  ZZLEFT(  KS  )  )  •  YYN 

4029 

4030 

284 

ZZ  -  (  ZOLEFT{  KS  )  -  ZZLEFT(  KS  )  )  *  ZZT 

4030 

4031 

285 

PPP  -  PGRAD(  ICL  ,  1  )  •  XX  +  PGRAOI  ICL  .  ■>  )  *  YY 

¥ 

4031 

4032 

286 

PGRAD{  ICL  .  3  )  *  ZZ 

4032 

4033 

287 

c 

4033 

4034 

288 

XX  -  XXL  -  Z0LEFT{  KS  )  •  XXN 

4034 

4035 

289 

YY  -  YYL  -  ZOLEFT(  KS  )  *  YYN 

4035 

4036 

290 

ZZ  -  ZZL  -  ZOLEFT(  KS  )  *  ZZN 

4036 

4037 

291 

c 

4037 

4038 

292 

RRRR  -  HYDVI  ICL  ,  1  )  +  RGRAOI  ICL  .  1  )  *  XX  + 

4038 

4039 

293 

RGRAOI  ICL  ,  2  )  *  YY  ♦  RGRAOI  ICL 

3  )  *  ZZ 

4039 

4040 

294 

URLFT  -  PPP  /  GHTLFT  *  \.  !  HRRL  -  1.  /  RRRR 

4040 

4041 

295 

c 

4041 

4042 

296 

HRRR  -  HRRL 

4042 
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4043 

297 

HUUR  -  HUUL 

4044 

298 

HVVR  -  HVVL 

4045 

299 

KWWR  -  HWWL 

4046 

300 

HPPR  .  HPPL 

4047 

301 

C 

4048 

302 

GMTRGT  =  GMTLFT 

4049 

303 

SQGHTR  -  SQGHTL 

4050 

304 

C 

4051 

305 

UPRGT  .  UPLFT 

4052 

306 

UHRGT  -  UMLFT 

4053 

307 

URRGT  .  URLFT 

4054 

308 

c 

4055 

309 

END  IF 

4056 

310 

c 

4057 

311 

RRL(  KS  )  -  HRRL 

4058 

312 

UUL(  KS  )  «  HUUL 

4059 

313 

1/VL(  KS  )  -  HVVL 

4060 

314 

VWL(  KS  )  -  HWNL 

4061 

315 

PPL(  KS  )  =■  HPPL 

4062 

316 

c 

4063 

317 

RRR(  KS  )  «  HRRR 

4064 

318 

UUR(  KS  )  •  HUUR 

4065 

319 

WR(  KS  )  -  HVVR 

4066 

320 

HWR(  KS  )  >  HWWR 

4067 

321 

PPR(  KS  )  -  HPPR 

4068 

322 

c 

4069 

323 

UPLEFT(  KS  )  -  UPLFT 

4070 

324 

UMLEFT(  KS  )  -  UHLFT 

4071 

325 

URL£FT(  KS  }  -  URLFT 

4072 

325 

c 

4073 

327 

UPRIGT(  KS  )  -  UPRGT 

4074 

328 

UMRI6T(  KS  )  -  UMRGT 

4075 

329 

URRIGT(  KS  )  -  URRGT 

4076 

330 

c 

4077 

331 

160  CONTINUE 

4078 

332 

C 

4079 

333 

C 

CORRECTION  OF  THE  FIRST  GUESS 

4080 

334 

C 

4081 

335 

00  170  KS  -  1  ,  HOFVES(  INS  ) 

4082 

336 

C 

4083 

337 

IF(  UVLEFT{  KS  )  +  CNLEFT(  KS  ) 

.  LE  .  0.  )  UPLEFTI  KS  )  -  0. 

4084 

338 

IF(  UVLEFT{  KS  )  -  CNLEFT(  KS  ) 

.  LE  .  0.  )  UHLEFT(  KS  )  •  0. 

4085 

339 

IF(  UVLEFT(  KS  )  . 

LE  .  0.  )  URLEFTI  KS  )  -  0. 

4086 

340 

C 

4087 

341 

IF(  UVRIGT(  KS  )  +  CNRIGT(  KS  ) 

.  GE  .  0.  )  UPRIGTI  KS  )  -  0. 

4088 

342 

IF(  UVRIGT(  KS  )  -  CHRIGT(  KS  ) 

.  GE  .  0.  )  UMRIGTI  KS  )  -  0. 

4089 

343 

IF(  UVRIGT(  KS  )  . 

GE  .  0.  )  URRIGTI  KS  )  -  0. 

4090 

344 

C 

4091 

345 

170  CONTINUE 

4092 

346 

C 

4093 

347 

C 

FINAL  VALUES  FOR  RIGHT  AND  LEFT  STATES 

4094 

348 

C 

4095 

349 

00  180  KS  -  1  ,  N0FVES(  INS  ) 

4096 

350 

IS  -  KS  +  NSl  *  1 

4097 

351 

c 

4098 

352 

GHTLFT  »  GL(  IS  )  *  RRL(  KS  )  - 

'  PPL(  KS  ) 

4099 

353 

SQGHTL  >  SQRT(  GHTLFT  ) 

4100 

354 

c 

4101 

355 

GHTRGT  -  GR(  IS  )  *  RRR(  KS  )  ‘ 

'  PPR(  KS  ) 

4102 

356 

SQGHTR  -  SQRT{  GMTRGT  ) 

4103 

357 

c 

4104 

358 

RRL(  KS  )  -  I.  /  (  1.  /  RRL(  KS  )  -  (  UPLEFT(  KS  )  + 

4105 

359 

UHLEFTf  KS  )  +  URLEFTI  KS  )  )  ) 

4106 

360 

UUL{  KS  )  -  UUL(  KS  )  SQGHTL 

•  (  UPLEFT(  KS  )  - 

4107 

361 

UHLEFTI  KS  )  ) 

4108 

362 

VVl(  KS  )  «  VVK  KS  )  >  SQGHTL 

*  (  UPLEFTI  KS  )  - 

4109 

363 

. 

UMLEFTI  KS  )  ) 

4110 

364 

VIWL(  KS  )  *  WWL{  KS  )  +  SQGHTL 

*  {  UPLEFTI  KS  )  - 

4111 

365 

• 

UMLEFTI  KS  )  ) 

4112 

366 

PPL{  KS  )  -  PPL{  KS  )  +  GHTLFT 

*  (  UPLEFTI  KS  )  + 

4113 

367 

UMLEFTI  KS  )  ) 

4114 

368 

c 

4115 

369 

RRR(  KS  )  -  1.  /  (  1.  /  RRR(  KS  )  -  (  UPRIGT(  KS  )  + 

4116 

370 

UMRIGT(  KS  )  +  URRIGTI  KS  )  )  ) 

4043 

4044 

4045 

4046 

4047 

4048 

4049 
;050 
J051 
-.052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 
4(^ 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

Am 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 
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4117 

371 

UUR(  KS  )  *  UUR(  KS  )  +  SQGMTR  •  (  UPRIGT(  KS  )  - 

4117 

4118 

372 

UHRIGT(  KS  )  ) 

4118 

4119 

373 

VVR(  KS  )  =  VVR(  KS  )  »  SQGMTR  *  (  UPRIGT{  KS  )  - 

4119 

4120 

374 

UMR1GT(  KS  )  ) 

4120 

4121 

375 

WWR(  KS  )  -  WWR(  KS  )  ♦  SQGMTR  *  (  UPRIGT(  KS  )  - 

4121 

4122 

376 

UMRIGTl  KS  )  ) 

4122 

4123 

377 

PPR{  KS  )  =  PPR(  KS  )  +  GMTRGT  *  (  UPR1GT(  KS  )  * 

4123 

4124 

378 

UMRlGTt  kS  )  ) 

4124 

4125 

379 

C 

4125 

4126 

380 

180 

CONTINUE 

4126 

4127 

381 

C 

4127 

4128 

382 

DO  200  IS  =  NSl  .  flS2 

4128 

4129 

383 

KS  -  IS  -  NSl  +  1 

4129 

4130 

384 

c 

4130 

4131 

385 

ICL  «  JS{  7  .  IS  ) 

4131 

4132 

386 

ICR  -  JS{  8  ,  IS  ) 

4132 

4133 

387 

c 

4133 

4134 

388 

RL(  IS  )  -  RRL(  KS  ) 

4134 

4135 

389 

UL(  IS  )  •  UUL{  KS  )  *  XN{  IS  )  * 

4135 

4136 

390 

VVL(  KS  )  •  YN(  IS  )  + 

4136 

4137 

391 

WWL(  KS  )  *  ZN(  IS  ) 

4137 

4138 

392 

VL(  IS  )  -  UUL(  KS  )  *  XP(  IS  )  + 

4138 

4139 

393 

VVL(  KS  )  ♦  YP{  IS  )  + 

4139 

4140 

394 

HHL(  KS  )  *  ZP(  IS  ) 

4140 

4141 

395 

WL(  IS  )  =  UUL(  KS  )  *  XT(  IS  )  <• 

4141 

4142 

396 

VVL{  KS  )  »  YT(  IS  )  * 

4142 

4143 

397 

WWL(  KS  )  *  ZT(  IS  ) 

4143 

4144 

398 

PL(  IS  )  =  PPL{  KS  ) 

4144 

4145 

399 

AL(  IS  )  -  HYOVI  ICL  ,  6  ) 

4145 

4146 

400 

GL(  IS  )  =  HYOV(  ICL  .  7  ) 

4146 

4147 

401 

EL(  IS  )  =  HYDV(  ICL  .  8  ) 

4147 

4148 

402 

c 

4148 

4149 

403 

lATRB  »  JS(  9  ,  IS  ) 

4149 

4150 

404 

IF{  lATRfl  .  £Q  .  0  )  THEN 

4150 

4151 

405 

c 

4151 

4152 

406 

RR(  IS  )  -  RRR(  KS  ) 

4152 

4153 

407 

UR(  IS  )  -  UUR(  KS  )  *  XN(  IS  )  + 

4153 

4154 

408 

WR(  KS  )  *  YM(  IS  )  ♦ 

4154 

4155 

409 

WHR(  KS  )  *  ZN(  IS  ) 

4155 

4156 

410 

VR(  IS  )  -  UUR(  KS  )  •  XP(  IS  )  ♦ 

4156 

4157 

411 

WR(  KS  )  •  YP(  IS  )  + 

4157 

4158 

412 

HWR(  KS  )  »  ZP(  IS  ) 

4158 

4159 

413 

HR(  IS  )  *  UUR{  KS  )  *  XT(  IS  )  + 

4159 

4160 

414 

VVR{  KS  )  *  YT(  IS  )  ♦ 

4160 

4161 

415 

WWR(  KS  )  *  ZT(  IS  ) 

4161 

4162 

416 

PR(  IS  )  =  PPR(  KS  ) 

4162 

4163 

417 

AR(  IS  )  -  HYOV(  ICR  .  6  ) 

4163 

4164 

418 

GR(  IS  )  =  HYOV(  ICP,  .  7  ) 

4164 

4165 

419 

ER(  IS  )  =  HYOV(  ICR  .  8  ) 

4165 

4166 

42u 

c 

4166 

4167 

421 

ELSE 

4167 

4168 

422 

c 

4168 

4169 

423 

IF(  lATRB  .  EQ  .  8  )  THEN 

4169 

4170 

424 

c 

4170 

4171 

425 

RR(  IS  )  =■  RIN 

4171 

4172 

426 

UR(  IS  )  -  UIN  •  XN(  IS  )  +  VIN  *  YN(  IS  )  +  WIN  *  ZH( 

IS  ) 

4172 

4173 

427 

VR(  IS  )  -  UIN  *  XP(  IS  )  *  VIN  •  YP(  IS  )  +  WIN  *  ZP( 

IS  ) 

4173 

4174 

428 

HR(  IS  )  -  UIN  *  XT(  IS  )  t  VIN  *  YT{  IS  )  ^  WIN  *  ZT( 

IS  ) 

4174 

4175 

429 

PR(  IS  )  -  PIN 

4175 

4176 

430 

AR(  IS  )  -  AL(  IS  ) 

4176 

4177 

431 

GR(  IS  )  -  GL(  IS  ) 

4177 

4178 

432 

ER(  IS  )  =.  EL(  IS  ) 

4178 

4179 

433 

c 

4179 

4180 

434 

END  IF 

4180 

4181 

435 

c 

4181 

4182 

436 

IF(  lATRB  .  EQ  .  7  )  THEN 

4182 

4183 

437 

c 

4183 

4184 

438 

RR(  IS  )  =  RL(  IS  ) 

4184 

4185 

439 

UR(  IS  )  .  UL(  IS  ) 

4185 

4186 

440 

VR(  IS  )  «  VL(  IS  ) 

4186 

4187 

441 

HR{  IS  )  .  HL(  IS  ) 

4187 

4188 

442 

PR(  IS  )  -  PL(  IS  ) 

4188 

4189 

443 

AR(  IS  )  -  AL(  IS  ) 

4189 

4190 

444 

GR(  IS  )  -  GL(  IS  ) 

4190 
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4191 

445 

ER(  IS  )  .  EL{  IS  ) 

4191 

4192 

446 

C 

4192 

4193 

447 

END  IF 

4193 

4194 

448 

C 

4194 

4195 

449 

1F(  lATRB  .  EQ  .  6  )  THEN 

4195 

4196 

450 

c 

4196 

4197 

451 

RR(  IS  )  -  RL(  IS  ) 

4197 

4198 

452 

UR(  IS  )  >  -  UL(  IS  j 

4198 

4199 

453 

VR(  IS  )  *  VL(  IS  ) 

4199 

4200 

454 

WR{  IS  )  -  WL(  IS  ) 

4200 

4201 

455 

PR(  IS  )  -  PL{  IS  ) 

4201 

4202 

456 

AR(  IS  )  -  AL{  IS  ) 

4202 

4203 

457 

GR(  IS  )  .  GL(  IS  ) 

4203 

4204 

458 

£R(  IS  )  -  EL(  IS  ) 

4204 

4205 

459 

c 

4205 

4206 

460 

END  IF 

4206 

4207 

461 

c 

4207 

4208 

462 

END  IF 

4208 

4209 

463 

c 

4209 

4210 

464 

200 

CONTINUE 

4210 

4211 

465 

C 

4211 

4212 

466 

NSl  -  NS2  ♦  1 

4212 

4213 

467 

NS2  -  NS2  +  NOFVESC  INS  ♦  1  ) 

4213 

4214 

468 

90 

CONTINUE 

4214 

4215 

469 

C 

4215 

4216 

470 

RETURN 

4216 

4217 

471 

END 

4217 

Thu  Jul 

1  14:17:00 

1993  threeU.f  SUBROUTINE  EOSl 

4218 

1 

SUBROUTINE  EOSl  (RRR.EEE.N.GAFWA) 

4218 

4219 

2 

C 

4219 

4220 

3 

C 

AIR  IS  ASSUMED  TO  BE  CALORICALLY  IMPERFECT.  THERMALLY  PERFECT. 

4220 

4221 

4 

C 

THEREFORE,  INCLUDE  IMPERFECTIONS  VIA  A  VARIABLE  GAMMA  DEPENDENT 

4221 

4222 

5 

C 

ON  DENSITY  AND  INTERNAL  ENERGY.  THIS  ROUTINE  PERFORMS  A  TABLE 

4222 

4223 

6 

C 

LOOK  UP  FOR  GAFMA. 

4223 

4224 

7 

C 

4224 

4225 

8 

C 

INPUT  VARIBLE  DEFINITIONS. 

4225 

4226 

9 

c 

RRR  -  MASS  DENSITY 

4226 

4227 

10 

c 

EEE  -  INTERNAL  ENERGY  PER  UNIT  VOLUME 

4227 

4228 

11 

c 

(CONVERTED  FOR  INTERNAL  »CALL  TO  ENERGY  PER  UNIT  HASS) 

4228 

4229 

12 

c 

N  -  NUMBER  OF  ENTRIES  IN  ARRAYS  RRR  &  EEE 

4229 

4230 

13 

c 

4230 

4231 

14 

PARAMETER  (M  -  64) 

4231 

4232 

15 

c 

4232 

4233 

16 

DIMENSION  RRP(N).  EEE(N).  GAMMA(N) 

4233 

4234 

17 

DIMENSION  Tll(H),  T12{H).  T2I(M),  T22{M),  RHO(M).  E(M) 

4234 

4235 

18 

DIMENSION  OMP(M),  q(M).  1(M),  J(H) 

4235 

4236 

19 

DIMENSION  G1(16B).G2(112).G3(112),G4{112),G5{112). 

4236 

4237 

20 

1  G6(112),G7(112).GF(840) 

4237 

4238 

21 

c 

4238 

4239 

22 

c 

NOTE:  THE  TABLE  LOOK  UP  TREATS  ARRAY  GF  AS  THOUGH  IT 

4239 

4240 

23 

c 

HERE  DIMENSIONED  (6,105). 

4240 

4241 

24 

c 

4241 

4242 

25 

EQUIVALENCE  (G1(1),GF(  1)).  (G2(1).GF(169)),  (G3(1).GF(281)), 

4242 

4243 

26 

1  (G4(1).GF(393)).  (G5(1).GF(505)),  (G6(1).GF(617)). 

4243 

4244 

27 

I  (G7(1),GF(729)) 

4244 

4245 

28 

c 

4245 

4246 

29 

DATA  XL16E  /2. 7725887222397744835689081810414791107177734375/ 

4246 

4247 

30 

c — 

4247 

4248 

31 

c 

G  -  GAMMA  -  1.0  IS  STORED  FOR  32  BIT  WORD  MACHINES  IN  POWERS  OF 

4248 

4249 

32 

c 

16  ACROSS  FOR  HASS  DENSITY  VARIATION  AND  INTERMEDIATE  VALUES 

4249 

4250 

33 

c 

1  -  16  FOR  POWERS  OF  16  VERTICALLY  WHICH  REPRESENT  THE  INTERNAL 

4250 

4251 

34 

c 

ENERGY  VARIATION. 

4251 

4252 

35 

c 

4252 

4253 

36 

c 

16**(?)  .GE.  RHO  .GE.  16**(-6) 

4253 

4254 

37 

c 

16**(15)  .GE.  E  .GE.  16**(8) 

4254 

4255 

38 

c— 

4255 

4256 

39 

DATA  G1  /8*. 4222, 8*. 4152, 8*. 4110, 8*. 4081, 8*. 4058,8*. 4040. 

4256 

4257 

40 

1  8*. 4024, 8*. 4011, 8*. 3998,8*. 3988, 8*. 3978, 8*. 3969, 

4257 

4258 

41 

I  8*. 3961, 8*. 3953.8*. 3935.8*. 3918, 

4258 

4259 

42 

1  ,3723, .3715, .3707, .3699, .3690, .3680, .3663, .3637, 

4259 

4260 

43 

1  . 3555 . . 3538 , . 3522 , .3502 ..3476,. 3430 . . 3344 . . 3238 , 

4260 

4261 

44 

1  . 3370, .3370, .3370, .3364, . 3347 ,. 3277 . . 3099 , . 2885 , 

4261 
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4262 

45 

4263 

46 

4264 

47 

4265 

48 

4266 

49 

4267 

50 

4268 

51 

4269 

52 

4270 

53 

4271 

54 

4272 

55 

4273 

56 

4274 

57 

4275 

58 

4276 

59 

4277 

60 

4278 

61 

4279 

62 

4280 

63 

4281 

64 

4282 

65 

4283 

66 

4284 

67 

4285 

68 

4286 

69 

4287 

70 

4288 

71 

4289 

72 

4290 

73 

4291 

74 

4292 

75 

4293 

76 

4294 

77 

4295 

78 

4296 

79 

4297 

80 

4298 

81 

4299 

82 

4300 

83 

4301 

84 

4302 

85 

4303 

86 

4304 

87 

4305 

88 

4306 

89 

4307 

90 

4308 

91 

4309 

92 

4310 

93 

4311 

94 

4312 

95 

4313 

96 

4314 

97 

4315 

98 

4316 

99 

4317 

100 

4318 

101 

4319 

102 

4320 

103 

4321 

104 

4322 

105 

4323 

106 

4324 

107 

4325 

108 

4326 

109 

4327 

110 

4328 

111 

4329 

112 

4330 

113 

4331 

114 

4332 

115 

4333 

116 

4334 

117 

4335 

118 

1993  threcd.f  SUBROUTINE  EOSl 

I  .3257,. 3227,. 3201.. 3134.. 3062,, 3014.. 2884,. 2591. 

1  .3166, .3110, .3063. .2946, .2831, .2783, .2677, .2358/ 

DATA  G2/.311: . .3006, .2940. .2787, .2635, .2588, .2502, .2236, 
I  .3075, .2906, .2810, .2665, .2466, .2418, .2350, .2131 , 

!  .3043, .2819, .2695, .2554, .2317, .2269, .2216, .2038, 

!  .2929, .2740. .2593, .2455, .2206, .2136, .2097, . 1955, 

I  . 2840 . . 2672 , . 2  500 . . 2366 . . 2 166 . . 20 1 5 , . 1988 . . 1879 , 

!  .2764,. 2611.. 2285,. 2125.. 1890.. 1890,. 1811, 

1  .2714, .2555  .  j84,. 2210, .2079, .1818,. 1/99, .1747, 

!  .2669,  .  .2343,  .2141,  .2037, .  1822, .  1709, .  1689, 

1  .262^  ./3, .2304, .2096,  .1998, .  1828, .  1684, .  1639, 

!  .2595.  .2446, .2268, .2087. . 1961. .1834, . 1673, . 1601 , 

!  .2401,. 2191,. 1972,. 1775,. 1592,. 1444,. 1358,. 1203, 

1  .2002,. I960,. 1749,. 1536,. 1376,. 1252,. 1107,, 1044, 

1  , 1911 . . 1829 . . 1633, . 1420. . 1266. . 1 101 . . 1012 , .0933. 

1  .1950.. 1781,. 1566,, 1415,. 1241,. 1118,. 1009,. 0948/ 

DATA  G3/.2001 , . 1789, . 1594, . 1443, . 1306. .1189,. 1095, .1013. 

I  . 2040 . . 1826 . . 1657 . . 1494 . . 1338, . 1 1 77 , . 1081 . . 0980 , 

!  .2034, . 1854. . 1683, , 1497. . 1322, . 1169, . 1051 , .0946. 

!  . 1969 . . 1855 .. 1685, . 1487 ,, 1304 .. 1 149 ,. 1024 ,. 0916 . 

!  . 1899, . 1837 .. 1677 . . 1475. . 1287, .1126,. 1002 , . 0900 , 

!  . 1841, . 1817, . 1667, .1464. . 1272, . 1109, .0983, .0888, 

!  . 1800 . . 1800 ,. 1659 ,. 1455 .. 1262 .. 1097 , . 0965 , . 0878 , 

!  . 1779, , 1787, . 1657, . 1450, . 1254. . 1087, .0949. .0868, 

!  .  1773, .1778, . 1656, .1447, .1250. . 1080, .0939, .0859, 

i  .1783,. 1778,. 1658,. 1448.. 1248,. 1076,. 0933,. 0851, 

!  . 1808, . 1781 . . 1667, . 1451, . 1248. . 1074, ,0930. .0843. 

!  .2134, ,2040, . 1978, . 1782, . 1565, . 1368, . 1206, . 1074, 

!  .2210.. 2072,. 1957,. 1739.. 1516.. 1312,. 1137,. 1000, 

1  .2245.. 2109,. 1989,. 1772.. 1563,, 1390,. 1247,. 1133/ 

DATA  G4/, 2299,. 2132, .2017, .1795. .1579, .1384, .1221, .1090. 

1  .2350, .2157. .2023, .1798, .1575, .1370, . 1197, .1057, 

!  .2397, .2194, .2034, .1796. . 1572. . 1372, , 1205, . 1070, 

I  .2452, .2227, .2050. .1805, , 1576, .1379. . 1236, .1118, 

1  .2510, ,2256, .2069, .1814, .1581, . 1383. . 1231, . 1103, 

I  . 2560 .. 2282 .. 2091 . . 1322 .. 1585 .. 1385 ,. 1226, . 1083 . 

!  ,2605, .2312. .2111, ,1829. ,1588, . 1386, . 1222, . 1070, 

1  .2677,, 2358,. 2129,. 1836,. 1592,. 1386.. 1218,, 1071. 

1  .2759.. 2403,. 2145,. 1857,. 1598,. 1389,. 1219,. 1078. 

1  . 2834 , . 2445 , .2 160 . . 1878 . . 1603 ,. 1394 .. 1223 ,. 1084 . 

I  .2905.. 2484,. 2175,. 1898.. 1613,. 1399,. 1226,. 1090, 

I  . 2963 , . 2531 , . 2 199 . . 1918. . 1625 ,. 1407 ,, 1230 . . 1096 , 

1  .4323, .3582, .3109,. 2889. .2803, .2706,. 2410, .2224, 

I  ,4610, .4026, .3624, .3212, .2926, .2551, .2375, .2015/ 

DATA  G5/.4199, .3837, ,3401, .2979. .2623, .2318, .2108, . 1854. 

1  .3924, .3642 , .3194, .2760, .2427, .2157, . 1902, . 1721, 

!  .3794.. 3479,. 3025,. 2673,. 2311.. 2019,. 1842,. 1613. 

1  .3674.. 3448,. 2961,. 2593,. 2255,. 1994,. 1785.. 1594, 

!  .3573, .3443. ,2910, .2517. .2293. .2006, . 1843, . 1679, 

1  .3661, .3438, .2935, .2597, .2336, .2225, .2143, .2116, 

1  .3674, .3435, .3080, .2728. .2606. .2577, .2573, .2573, 

I  .3685, .3453. .3210, .3014, .2942, .2933, .2932. ,2932, 

I  .3814, .3612. .3341. ,3276, .3257, .3253. .3252, .3252. 

1  , 3903 . . 3  752 , . 3570 , . 3522 ,. 3513 .. 3510 .. 3506 .. 3496 . 

1  .4012.. 3899,. 3782,. 3751.. 3743,. 3741,. 3734,. 3713, 

I  .4155, .4057, ,3956, .3930, .3920, .3913. .3907, .3890. 

I  .4290,. 4205,. 4118,. 4092,. 4077,. 4065,. 4059,. 4047, 

1  .5411,. 5385 , . 5359 . . 5353 , . 5351 , , 5350 , , 5350 . . 5350/ 

DATA  66/ . 5823 ,, 5812 .. 5801 .. 5797 .. 5796, . 5797 .. 5797 ,. 5 797 . 

!  . 6096 ,. 6090 ,. 6085 . . 6082 , . 6082 ,. 6083 ,. 6083 .. 6083 . 

I  .6308, .6306, .6305, .6303. .6303, ,6305, .6305, .6305, 

1  .6481 , .6483, .6485, .6483. .6484, .6486, .6487. .6487, 

I  . 6627 , . 6632 , . 6637 , . 6636 ,. 6637 .. 6640 , , 6640 , . 6640 , 

I  .6754,. 6761,. 6769,. 6768,. 6770.. 6773,. 6773,, 6773, 

I  , 6866 , . 6875 , . 6885 , . 6884 .. 6886 .. 6890 ,. 6890 . . 6890 , 

I  . 6966 ,. 69  7  7 ,, 6989 .. 6989 ,. 6991 .. 6995 ,. 6995 .. 6995 . 

1  . 7056 ,. 7070 ,. 7083 , . 7083 .. 7085 ,. 7090 ,. 7090 .. 7090 . 

1  ,7139,, 7154,. /169,. 7169.. 7172,. 7176,. 7177,. 7177, 

1  .7214.. 7231,. 7248,. 7248.. 7251.. 7256,. 7256,. 7256, 

i  . 7285, . 7303, . 7321 , . 7321 , . 7325. . 7330. . 7330, . 7330, 

!  .7350,. 7370,. 7390.. 7390,. 7393,. 7398,. 7399,. 7399. 

!  .7411,. 7432, . 7453, . 7454, . 7457. . 7463, . 7463, . 7463/ 

DATA  G7/. 8069. .8103, .8138, .8139, .8145, .8152, .8153. .8153. 

1  .8454, .8496, .8538,. 8540. .8547, .8556. .8557. .8557. 
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4263 

4264 

4265 
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4336 

119 

!  .8727. .8774. .8822. .8825.. 8832, .8842. .8843, ,8843. 

4336 

4337 

120 

!  . 8938 . . 8990 ,.9042, .9046, .9054, .9064. .9065, .9065, 

4337 

4338 

121 

1  ,9IU,-91fi6,.9222..9226..9235,.9246,.9247,.9247. 

4338 

4339 

122 

!  .9258, .9316. .9374. .9379, .9387, .9399. .9400, .9400, 

4339 

4340 

123 

!  ,9384,. 9445,. 9506.. 9511.. 9520,. 9532,. 9533,. 9533, 

4340 

4341 

124 

!  . 9496 .. 9559 , . 9622 .. 9627 ,. 9637 ,. 9649 , . 9650 , .9650 , 

4341 

4342 

125 

1  .9596, .9661 . .9727, .9731. .9741. .9754, .9755, .9755, 

4342 

4343 

126 

!  .  9686 , . 9  7  53 . . 982 1 , . 9826 , . 9836 , , 9849 . . 9850 . . 9850 , 

4343 

4344 

127 

t  .9769, .9837, .9906, .9912, .9922. .9936, ,9937, .9937, 

4344 

4345 

128 

1  . 9845 .. 99 15 ,. 9986 ,. 9991 ,. 9999 ,. 9999 ,. 9999 .. 9999 , 

5345 

4346 

129 

1  .9915, .9987, .9999, .9999, .9999, .9999, .9999, .9999, 

4346 

4347 

130 

1  . 9981 ,, 9999 ,. 9999 ,. 9999 , . 9999 ,. 9999 ,. 9999 .. 9999 / 

4347 

4348 

131 

C- 

... 

4348 

4349 

132 

C 

REAL  AIR  EOS,  TABLE  LOOKUP  ON  GILHORE  DATA.  (NO  TEHP.  MODEL) 

4349 

4350 

133 

c 

TO  AVOID  COSTLY  LOGARITHMIC  FUNCTIONS  THE  TABLE  "G*  IS  STORED  IN  A 

4350 

4351 

134 

c 

FORM  SO  THAT  THE  HEXADECIMAL  WORD  STRUCTURE  OF  A  32  BIT  MACHINE 

4351 

4352 

135 

c 

HAY  BE  EXPLOITED. 

4352 

4353 

136 

c 

THIS  LOGIC  MAY  BE  TRANSFERED  TO  OTHER  MACHINES  BY  RECALCULATING 

4353 

4354 

137 

c 

THE  TABLE  "G"  APPROPRIATE  TO  THE  WORD  ARCITECTURE  OF  THAT  MACHINE. 

4354 

4355 

138 

c 

M.ACHINE  DEPENDENT  FUNCTIONS  AND  KEY  NUMBERS  MUST  ALSO  BE  CHANGED. 

4355 

4356 

139 

c- 

4356 

4357 

140 

RH6E  -  1./XL16E 

4357 

4358 

141 

1ST  -  0 

4358 

4359 

142 

NR  -  N 

4359 

4360 

143 

c 

4360 

4361 

144 

10 

CONTINUE 

4361 

4362 

145 

NST  -  HINO(NR.M) 

4362 

4363 

146 

c 

4363 

4364 

147 

00  20  IRE-l.NST 

4364 

4365 

148 

RHO(IRE)  =■  .774413*RRR(ISTMRE) 

4365 

4366 

149 

E(IRE)  »  AMAXl(3.e8.10000.*EEE(ISTtlRE)/RRR(IST+IRE)) 

4366 

4367 

150 

c 

4367 

4368 

151 

c 

CALCULATE  MASS  DENSITY  VARIATION  INDEX  "1". 

4368 

4369 

152 

c 

4369 

4370 

153 

TEM  -  AL0G(RH0(IRE))»RL16E  +  5QO.O 

4370 

4371 

154 

I(IRE)  -  AINT(TEM) 

4371 

4372 

155 

OMP(IRE)  •  TEH  -  FLOAT(I(IRE)) 

4372 

4373 

156 

I(IRE)  >  502  -  KIRE) 

4373 

4374 

157 

UIRE)  =  MAX0(I(1RE).1) 

4374 

4375 

158 

c 

4375 

4376 

159 

c 

CALCULATE  INTERNAL  ENERGY  VARIATION  INDEX  "J", 

4376 

4377 

160 

c 

4377 

4373 

161 

TEM  -  AL0G(E{IRE))*RL16E 

4378 

4379 

162 

JCY  -  AINT(TEH) 

4379 

4380 

163 

TEM  -  TEH  -  FLOAT(JCy) 

4380 

4381 

164 

TEH  -  EXP(XL16E*TEH) 

4381 

4382 

165 

JCY  -  JCY  -  7 

4382 

4383 

166 

JS  -  AINT(TEM) 

4383 

4384 

167 

q(IRE)  -  TEH  -  FLOAT(JS) 

4384 

4385 

168 

J{IRE)  =  JS  +  15»JCY 

4385 

4386 

169 

J(IRE)  >  MINO(J(1RE),104) 

4386 

4387 

170 

J(IRE)  »  I(IRE)  8»J(IRE) 

4387 

4388 

171 

KIRE)  *  J(IRE)  -  8 

4388 

4389 

172 

20 

CONTINUE 

4389 

4390 

173 

c 

4390 

4391 

174 

00  30  IRE- 1, NST 

4391 

4392 

175 

Tll(IRE)  -  GF(I(IRE)) 

4392 

4393 

176 

T21(IRE)  -  GF(I(IRE)+I) 

4393 

4394 

177 

T12(IRE)  -  GF(J(IRE)) 

4394 

4395 

178 

T22{IRE)  -  GF{J(IRE)+1) 

4395 

4396 

179 

30 

CONTINUE 

4396 

4397 

180 

c 

4397 

4398 

181 

c 

CALCUUTE  GAMMA  BY  LINEAR  INTERPOLATION. 

4398 

4399 

182 

c 

4399 

4400 

183 

DO  40  IRE-I,NST 

4400 

4401 

184 

T12(IRE)  -  T12(IRE)  -  TIl(IRE) 

4401 

4402 

185 

T22(IRE)  -  T22(IRE)  -  T21(IRE) 

4402 

4403 

186 

GAMMA(ISTtlRE)  =  OHP(IRE)  ‘(TIKIRE)  +  Q(IR£)*T12(1RE)) 

4403 

4404 

187 

i  Ml.  -  0HP(IRE))*(T2l(IRE)  ^  q(IR£)n22(IRE) ) 

4404 

4405 

188 

1  +  1. 

4405 

4406 

189 

40 

CONTINUE 

4406 

4407 

190 

c 

4407 
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4410 

193 

IE{NR.GT.0)  GO  TO  10 

4410 

4411 

194 

C 

4411 

4412 

195 

RETURN 

4412 

4413 

196 

ENO 

4413 

4414 

197 

C 

4414 

Thu  Jul 

1  14:17:00 

1993  threed.f  SUBROUTINE  KATRLA 

4415 

1 

SUBROUTINE  HATRLA 

44:5 

4416 

2 

C 

4416 

4417 

3 

c 

READS  MATERIAL  PROPERTIES 

4417 

4418 

4 

c 

EVALUATES  MATERIAL  RELATED  CONTANTS 

4418 

4419 

5 

c 

4419 

4420 

6 

includt  'dratrlO.h' 

4420 

4421 

7 

CHARACT£R*8  PROOCT(I5).  PHASE(15),  GG.  SS,  VV,  NASAP 

4421 

4422 

8 

REAL  X{15),  KVOLdS).  M(15),  RH0S(15),  CVS(15) 

4422 

4423 

9 

REAL  CF(7.2).  CV{0:5.2) 

4423 

4424 

10 

c 

4424 

4425 

11 

DATA  KV0L/15*0./ 

4425 

4426 

12 

DATA  GG/'G'/,  SS/’S7.  VV7'VVVV/ 

4426 

4427 

13 

DATA  CV/12»0./ 

4427 

4428 

14 

DATA  PP0OCT/’02',’N2M3*‘VVVV  7 

4428 

4429 

15 

DATA  PHASE/2*'GM3“  7 

4429 

4430 

16 

c 

4430 

4431 

17 

c 

DATA  PR0OCT/'H20' . ’H2' , •C02’ . 'CO* . ‘NHS*, ‘CHA* , 'N2’ , 'Cs* 

4431 

4432 

18 

c 

1  .7*"VVVV  ■/ 

4432 

4433 

19 

c 

DATA  PHASE/7*'G','S'.7*'  '/ 

4433 

4434 

20 

c 

4434 

4435 

21 

ALFAA..5 

4435 

4436 

22 

8ETAA-. 09585 

4436 

4437 

23 

THETAA-400. 

443' 

4438 

24 

CAPPAA-12.685 

4438 

4439 

25 

NNASA'IOO 

4439 

4440 

26 

X(l)-21. 

4440 

4441 

27 

X(2)-79. 

4441 

4442 

28 

KVOL(1)-350. 

4442 

4443 

29 

KV0L(2)-380. 

4443 

4444 

30 

M(l)-32. 

4444 

4445 

31 

M(2)-28.016 

4445 

4446 

32 

CVS(l)-0. 

4446 

4447 

33 

CVS(2)-0. 

4447 

4448 

34 

RH0S{l)-0. 

4448 

4449 

35 

RIK)S(2)-0. 

4449 

4450 

36 

NS  -  0 

4450 

4451 

37 

NG  -  0 

4451 

4452 

38 

c 

4452 

4453 

39 

TMS  -  0. 

4453 

4454 

40 

COVA  -  0. 

4454 

4455 

41 

GML  -  0. 

4455 

4456 

42 

SML  -  0. 

4456 

4457 

43 

SV  -  0. 

4457 

4458 

44 

SCVA  -  0. 

4458 

4459 

45 

c 

4459 

4460 

46 

REWIND  4 

4460 

4461 

47 

00  110  I  -  1.  15 

4461 

4462 

48 

IF  (  PROOCT(I)  .EQ.  VV  )  GO  TO  10 

4462 

4463 

49 

NS  -  I 

4463 

4464 

50 

c 

4464 

4465 

51 

IF  (  PHASE(I)  .EQ.  GG  )  THEN 

4465 

4466 

52 

NG  -  NG  +  1 

4466 

4467 

53 

GHL  -  GML  +  X(I) 

4467 

4468 

54 

TMS  -  TMS  +  X(I)»M(I) 

4468 

4469 

55 

COVA  -  COVA  +  X{I)‘KV0L(1) 

4469 

4470 

56 

c 

4470 

4471 

57 

ELSE  IF  (  PHASE(I)  .EQ.  )  THEN 

4471 

4472 

58 

PHASE! 1)  -  VV 

4472 

4473 

59 

SML  -  SML  +  X(I) 

4473 

4474 

60 

TMS  -  TMS  *  X(I)*M(I) 

4474 

4475 

61 

SCVA  -  SCVA  ♦  X(I)*CVS(I) 

4475 

4476 

62 

SV  -  SV  ♦  X(I)*H(I)/RHOS(I} 

4476 

4477 

63 

c 

4477 

4478 

64 

ELSE 

4478 

4479 

65 

STOP  '  PRODUCTS  EITHER  SOLID.  5.  OR  GAS,  G' 

4479 

4480 

66 

c 

4480 
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4481 

67 

END  IF 

4481 

4482 

68 

110 

CONTINUE 

4482 

4483 

69 

C 

4483 

4484 

70 

iO 

IF  {  NS  .LT.  1  )  STOP  '  NO  PRODUCTS  ?' 

4484 

4485 

71 

c 

4485 

4486 

72 

COVA  -  COVA  *  CAPPAA  /  GHL 

4486 

4487 

73 

FSA  =  TMS/AMAX1(SV,1.E-15) 

4487 

4488 

74 

THL  -  GHL  +  SHL 

4488 

4489 

75 

XGA  -  GHL/ THL 

4489 

4490 

76 

SCVA  -  SCVA/TML 

44% 

4491 

77 

HHA  -  THS/THL 

4491 

4492 

78 

c 

4492 

4493 

79 

DO  130  INASA  -  1,  NNASA 

4493 

4494 

80 

IF  (  NG  ,EQ.  0  )  GO  TO  20 

4494 

4495 

81 

1 

READ  (4,1001)  NASAP,  10 

4495 

4496 

82 

1001 

F0RMAT(A8,71X,I1) 

4496 

4497 

83 

IF  (  ID  .NE.  1  )  GO  TO  1 

4497 

4498 

84 

c 

4498 

4499 

35 

DO  120  I  *  1,  NS 

4499 

4500 

86 

IF  (  NASAP  .EQ.  PROOCTd)  .AND.  PHASE(I)  .EQ.  GG  )  THEN 

4500 

4501 

87 

PHASE(I)  -  VV 

4501 

4502 

88 

NG  -  NG  -  1 

4502 

4503 

89 

READ  (4,1002)  ((CF(K,KK),K»1.7),KK>1,2) 

4503 

4504 

90 

1002 

F0RHAT(5£15.8) 

4504 

4505 

91 

/* 

u 

4505 

4506 

92 

CF(l.l)  -  CF(l.l)  -  1. 

4506 

4507 

93 

CF(1,2)  =  CF(1.2)  -  1. 

4507 

4508 

94 

DO  115  K  -  0,  5 

4508 

4509 

95 

CV(K,1)  -  CV(K,1)  (X(l)/6ML)*CF(Kn.l) 

4509 

4510 

96 

115 

CV(K,2)  -  CV(K,2)  ♦  (X(I)/GHL)*CF(K+1,2) 

4510 

4511 

97 

C 

4511 

4512 

98 

END  IF 

4512 

4513 

99 

120 

CONTINUE 

4513 

4514 

100 

C 

4514 

4515 

101 

130 

CONTINUE 

4515 

4516 

102 

C 

4516 

4517 

103 

20 

DO  140  I  =  1.  NS 

4517 

4518 

104 

IF  (  PHASE(I)  .NE.  VV  )  STOP  ‘  SPECIES  NOT  FOUND  IN  NASA’ 

4518 

4519 

105 

140 

CONTINUE 

4519 

4520 

106 

C 

4520 

4521 

107 

DO  150  I  •  3,  SO 

4521 

4522 

108 

150 

TA(I)  =  FLOAT(IOOM) 

4522 

4523 

109 

C 

4523 

4524 

no 

CALL  PSH  (  CV(0,2).4,  TA(3),8,  CVHA(3)  ) 

4524 

4525 

111 

CALL  PoH  (  CV(0.1).4.  TA(11),40,  CVflA{ll)  ) 

4525 

4526 

112 

c 

4526 

4527 

113 

DO  155  K  -  1,  4 

4527 

4528 

114 

CV'K.l)  »  CV(K.1)/FL0AT(K+1) 

4528 

4529 

115 

155 

CV(K.2)  -  CV(K,2)/FL0AT(Kn) 

4529 

4530 

116 

C 

4530 

4531 

117 

CALL  PSH  (  CV(0,2),4,  TA(3),8,  EHE0A(3)  ) 

4531 

4532 

118 

CALL  PSH  (  CV(0,1),4,  TA(11),40,  EHEOA(Il)  ) 

4532 

4533 

119 

C 

4533 

4534 

120 

DO  160  I  -  3,  10 

4534 

4535 

121 

160 

EHEOA(I)  =  TA(I)*EMEOA(I) 

4535 

4536 

122 

DO  161  1  =■  11,  50 

4536 

4537 

123 

161 

EMEOA(I)  »  TA(l)*EHEOA(I) 

4537 

4538 

124 

C 

4538 

4539 

125 

DO  180  I  =■  3.  50 

4539 

4540 

126 

180 

EHEOA(l)  «  EHEOA{I)*XGA  TA(I)»SCVA 

4540 

4541 

127 

C 

4541 

4542 

128 

CALL  BILD  (EHE0A.48,RAHGEA.DYA) 

4542 

4543 

129 

C 

4543 

4544 

130 

RETURN 

4544 

4545 

131 

END 

4545 

# 


« 
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4546 

1 

SUBROUTINE  PSH  (A.NPOL,  T.N.  SMM) 

4547 

2  C 

4548 

3 

REAL  A(0:NP0L).  T(N).  SMM(N) 

4549 

4  C 

4550 

5 

00  10  J  -  1,  N 

4551 

6  10  SHM(J)  -  A(HPOL) 

4552 

7  C 

4553 

8 

00  20  K  -  NPOL-1,  0,  -1 

4554 

9  C 

4555 

10 

00  15  J  -  1.  N 

4556 

11  15  SHH(J)  =  SMH(J)  *  T(J)  +  A(K) 

4557 

12  C 

4558 

13  20  CONTINUE 

4559 

14  C 

4560 

15 

RETURN 

4561 

16 

END 

4562 

17  C 

Thu  Jul 

I  14:17:00  1993  threed.f  SUBROUTINE  BILO 

4563 

1 

SUBROUTINE  BILD(Y.N.RANGE.DY) 

4564 

2  C 

4565 

3 

REAL  Y(N), RANGE. DY(200) 

4566 

4 

IF(  N  .GT.  201  )  STOP  '  ONLY  201  POINTS  ALLOWED  ' 

4567 

5  C 

4568 

6 

RANGE  -  (Y(N+2)  -  Y(3))  /  (N-1) 

4569 

7 

DO  10  I  =  1  ,  N-1 

4570 

8 

0Y{I*2)  »  Y{I+3)  -  Y(I+2) 

4571 

9 

10  CONTINUE 

4572 

10  C 

4573 

11 

RETURN 

4574 

12 

END 

Thu  Jul 
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4575 

1 

SUBROUTINE  MATRLX 

4576 

2  C 

4577 

3  C 

READS  MATERIAL  PROPERTIES 

4578 

4  C 

EVALUATES  MATERIAL  RELATED  CONTAHTS 

4579 

5  C 

4580 

6 

Include  'dntrlO.h* 

4581 

7 

CHARACTER*8  PR00CT(15),  PHASE(I5).  GG,  SS.  VV,  NASAP 

4582 

8 

REAL  X(15).  KV0L(15).  H(15).  RH0S(15),  CVS(15) 

4583 

9 

REAL  CF(7,2),  CV(0:5.2) 

4564 

10  C 

4585 

11 

DATA  KVOL/15*0./ 

4586 

12 

DATA  GG/'GV,  SS/'S7.  VV/*VVVV’/ 

4587 

13 

DATA  CV/12»0./ 

4588 

14  C 

4589 

15 

DATA  PR00CT/’H20'.'C02*.’C0','H2','CsM0«'VVVV  7 

4590 

16 

DATA  PHASE/4* 'G*.' S'. 10* •  •/ 

4591 

17  C 

4592 

18 

ALFAX-.5 

4593 

19 

BETAX-. 09585 

4594 

20 

THETAX-400, 

4595 

21 

CAPPAX-12.685 

4596 

22 

NNASA-lOO 

4597  23  X(l)-Z.5 

4598  24  X(2)-1.66 

4599  25  X(3)-.188 

4600  26  X(4)-l,5 

4601  27  X(5)-5.15 

4602  28  KV0L(l)-250. 

4603  29  KVOL(Z)-600. 

4604  30  KV0L(3)>390, 

4605  31  KV0L(4)-380. 

4606  32  KVOL(5)=0. 

4607  33  H(l)-18. 

4608  34  H{2)-44. 

4609  35  M{3)-28. 

4610  36  H{4)-28. 

4611  37  H(5)-12. 

4612  38  CVS(5).1.1 

4613  39  RH0S(5)-2,6 


4546 

4547 

4548 

4549 

4550 

4551 

4552 

4553 

4554 

4555 

4556 

4557 

4558 

4559 

4560 

4561 

4562 


4563 

4K4 

4565 

4566 

4567 

4568 

4569 

4570 

4571 

4572 

4573 

4574 


4575 

4576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 

4584 

4585 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

4596 

4597 

4598 

4599 

4600 

4601 

4602 

4603 

4604 

4605 

4606 

4607 

4608 

4609 

4610 

4611 

4612 

4613 
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4614 

40 

NS  -  0 

4614 

4615 

41 

MG  -  0 

4615 

4616 

42 

C 

4616 

4617 

43 

TMS  -  0. 

4617 

4618 

44 

COVX  *  0. 

4618 

4619 

45 

GML  -  0. 

4619 

4620 

46 

SHL  •  0. 

4620 

4621 

47 

SV  -  0. 

4621 

4622 

48 

SCVX  -  0. 

4622 

4623 

49 

c 

4623 

4624 

50 

REWIND  4 

4624 

4625 

51 

DO  110  I  =  1.  15 

4625 

4626 

52 

IF  {  PROOCT(I)  .EO.  VV  )  GO  TO  10 

4626 

4627 

53 

NS  -  I 

4627 

4628 

54 

c 

4628 

4629 

55 

IF  (  PHASE(I)  .EQ.  GG  )  THEN 

4629 

4630 

56 

NG  -  NG  ^  1 

4630 

4631 

57 

GML  «  GML  +  X(I) 

4631 

4632 

58 

TMS  -  TMS  +  X(I)*M(I) 

4632 

4633 

59 

COVX  -  COVX  +  X(I)*KVOL(I) 

4633 

4634 

60 

c 

4634 

4635 

61 

ELSE  IF  (  PHASE(I)  .£0.  SS  )  THEN 

4635 

4636 

62 

PHASE! I)  -  VV 

4636 

4637 

63 

SML  -  SHL  +  X(I) 

4637 

4638 

64 

TMS  -  TMS  +  X(I)»M(r) 

4638 

4639 

65 

SCVX  -  SCVX  +  X(I)*CVS(I) 

4639 

4640 

66 

SV  -  SV  +  X(l)*M{I)/RHOS(l) 

4640 

4641 

67 

c 

4641 

4642 

68 

ELSE 

4642 

4643 

69 

STOP  ■  PRODUCTS  EITHER  SOLID.  S.  OR  GAS,  G’ 

4643 

4644 

70 

c 

4644 

4645 

71 

END  IF 

4645 

4646 

72 

no 

CONTINUE 

4646 

4647 

73 

c 

4647 

4648 

74 

10 

IF  (  NS  .LT.  1  )  STOP  ■  NO  PR£»UCTS  ?' 

4648 

4649 

75 

c 

4649 

4650 

76 

COVX  -  COVX  *  CAPPAX  /  GML 

4650 

4651 

77 

fSX  •  THS/AMAX1(SV,1.E-15) 

4651 

4652 

78 

TML  -  GML  +  SML 

4652 

4653 

79 

XGX  •  GML/TML 

4653 

4654 

80 

SCVX  -  SCVX  /  TML 

4654 

4655 

81 

HMX  •  TMS/THL 

4655 

4656 

62 

c 

4656 

4657 

83 

DO  130  INASA  -  1.  NNASA 

465? 

4658 

84 

IF  (  NG  .EQ.  0  )  GO  TO  20 

4658 

4659 

35 

1 

READ  (4,1001)  NASAP,  ID 

4659 

4660 

86 

1001 

F0RMAT(A8,71X,I1) 

4660 

4661 

87 

IF  (  ID  .N£.  I  )  GO  TO  1 

4661 

4662 

88 

c 

4662 

4663 

89 

DO  120  I  >  1.  NS 

4663 

4664 

90 

IF  (  NASAP  .EQ.  PROOCT(I)  .AND.  PHASE(I)  .EQ.  GG  )  THEN 

4664 

4665 

91 

PHAS£(I)  ■  VV 

4665 

4666 

92 

NG  •  NG  -  1 

4666 

4667 

93 

READ  (4,1002)  ((CF(K.KK),K-1,7).KK-1.2) 

4667 

4668 

94 

1002 

FORMAT{5E15.8) 

4668 

4669 

95 

c 

4669 

4670 

96 

CF(1,1)  -  CF{1,1)  -  1. 

4670 

4671 

97 

CF(1.2)  >  CF(1.2)  -  I. 

4671 

4672 

98 

DO  115  K  -  0,  5 

4672 

4673 

99 

CV(K,1)  .  CV(K.l)  ♦  (X(I)/GML)*CF(K+1.1) 

4673 

4674 

100 

115 

CV(K.2)  =  CV(K.2)  +  (X(I)/6ML)»CF{K*1.2) 

4674 

4675 

101 

C 

4675 

4676 

102 

END  IF 

4676 

4677 

103 

120 

CONTINUE 

4677 

4678 

104 

c 

4678 

4679 

105 

130 

CONTINUE 

4679 

4680 

106 

C 

4680 

4681 

107 

20 

00  140  I  »  1.  NS 

4681 

4682 

108 

IF  (  PHASE! 1)  .NE.  VV  )  STOP  '  SPECIES  HOT  FOUND  IN  NASA' 

4682 

4683 

109 

140 

CONTINUE 

4683 

4684 

110 

C 

4684 

4685 

111 

00  150  I  >  3.  50 

4685 

4686 

112 

150 

TX(1)  -  FLOATdOOM) 

4686 

4687 

113 

C 

4687 
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4688 

114 

CALL  PSH  (  CV(0.2).4.  TX(3}.8.  CVHX(3)  ) 

4688 

4689 

115 

CALL  PSM  (  CV(0.1).4.  TX(11).40.  CVMX(ll)  ) 

4689 

4690 

116 

C 

4690 

4691 

117 

DO  155  K  -  1.  4 

4691 

4692 

118 

CV(K.l)  -  CV(K.1)/FL0AT(K+1) 

4692 

4693 

119 

155 

CV(K.2)  -  CV(K.Z)/FLOAT{Ktl) 

4693 

4694 

120 

C 

4694 

4695 

121 

CALL  PSH  (  CV{0.2).4.  TX{3).8.  EME0X{3)  ) 

4695 

4696 

122 

CALL  PSH  (  CV(0.1).4.  TX{11).40.  EHE0X{11)  ) 

4696 

4697 

123 

C 

4697 

4698 

124 

DO  160  I  -  3.  10 

4698 

4699 

125 

160 

EMEOX(l)  .  TX(1)*EME0X(I) 

4699 

4700 

126 

DO  161  I  .  11.  50 

4700 

4701 

127 

161 

EHEOX(I)  .  TX(I)*EME0X{1) 

4701 

4702 

128 

C 

4702 

4703 

129 

DO  180  I  <  3.  50 

4703 

4704 

130 

180 

EHEOX(I)  .  £MEOX(I)*XGX  ♦  TX{1)*SCVX 

4704 

4705 

131 

C 

4705 

4706 

132 

CALL  8IL0  (EHE0X.48.RANGEX.DYX) 

4706 

4707 

133 

C 

4707 

4708 

134 

RETURN 

4708 

4709 

135 

END 

4709 
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4710  1  SUBROUTINE  VOLMTETC  (  11.  12.  13.  X.  Y.  2  .  VOLUMT  )  4710 

4711  2  C  4711 

4712  3  C . 1  4712 

4713  4  C  I  4713 

•  4714  5  C  VOLMTETC  FINOS  THE  VOLUME  OF  THE  TETRAHEDRON  DEFINED  BY  THE  I  4714 

4715  6  C  GRID  VERTICES  II.  12.  13.  AND  THE  POINT  (X.  Y,  Z).  I  4715 

4716  7  C  THE  CODE  ASSUMES  THAT  THE  AREAL  VECTOR  OF  THE  BASE  TRIANGLE  I  4716 

4717  8  C  FORMED  BY  II.  12  AND  13  POINTS  IN  THE  DIRECTION  OF  (X.  Y.  Z):  I  4717 

4718  9  C  BY  THE  RIGHT  HAND  RULE.  IF  H.  12  AND  13  ARE  ARRANGED  I  4718 

4719  10  C  COUNTER-CLOCKWISE  AS  VIEWED  FROM  ABOVE  THE  PUNE  OF  THE  I  4719 

4720  11  C  TRIANGLE.  (X.  Y,  Z)  ALSO  LIES  ABOVE  THE  PLANE).  BUT  NOTE  -  I  4720 

^  4721  12  C  I  4721 

•  4722  13  C  THE  VOLUME  RETURNED  IS  A  SIGNED  QUANTITY  -  IE.  I  4722 

4723  14  C  IF  THE  VERTICES  ARE  NOT  ORDERED  BY  THE  RIGHT  I  4723 

4724  15  C  HAND  RULE  THE  VOLUME  WILL  BE  NEGATIVE.  I  4724 

4725  16  C  I  4725 

4726  17  C  I  4726 

4727  18  C  DECEMBER.  1991:  M.  FRITTS.  FRITTS%HCL.SAINET0CCC. NERSC.GOV.  I  4727 

4728  19  C  (301)  266-0992  I  4728 

^  4729  20  C  I  4729 

•  4730  21  C . I  4730 

4731  22  C  4731 

4732  23  C— ——————— - — — — - — — ..............  4732 

4733  24  C  4733 

4734  25  DOUBLE  PRECISION  R21X.R21Y.R21Z.R31X.R31Y.R31Z,R41X.R41Y.R41Z  4734 

4735  26  DOUBLE  PRECISION  VOLUMT. X.Y.Z  4735 

4736  27  C  4736 

_  4737  28  C  4737 

•  4738  29  Include  '(tashOO.h'  4738 

4739  30  C  4739 

4740  31  C— — — — — — - ......................  4740 

4741  32  C  4741 

4742  33  C  —  FIND  THE  VOLUME  OF  THE  TETRAHEDRON. .  4742 

4743  34  C  4743 


4744 

35 

R21X  -  XV(1.I2)  -  XV(l.ll) 

4744 

4745 

36 

R21Y  -  XV(2.I2)  -  XV(2.I1) 

4745 

4746 

37 

R212  -  XV(3,I2)  -  XV{3.11) 

4746 

4747 

38 

R31X  -  XV(1.I3)  -  XV(l.Il) 

4747 

4748 

39 

R31Y  -  XV(2.I3)  -  XV(2.11) 

4748 

4749 

40 

R31Z  -  XV(3.I3)  -  XV(3.I1) 

4749 

4750 

41 

R41X  -  X  -  XV(l.Il) 

4750 

4751 

42 

R41Y  -  Y  -  XV(2,I1) 

4751 

4752 

43 

R41Z  .  Z  -  xv(3.n) 

4752 

4753 

44 

C 

4753 

4754 

45 

VOLUMT  =  (  R41X*{  R21Y*R31Z  - 

R21Z*R31Y  )  - 

4754 

4755 

46 

1  R41Y*{  R21X*R31Z  - 

R21Z*R31X  )  ♦ 

4755 

4756 

47 

2  R41Z*(  R21X*R31Y  - 

R21Y*R31X  )  )/6.00 

4756 

4757 

48 

C 

4757 

4758 

49 

C 

4758 
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4759  50  C  4759 

4760  51  RETURN  4760 

4761  52  C  4761 

4762  53  C  4762 

4763  54  C  —  4763 

4764  55  END  4764  • 

4765  56  C  4765 
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Module  List 

-  order  of  occurence 

1 

routine 

page 

1 

AUGUST 

1 

2 

HYORFL 

13 

3 

HYOftNN 

18 

4 

GEOMTR 

25 

5 

UPDATE 

29 

6 

UPGRAO 

30 
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Module  List 

-  alphabetical  order 

# 

routine 

page 

1 

AUGUST 

1 

2 

GEWTR 

25 

3 

HYORFL 

13 

4 

HYDRMN 

18 

5 

UPDATE 

29 

6 

UPGRAO 

30 
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page 
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. . 1 

I 

BERMUDA  IS  A  MULTIDIMENSIONAL  CODE  WHICH  IS  BASED  ON  THE  1 
USE  OF  TRIANGULAR  GRIDS  AS  THE  FUNDAMENTAL  MESH  1 
FOR  FIELD  LIKE  QUANTITIES.  THE  CODE  REQUIRES  I 

THAT  ALL  QUANTITIES  ARE  BASED  AT  THE  BARICENTER  I 

OF  SIDES/TRIANGLES.  I 

I 

THE  QUIP  IS  THAT  THOSE  WHO  WORK  OH  BERMUDA  I 

TRIANGLES  ARE  NEVER  HEARD  FROM  AGAIN.  I 

I 

THE  BASIC  MODULES  IN  BERMUDA  INCLUDE:  I 

I 

A  HyOROOYNAMICS  CODE  1 

.BASED  ON  A  FIRST  ORDER  GODUNOV  1 

METHOD  OR  A  SECOND  ORDER  GODUNOV  I 

WITH  MESH  ADAPTATION.  I 

I 

. 1 


GRID  SETUP  TABLES  AND  THEIR  MEANING; 


++++++*'+++++++++++++++++++++++++++++++++++++++++++++++++++++ 


LIST  OF  VERTICES 


IV 

JV(1,IV) 


JV(2.IV) 


XV(l.IV) 

XV(2,1V) 


VERTEX  INDEX 
S  STATUS  OF  THE  POINT 
S-0  FREE  POINT  WHICH  HAY  BE 
OELETED/MOVED 

S-1  POINT  RESTRICTED  TO  A  SURFACE 
S-2  POINT  RESTRICTED  TO  A  LINE 
S-3  POINT  WHICH  IS  FIXED  AND  MAY 
NOT  BE  REMOVED 

INDEX  OF  A  LINE  WHICH  INCLUDE  THE 
POINT 

NEGATIVE  MEANS  THE  POINT  IS  ON  A 
BOUNDARY  LINE 
X  POSITION  OF  VERTEX 
Y  POSITION  OF  VERTEX 


♦+++♦+++++ 
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74 

C 

7A 

75 

75 

C 

4 

75 

76 

76 

C 

+ 

LIST  OF  EDGES 

4 

76 

77 

77 

C 

4 

77 

78 

78 

C 

+ 

IE 

-  EDGE  INDEX 

4 

78 

79 

79 

C 

JE(l.IE) 

-  INDEX  OF  LOWER  EDGE  VERTEX 

4 

79 

80 

80 

C 

•f 

JE{2.IE) 

-  INDEX  OF  UPPER  EDGE  VERTEX 

4 

80 

81 

81 

C 

+ 

4 

81 

82 

82 

C 

+ 

FOR  TWO  DIMENSIONAL  PROBLEMS 

4 

82 

83 

83 

C 

♦ 

4 

83 

84 

84 

C 

•f 

JE(3.IE) 

-  INDEX  OF  LEFT  SIDE 

4 

84 

85 

85 

c 

+ 

JE(4.IE) 

-  INDEX  OF  RIGHT  SIDE 

4 

85 

86 

86 

c 

4 

86 

87 

87 

c 

+ 

IF  JE{3-4.IE)  IS  NEGATIVE  THIS  INDICATES  THAT  THE 

4 

87 

88 

88 

c 

+ 

EDGE  LIES  ALONG  A  BOUNDARY. 

4 

88 

89 

89 

c 

■f 

4 

89 

90 

90 

c 

+ 

JE(5.I£) 

-  INDEX  DEFINING  BOUNDARY  CONDITION 

4 

90 

91 

91 

c 

4- 

0  -  ORDINARY  EDGE  INTERIOR 

4 

91 

92 

92 

c 

+ 

6  -  HALL  V-PERPENOICULAR-0 

4 

92 

93 

93 

c 

•f 

7  -  SUPERSONIC  OUTFLOW 

4 

93 

94 

94 

c 

+ 

8  -  INFLOW  BOUNDARY 

4 

94 

95 

95 

c 

4- 

4 

95 

96 

96 

c 

4 

XE(l.IE) 

-  LENGTH  OF  EDGE 

4 

96 

97 

97 

c 

+ 

XE(2.IE) 

-  DISTANCE  BETWEEN  ADJOINING  SIDE 

4 

97 

98 

98 

c 

4“ 

POINTS. 

4 

98 

99 

99 

c 

4 

4 

99 

100 

100 

c 

++4-+4++4+44‘4‘4-4'444++4-+4*4-44+4*++4‘4-+4-+++4'++4++44+4+++4-+444-44‘++4-4 

100 

101 

101 

c 

101 

102 

102 

c 

4-4‘4-4-+4-4“+4-+4-44“+4-4-4-+4-+4-4-++4-4*4'4”44-+++4-++4-4444'+4>44-4-44-44-44-4‘+-f4+4*4-4- 

102 

103 

103 

c 

4- 
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103 

104 

104 

c 

+ 

LIST  OF  SIDES 

4 

104 

105 

105 

c 

+ 

4 

105 

106 

106 

c 

4- 

IS 

-  SIDE  INDEX 

4 

106 

107 

107 

c 

+ 

JS(1,IS) 

-  INDEX  OF  FIRST  VERTEX 

4 

107 

108 

108 

c 

4* 

JS(2.IS) 

-  INDEX  OF  SECOND  VERTEX 

4 

108 

109 

109 

c 

+ 

JS(3.IS) 

-  IlfflEX  OF  THIRD  VERTEX 

4 

109 

110 

110 

t 

+ 

4 

110 

111 

111 

c 

4- 

THE  VERTICES  RUN  AROUND  THE  SIDE  IN  ORDER 

4 

111 

112 

112 

c 

+ 

COUNTER-CLOCKWISE  FASHION 

4 

112 

113 

113 

c 

4“ 

4 

113 

114 

114 

c 

♦ 

JS(4,IS) 

-  INDEX  OF  THE  FIRST  EDGE 

4 

114 

115 

115 

c 

+ 

JS(5.IS) 

-  lifilEX  OF  THE  SECOND  EDGE 

4 

115 

116 

116 

c 

4- 

JS(6.IS) 

-  INDEX  OF  THE  THIW)  EDGE 

4 

116 

117 

117 

c 

+ 

4 

117 

118 

118 

c 

+ 

THE  EDGES  ARE  ARRANGED  IN  COUNTER-i CLOCKWISE 

4 

118 

119 

119 

c 

4 

FASHION.  EDGE  ONE  RUNS  FROM  VERTEX-ONE  TO 

4 

119 

120 

120 

c 

4 

VERTEX-TWO  ETC..  THE  SIGN  OF  JS(4-6,IS)  INDICATES 

4 

120 

121 

121 

c 

4 

IF  EDGE  DATA 

,  IS  STORED  THE  SAME  HAY.  IF  IT  IS 

4 

121 

122 

122 

c 

4 

JS>0  AND  IT 

IS  REVERSED  JS<0 

4 

122 

123 

123 

c 

4 

4 

123 

124 

124 

c 

4 

XS(1,IS) 

-  X  POSITION  OF  SIDE  POINT 

4 

124 

125 

125 

c 

4 

XS(2.IS) 

-  Y  POSITION  OF  SIDE  POINT 

4 

125 

126 

126 

c 

4 

XS(3.IS) 

-  AREA  OF  SIDE 

4 

126 

127 

127 

c 

4 

4 

127 

128 

128 

c 

4 

4 

128 

129 

129 

c 

444444444444444444444+444+444444444444444444444444+444444444 

129 

130 

130 

c 

130 

111 

Cmmm 

1 J  I 

132 

132 

c 

132 

133 

133 

c  - 

-  DEFINITION  FOR  ALL  HYDRODYNAMIC  QUANTITIES  . 

133 

134 

134 

c 

134 

135 

135 

c — 

135 

136 

136 

c 

I 

136 

137 

137 

c 

USE  OF  PARAMETERS: 

I 

137 

138 

138 

c 

1 

138 

139 

139 

c 

MHQ  -  MAXIMUM  NUMBER  OF  HYDRO  QUANTITIES.  1 

139 

140 

140 

c 

I 

140 

141 

141 

c 

I 

141 

142 

142 

c — 

. 1 

142 

143 

143 

c 

143 

1  AA 

144 

145 

145 

c 

145 

146 

146 

include  'onshOO.h* 

146 

147 

147 

include  'chydOO.h' 

147 
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148 

149 

150 

151 

1  c? 

148 

149 

150 

151 

ICO 

c 

C— 

include  'cintOO.h' 
include  ‘cphslO.h' 
include  'cphs20.h’ 

148 

149 

150 

151 

i  Sc 

153 

153 

c 

153 

154 

154 

NAMELIST  /DATA/  ICONO.ICONP.ITRIGR.IOPTN, 

154 

155 

155 

XMCHIN.RIN.PIN.ALfA.HRGG,  IHRN.NTIME.mUMP.NOUMP, 

155 

156 

156 

KOUHP, lOSPCL, lOPLFT, lOPRCN, lOPORD, lOPBYN, lAXSYH, 

156 

157 

157 

lOPEOS.MPRTCL, lOPINT, lOPADO, lOPDEL.AREADO.AREDEL. 

157 

158 

158 

IWINDW,ISTATC 

158 

159 

159 

C 

159 

160 

160 

c— 

160 

161 

161 

c 

161 

162 

162 

c 

4 

162 

163 

163 

c 

—  MEANING  OF  NAMELIST  VARIABLES: 

r 

i 

163 

164 

164 

c 

I 

164 

165 

165 

c 

ICOND  >  0  READ  INPUT  GRID  FOR  A  NEW  RUN 

I 

165 

166 

166 

c 

-  1  READ  THE  GRID  FROM  PREVIOUS  RUN 

I 

166 

167 

167 

c 

ICONP  -  0  PRIMITIVE  VARIABLES  SET  TO  ZERO 

I 

167 

168 

168 

c 

-  1  VARIABLES  READ  FROM  PREVIOUS  RUN 

I 

168 

169 

169 

c 

ITRIGR  -  0  USING  THE  INPUT  GRID  AS  THE  INITIAL  GRID 

I 

169 

170 

170 

c 

>  1  THE  INPUT  GRID  TRIPLED  BY  ADDING  AN  EXTRA  VERTEX  IN 

I 

170 

171 

171 

c 

EACH  TRIANGLE 

I 

171 

172 

172 

c 

lOPTN  -  1  SOLUTION  FOR  STEADY  STATE. 

I 

172 

173 

173 

c 

-  2  SOLUTION  FOR  TRANSIENT  PHENOMENA 

I 

173 

174 

174 

c 

I 

174 

175 

175 

c 

XMCHIN  -  FOR  TRANSIENT  SHOCK  CALCULATIONS! I0PTN-2)THIS  VARIABLE 

I 

175 

176 

176 

c 

IS  USED  TO  SPECIFY  THE  UPSTREAM  MACH  NUMBER 

I 

176 

177 

177 

c 

I 

177 

178 

178 

c 

RIN  -  THE  AMBIENT  DENSITY  IN  THE  CHAWER 

I 

178 

179 

179 

r 

I 

179 

180 

130 

c 

PIN  -  THE  AMBIENT  PRESSURE  IN  THE  CHAMBER 

I 

180 

181 

181 

c 

1 

181 

182 

182 

c 

APPLYING  NORMAL  SHIKIK  HAVES  RELATIONS  FOR  AN  ADIABATIC 

I 

182 

183 

183 

c 

FLOW  RELATION  STATIC-PRESSURE  RATIO  ACROSS  THE  SHOCK 

I 

183 

184 

184 

c 

AS  HELL  AS  THE  DENSITY  RATIO  AND  MACH  NUMBER  RATIO 

I 

184 

185 

185 

c 

ARE  COMPUTED  TO  SET  CORRECTLY  THE  CONDITION  AT  THE 

I 

185 

186 

186 

c 

INLET  EDGES!  EDGE  BOUNDARY  8  )  OF  THE  COMPUTATIONAL 

I 

186 

187 

187 

c 

DOMAIN 

1 

187 

188 

188 

c 

I 

188 

189 

189 

c 

FOR  STEADY  STATE  SHOCK  CALCULATIONS! I0PTN-1)THIS  IS  THE 

I 

189 

190 

190 

c 

INFLOW  MACH  NUMBER.  ALL  DOMAIN  VELXITIES  ARE  THEN 

1 

190 

191 

191 

c 

INITIALIZED  WITH  THIS  VALUE. 

I 

191 

192 

192 

c 

I 

192 

193 

193 

c 

RIN  -  THE  AMBIENT  DENSITY  AT  INFINITY 

I 

193 

194 

194 

c 

l 

194 

195 

195 

c 

PIN  -  THE  AMBIENT  PRESSURE  AT  INFINITY 

I 

195 

196 

196 

c 

I 

196 

197 

197 

c 

ALL  COMPUTATIONAL  DOMAIN  ARE  THEN  INITIALIZED  WITH 

I 

197 

198 

198 

c 

THOSE  VALUES. 

1 

198 

199 

199 

c 

I 

199 

200 

200 

c 

ALFA  -  THE  DIRECTION  OF  INFLOW  IN  DEGREES  RELATIVE  TO  A  RIGHT 

I 

200 

201 

201 

c 

HAND  COORDINATE  SYSTEM.  ALFA-O  MEANS  FLOW  FROM  LEFT  TO 

1 

201 

202 

202 

c 

RIGHT.  ALFA-90  MEANS  FROM  BOTTWl  TO  TOP.  ALFA-90  OR  270 

I 

202 

203 

203 

c 

MEANS  FLOW  FROM  TOP  TO  BOTTOM  ETC. 

I 

203 

204 

204 

c 

HRGG  -  INITIAL  GAMMA  IN  THE  EQUATION  OF  STATE 

I 

204 

205 

205 

c 

THE  CODE  RUNS  USING  THE  AIR  EQUATION  AS  A  BASELINE  AND 

I 

205 

206 

206 

c 

SHOULD  BE  MODIFIED  IF  SOMETHING  ELSE  IS  DESIRED. 

I 

206 

207 

207 

c 

IHRN  -  NUMBER  OF  ITERATIONS  IN  THE  RIEHANN  SOLVER  TO  FIND  THE 

I 

207 

208 

208 

c 

DIAPHRAGM  SOLUTION. !3  to  4  SHOULD  BE  USED  AND  INCREASED 

I 

208 

209 

209 

c 

ONLY  FOR  HIGH  MACH  NUMBER  CASES). 

I 

209 

210 

210 

c 

1 

210 

211 

211 

c 

NTIME  -  NUMBER  OF  REPEATS  FOR  THE  INTEGRATION/REFINEMENT/ 

I 

211 

212 

212 

c 

COARSENING  SEQUENCE 

I 

212 

213 

213 

c 

AN  OUTPUT  DUMP  IS  DONE  EVERY  SEQUENCE  REPEAT. 

I 

213 

214 

214 

c 

MDUMP  -  HUMBER  OF  OUTERMOST  LOOP  ITERATIONS  IN  THE  CALCULATION 

I 

214 

215 

215 

c 

WHERE  COARSENING  OF  THE  GRID  IS  PERFORMED  EVERY  SEQUENCE 

1 

215 

216 

216 

c 

REPEAT. 

I 

216 

217 

217 

c 

HOUMP  -  NUMBER  OF  OUTER  LOOP  ITERATIONS  IN  THE  CALCULATION  WHERE 

1 

217 

218 

218 

c 

REFINING  IS  DONE  EVERY  SEQUENCE  REPEAT  WITHOUT  COARSENINGI 

218 

219 

219 

c 

KOUMP  -  NUMBER  OF  ITERATIONS  PERFORMED  WITH  NO  REFINEMENT  OR 

I 

219 

220 

220 

c 

COARSENING.  IT  IS  THE  INNER  LOOP  OF  THE  CALCULATION. 

I 

220 

221 

221 

c 

IF  KDUMP-0  IS  READ  IK.  KDUMP  HILL  BE  SET  BY  THE 

I 

221 
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222 

222 

C 

CODE  AUTOMATICALLY  ACCORDING  TO  THE  VARIABLE  AREADD. 

I 

223 

223 

C 

I 

224 

224 

C 

+  0  NTIME  -  DUMPING  DATA 

1 

225 

225 

C 

I 

1 

226 

226 

C 

I  *  0  HDUMP  -  COARSENING 

1 

227 

227 

c 

I  1 

I 

228 

228 

c 

11+  0  NDUMP  -  REFINENEHENT 

1 

229 

229 

c 

I  I  1 

I 

230 

230 

c 

111+  0  KOUMP  -  INTEGRATION 

I 

231 

231 

c 

I  I  I  I 

1 

232 

232 

c 

I  I  I  I 

I 

233 

233 

c 

I  I  1  +  0 .  INNER  LOOP 

I 

234 

234 

c 

I  I  I 

I 

235 

235 

c 

1  I  +  0 . OUTER  LOOP 

I 

236 

236 

c 

I  I 

I 

237 

237 

c 

I  +  0 . OUTERMOST  LOOP 

I 

238 

238 

c 

I 

I 

239 

239 

c 

+  0 . DUMPING  LOOP 

I 

240 

240 

c 

I 

241 

241 

c 

lOSPCL  ■  0  NOT  USING  REDEFNITION  OF  POINTS  ON  THE  BOUNDARY 

I 

242 

242 

c 

>  1  USING  REDEFENITION  OF  POINTS  ON  THE  BOUNDARY 

I 

243 

243 

c 

lOPLFT  -  0  THE  COMPUTATION  OF  LIFT  DRAG  AND  MOMENT  TURNED  OFF 

1 

244 

244 

c 

=  1  THE  COMPUTATION  OF  LIFT  DRAG  AND  MOMENT  TURNED  ON 

I 

245 

245 

c 

lOPRCN  -  0  A  GLOBAL  SHAPING  {  RECONNECTION  )  PROCEDURE  IS  OFF 

I 

246 

246 

c 

-  1  A  GLOBAL  SHAPING  (  RECONNECTION  )  PROCEDURE  IS  ON 

I 

247 

247 

c 

lOPORD  •  1  THE  CODE  HILL  RUN  FIRST  ORDER  GODUNOV  METHOD 

1 

248 

248 

c 

=  2  THE  CODE  HILL  RUN  SECOND  ORDER  GODUNOV  METHOD 

I 

249 

249 

c 

lOPBYN  -  0  NO  BUOYANCY  EFFECT  ARE  COMPUTED 

1 

250 

250 

c 

=  1  BUOYANCY  EFFECT  IN  THE  Y  DIRECTION  ARE  COMPUTED 

I 

251 

251 

c 

lAXSYH  =  0  THE  CODE  HILL  RUN  IN  A  PURE  THO  DIMENSIONAL  MODE 

I 

252 

252 

c 

-  1  THE  CODE  HILL  RUN  IN  AN  AXI  SYMMETRICAL  MODE  (X  AXIS) 

I 

253 

253 

c 

.  2  THE  CODE  HILL  RUN  IN  AN  AXI  SYMMETRICAL  MODE  (Y  AXIS) 

I 

254 

254 

c 

lOPEOS  -  0  THE  CODE  HILL  RUN  HITH  CONSTANT  GAMA 

I 

255 

255 

c 

=  1  THE  CODE  HILL  RUN  HITH  VARIABLE  GAMA  USING  EQUATION 

1 

256 

256 

c 

OF  STATE  FOR  AIR 

1 

257 

257 

c 

I 

258 

258 

c 

MPRTCL  -  0  NO  PARTICLE  TRACING 

I 

259 

259 

c 

.  1  THE  CODE  HILL  TRACE  PARTICLES 

I 

260 

260 

c 

lOPlNT  •  0  NOT  REFINING  INITIALY  THE  EDGE  BOUNDARY  NO  8 

I 

261 

261 

c 

-  1  REFINING  INITIALY  THE  EDGE  BOUNDARY  NO  8 

I 

262 

262 

c 

lOPADO  >  0  THE  REFINEMENT  PROCEDURE  IS  TURNED  OFF 

I 

263 

263 

c 

=  1  THE  REFINEMENT  PROCEDURE  IS  TURNED  ON 

I 

264 

264 

c 

lOPDEL  •  0  THE  COARSENING  PROCEDURE  IS  TURNED  OFF 

I 

265 

265 

c 

-  1  THE  COARSENING  PROCEDURE  IS  TURNED  ON 

I 

266 

266 

c 

AREADD  -  SPECIFY  THE  HINIHUH  VALUE  THAT  A  TRIANGLE  SHOULD  HAVE 

I 

267 

267 

c 

AFTER  REFINEMENT  AS  A  FRACTION  OF  AVERAGE  TRIANGLE  AREA 

I 

268 

268 

c 

AREDEL  =  SPECIFY  THE  MAXIMUM  VALUE  THAT  A  TRIANGLE  SHOULD  HAVE 

I 

269 

269 

c 

AFTER  COARSENING  AS  A  FRACTION  OF  AVERAGE  TRIANGLE  AREA 

I 

270 

270 

c 

I 

271 

271 

c 

IHINDH  -  0  NO  RESTRICTION  ON  THE  REGION  FOR  REFINING  THE  GRID 

1 

272 

272 

c 

>  1  SETTING  A  HINOOH  FOR  REFINING  THE  GRID 

I 

273 

273 

c 

ISTATC  =  0  THE  ADAPTATION  HILL  BE  DONE  OH  A  MOVING  HAVE 

I 

274 

274 

c 

-  1  THE  ADAPTATION  HILL  BE  DONE  ON  A  STEADY  STATE 

I 

275 

275 

c 

CONDITION 

I 

276 

276 

c 

I 

277 

277 

c — 

•I 

278 

278 

c 

279 

279 

CHARACTER*15  ZHEADER.HNAME.MVNAME 

280 

280 

CHARACTER*!  FILLCH 

281 

281 

INTEGER  HUMQUAOS 

282 

282 

c 

283 

283 

c  - 

-  OPEN  ALL  FILES  FOR  THIS  RUN  . 

284 

284 

c 

285 

285 

OPEN(  4,FILE=’naca4'  . FORM-’ UNFORMATTED' ) 

286 

286 

OPEN (88 . F I LE- ' naca82 ’ , FORM- ’ UNFORMATTED ' ) 

287 

287 

OPEN(  8.FILE-’naca2’  , FORM- ’ UNFORMATTED ' ) 

288 

288 

OP£H(  9,FILE='naca3’  , FORM- ’ UNFORMATTED ’ ) 

289 

289 

OPEN (  2 , F I LE- ' data. d ■ , FORM- ’ FORMATTED ' ) 

290 

290 

OPEN ( 16 , F I LE- ' wedge45 . zon ’ . STATUS- ' OLD ’ ) 

291 

291 

OPEN ( 18 . F I LE- ' nacaa ■  , FORM- ’ UNFORMATTED ' ) 

292 

292 

c 

r>o^ 

OO'i 

294 

294 

c 

295 

295 

c  - 

-  DEFAULT  VALUES  FOR  INPUT  DATA  . 

page  i 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 
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296 

296 

C 

296 

297 

297 

THIRD  -  1.  /  3. 

297 

298 

298 

C 

298 

299 

299 

ICOfID  -  0 

299 

300 

300 

ICONP  -  0 

300 

301 

301 

ITRIGR  -  0 

301 

302 

302 

lOPTN  -  1 

302 

303 

303 

c 

303 

304 

304 

XMCHIN  .  25. 

304 

30S 

305 

RIH  -  1. 

305 

306 

306 

PIN  •  1. 

306 

307 

307 

c 

307 

308 

308 

ALFA  -  0. 

308 

309 

309 

:iRGG  -  1.4 

309 

310 

310 

IHRN  >  4 

310 

311 

311 

NTIME  -  1 

311 

312 

312 

WllIMP  -  80 

312 

313 

313 

MOUMP  -  1 

313 

314 

314 

KOUHP  -  0 

314 

315 

315 

lOSPCL  -  0 

315 

316 

316 

lOPLFT  -  0 

316 

317 

317 

lOPRCN  •  0 

317 

316 

318 

lOPORO  -  2 

318 

319 

319 

lOPBYN  •  0 

319 

320 

320 

lAXSYH  -  0 

320 

321 

321 

lOPEOS  -  0 

321 

322 

322 

c 

322 

323 

323 

MPRTCL  -  0 

323 

324 

324 

lOPINT  -  0 

324 

325 

325 

lOPAOO  •  0 

325 

326 

326 

lOPOEL  -  0 

326 

327 

327 

AREADO  •  0.005 

327 

328 

328 

AREDEL  -  1. 

328 

329 

329 

IHINOW  -  0 

329 

330 

330 

I STATE  -  0 

330 

331 

331 

c 

331 

332 

332 

c  — 

READ  THE  INPUT  DATA . . 

332 

333 

333 

c 

333 

334 

334 

READ  (2, DATA) 

334 

335 

335 

c 

335 

336 

336 

c  ™ 

PRINTOUT  THE  RUN  PARAMETERS . . 

336 

337 

337 

c 

337 

338 

338 

PRINT  101,  ICONO, ICONP, ITRIGR. lOPTN, 

338 

339 

339 

.  XHCHIN.RIN.PIN.ALFA.HRGG, IHRN. NTIME, HOUMP.NOUMP, 

339 

340 

340 

.  KDUMP, lOSPCL, lOPLFT, lOPRCN, lOPORD. lOPBYN, lAXSYM, 

340 

341 

341 

.  lOPEOS.MPRTCL.IOPINT.IOPAOD.IOPDEL.AREADD, AREDEL. 

341 

342 

342 

IWINDH.ISTATC 

342 

343 

343 

c 

343 

344 

344 

c  — 

SET  RUN  CONDITIONS  ANO  PRINTOUT  TO  CONSOLE  . 

344 

345 

345 

c 

345 

346 

346 

XREADD  -  1.  /  AREADO 

346 

347 

347 

NAREAD  -  ALOG(  XREADD  )  /  ALOG(  3.  )  +  1 

347 

348 

348 

IF(  NAREAD  .  LT  .  3  )  NAREAD  -  3 

348 

349 

349 

IF(  NAREAD  .  GT  .  5  )  NAREAD  -  5 

349 

350 

350 

IF{  ISTATC  .  EQ  .  1  )  NAREAD  »  3 

350 

351 

351 

PRINT*. AREADO.AREOEL.NAREAD 

351 

352 

352 

PRINT  *  .ICOND. ICONP 

352 

353 

353 

c 

353 

354 

354 

NPT  -  0 

354 

355 

355 

IJKINT  -  3 

355 

356 

356 

IF(  ICONO  .  EQ  .  0  )  THEN 

356 

357 

357 

DO  122  IS  -  1  ,  H5H 

357 

358 

358 

KSDELT(  IS  )  -  0 

358 

359 

359 

122 

CONTINUE 

359 

360 

360 

END  IF 

360 

361 

361 

HYDMOM(  1  )  -  0. 

361 

362 

362 

HYIWOm  2  )  -  0. 

362 

363 

363 

HYDMOMt  4  )  -  0. 

363 

364 

364 

C 

364 

365 

365 

DO  124  IK  -  1  .  HBP 

365 

366 

366 

GAMAG(  IK  )  -  HRGG 

366 

367 

367 

124 

CONTINUE 

367 

368 

368 

C 

368 

• 
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370 

370 

C 

370 

371 

371 

C  - 

.  READ  IN  THE  MESH  DATA . . 

371 

372 

372 

c 

372 

373 

373 

C(1) 

!>»» 

373 

374 

374 

IF(  ICONO  .  EQ  .  0  )  THEN 

374 

375 

375 

IF(  ICONP  .  EQ  .  1  )  CALL  UPGRAD 

375 

A 

376 

376 

c 

376 

377 

377 

c — 

377 

378 

378 

C  A 

"SMART"  FORMAT  MESH  FILE  IS  READ.  THE  FILE  IS  SELECTED  BY  THE 

378 

379 

379 

C  NORMAL  MACINTOSH  FILE  DIALOG  BECAUSE  OF  THE  IN  PLACE  OF  THE 

379 

380 

380 

C  FILE  NAME.  VERTICES  OF  EACH  TRIANGLE  ARE  FORMED  FROM  THE  INPUT. 

380 

381 

381 

C — 

381 

382 

382 

READ  (16,900)  ZHEADER 

382 

383 

383 

900 

F0RHAT(A15) 

383 

• 

384 

384 

IF  (ZHEADER  .NE.  ■SMaRT-Z-T-(003)')  THEN 

384 

385 

385 

C— 

.  THIS  ROUTINE  CANNOT  READ  ANY  OTHER  INPUT 

385 

386 

386 

PRINT  *.  'MESH  FILE  IS  HOT  THE  CORRECT  KIND  OR  VERSION* 

386 

387 

387 

CALL  EXIT 

387 

388 

388 

ENOIF 

388 

389 

389 

READ  (16,910)  FILLCH,NV.NVMK 

389 

390 

390 

PRINT  •,NV,NVMK 

390 

391 

391 

READ  (16,910)  FILLCH,NE.NEMK 

391 

• 

392 

392 

PRINT  •,NE,NEMK 

392 

393 

393 

READ  (16,910)  FILLCH,NS 

393 

394 

394 

PRINT  *,HS 

394 

395 

395 

READ  (16,910)  FILLCH,NUMQUADS 

395 

396 

396 

PRINT  *,NUMOUADS 

396 

397 

397 

910 

F0RMAT(A1,2I7) 

397 

398 

398 

READ  (16,920)  riLLCH,N2MK,NSMK,NNHK 

398 

399 

399 

PRINT  *,NZHK,NSMK,NNMK 

399 

• 

400 

400 

920 

F0RMAT(A1,1X,3I3) 

400 

401 

401 

IF  (NV  .GT.  MVM)  THEN 

401 

402 

402 

C — 

.  CHECK  NODE  (I.E.,  VERTEX)  STORAGE  SIZE 

402 

403 

403 

PRINT  1020,NV,MVH,NVMK 

403 

404 

404 

1010 

F0RMAT(1X,*T00  MANY  NODES.  ',19.'.  MAX  -  ’,15) 

404 

405 

405 

CALL  EXIT 

405 

406 

406 

EHDIF 

406 

407 

407 

IF  (NE  .GT.  MEM)  THEN 

407 

• 

408 

408 

C — 

.  CHECK  SIDE  (I.E.,  EDGE)  STORAGE  SIZE 

408 

409 

409 

PRINT  1020.NE.HEM.NEMK 

409 

410 

410 

1020 

FORMATdX.’TOO  MANY  SIDES,  ’.ig.*,  MAX  -  *,15) 

410 

411 

411 

CALL  EXIT 

411 

412 

412 

ENOIF 

412 

413 

413 

IF  (NS  .GT.  MSM)  THEN 

413 

414 

414 

c — 

.  CHECK  ZONE  (I.E.,  SIDE  OR  TRIANGLE)  STORAGE  SIZE 

414 

415 

415 

PRINT  1030, NS. MSM 

415 

• 

416 

416 

1030 

FORMAT (IX, 'TOO  MANY  ZONES.  *.19, *.  MAX  -  *,I5) 

416 

417 

417 

CALL  EXIT 

417 

418 

418 

ENDIF 

418 

419 

419 

IF  (NUMQUAOS  .GT.  0)  THEN 

419 

420 

420 

c — 

.  CHECK  FOR  QUADRILATERALS  IN  THE  INPUT 

420 

421 

421 

PRINT  1040 

421 

422 

422 

1040 

F0RMAT(1X,’N0  QUADRILATERALS  ARE  ALLOWED.*) 

422 

423 

423 

CALL  EXIT 

423 

• 

424 

424 

ENDIF 

424 

425 

425 

c — 

.  READ  MARKER  DEFINITIONS 

425 

426 

426 

c 

THE  FOLLOWING  JUST  READS  THE  VARIABLES  WITHOUT  STORING 

426 

427 

427 

c 

THEN  INTO  PERMANENT  ARRAYS.  EFFECTIVELY  JUST  READING 

427 

428 

428 

c 

PAST  THE  MARKER  DEFINTION  INFORMATION. 

428 

429 

429 

00  21  NZM  -  l.NZHK 

429 

430 

430 

READ  (16,1050)  NHN,MNAME,KVAL 

430 

431 

431 

DO  20  HZMV  -  l.NVAL 

431 

• 

432 

432 

READ  (16,1050)  NMV.MVNAME 

432 

433 

433 

20 

CONTINUE 

433 

434 

434 

21 

CONTINUE 

434 

435 

435 

1050 

F0RMAT(3X,IZ,1X.A15,1X.IZ) 

435 

436 

436 

DO  31  NZM  •  l.NSMK 

436 

437 

437 

READ  (16,1050)  NMN , MNAME , NVAL 

437 

438 

438 

DO  30  HSMV  -  1,NVAL 

438 

439 

439 

READ  (16,1050)  NMV.MVNAME 

439 

• 

440 

440 

30 

CONTINUE 

440 

441 

441 

31 

CONTINUE 

441 

442 

442 

W)  41  NZM  «  l.NHMK 

442 

443 

443 

READ  (16,1050)  NMN, MNAME, NVAL 

443 
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444 

444 

00  40  NNMV  -  l.NUAL 

444 

445 

445 

READ  {16.1050)  NMV.MVNAME 

445 

446 

446 

40 

CONTINUE 

446 

447 

447 

41 

CONTINUE 

447 

448 

448 

c— . 

.  READ  IN  VERTEX  INFORMATION 

448 

449 

449 

DO  51  IV  -  1  ,  NV 

449 

450 

450 

IS  -  IV 

450 

451 

451 

READ  (16.1210)  IK.XV(1.IS).XV(2,IS) 

451 

452 

452 

JV(1,IV)  -  0 

452 

453 

453 

C 

INITIALIZE  ANY  VERTEX  MARKER  STORAGE,  I.E.  JV(*,1V) 

453 

454 

454 

51 

CONTINUE 

454 

455 

455 

PRINT  1060, NV 

455 

456 

456 

1060 

FORMATdS,'  NODES  (VERTICES)  READ  IN.') 

456 

457 

457 

1210 

F0RMAT(I7.E15.9.1X.E15.9) 

457 

458 

458 

IF  (NVMK  .GT.  0)  THEN 

458 

459 

459 

c— . 

.  READ  IN  VERTEX  MARKER  INFORMATION 

459 

460 

460 

DO  55  IV  -  l.NVMK 

460 

461 

461 

READ  (16,*)  1XV,MV1.MV2,MV3.MV4 

461 

462 

462 

JV(1,IXV)  -  MVl 

462 

463 

463 

C 

STORE  THESE  MARKERS  IN  JV(*,  IXV)  AS  DESIRED 

463 

464 

464 

55 

CONTINUE 

464 

465 

465 

PRINT  1070, NVMK 

465 

466 

466 

1070 

F0RMAT(I5,'  NODE  (VERTEX)  MARKERS  READ  iN,') 

466 

467 

467 

ENOIF 

467 

468 

468 

c— . 

.  READ  IN  EDGE  INFORMATION  (  EDGES  OF  TRIANGLES). 

468 

469 

469 

DO  60  IE  •  1  .  NE 

469 

470 

470 

IS  -  IE 

470 

471 

471 

READ  (16,*)  1J,J£(1,IS),JE(2.1S),JE{3.IS).JE(4,1S) 

471 

472 

472 

C 

INITIALIZE  ANY  MARKER  STORAGE. 

472 

473 

473 

JE(5,I£)  -  0 

473 

474 

474 

60 

CONTINUE 

474 

475 

475 

PRINT  1080, NE 

475 

476 

476 

1080 

F0RHAT(I5,'  SIDES  (EDGES)  READ  IN,') 

476 

477 

477 

IF  (NEHK  .GT.  0)  THEN 

477 

478 

478 

c-.. 

.  READ  IN  EDGE  MARKER  INFORMATION 

478 

479 

479 

DO  65  IV  -  l.NEMK 

479 

480 

480 

READ  (16,*)  IX£,HV1,MV2,MV3.MV4 

480 

481 

481 

0E(5.IXE)  -  MVl 

481 

482 

482 

65 

CONTINUE 

482 

483 

483 

PRINT  1090, NEHK 

483 

484 

484 

1090 

FORMATdS,'  SIDE  (EDGE)  MARKERS  READ  IN.') 

484 

485 

485 

ENDIF 

485 

486 

486 

c-.. 

.  READ  IN  SIDE  (TRIANGLE)  INFORMATION. 

486 

487 

487 

DO  81  IS  -  1  .  NS 

487 

488 

488 

IE  -  IS 

488 

489 

489 

READ  (16,1100)  IJ,  MV1,HV2,MV3,MV4, 

489 

490 

490 

1V1.IU1.IV2,ID2,IV3,1D3 

490 

491 

491 

1100 

FORMAT  (17,413.3(17.12)) 

491 

492 

492 

JS(4.IE)  =>  IVl  *  101 

492 

493 

493 

JS(5.IE)  >  1V2  *  102 

493 

494 

494 

JS(6,IE)  «  IV3  *  103 

494 

495 

495 

c 

JS(7,IE)  -  MVl 

495 

496 

496 

c 

496 

497 

497 

c 

STORE  THESE  MARKERS  IN  JS(*,  IS)  AS  DESIRED 

497 

498 

498 

c 

498 

499 

499 

81 

CONTINUE 

499 

500 

500 

PRINT  1110, NS 

500 

501 

501 

1110 

FORMATdS,’  ZONES  (SIDES)  READ  IN.’) 

SOI 

502 

502 

CLOSE  (16) 

502 

503 

503 

c— . 

.  FORM  VERTEX  INDICES  FOR  EACH  SIDE  (TRIANGLE). 

503 

504 

504 

DO  85  IS  -  1  ,  NS 

504 

505 

505 

DO  85  J  *  1  ,  3 

505 

506 

506 

IE  -  JS(  J  *  3  ,  IS  ) 

506 

507 

507 

lEABS  -  IABS(  IE  ) 

507 

508 

508 

IF  (  IE  .  GT  ,  0  )  THEN 

508 

50" 

509 

JS(  J  ,  IS  )  -  JE(  1  .  lEABS  ) 

509 

510 

510 

ELSE 

510 

5i: 

511 

JS(  J  .  IS  )  -  JE(  2  .  IEA8S  ) 

511 

512 

512 

END  IF 

512 

513 

513 

85 

CONTINUE 

513 

514 

514 

C 

514 

516 

516 

C 

516 

517 

517 

IFdOSPCL.EQ.DTHEN 

517 
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518 

518 

C 

518 

519 

519 

C  — 

SPECIAL  CASE  FOR  HALF  CIRCLE  BOUNDARY  DATA . - . 

519 

520 

520 

c 

520 

521 

521 

00  382  IE  -  1  ,  NE 

521 

522 

522 

IJE5  -  JE(  5  ,  IE  ) 

522 

523 

523 

IF(  IJE5  .  EQ  .  6  )  THEN 

523 

524 

524 

c 

524 

525 

525 

IVl  -  JE(  1  .  IE  ) 

525 

526 

526 

IV2  -  JE(  2  ,  IE  ) 

526 

527 

527 

c 

527 

528 

528 

XXSl  -  XV{  1  .  IVl  ) 

528 

529 

529 

YYSI  -  XV(  2  .  IVl  ) 

529 

530 

530 

XXS2  -  XV(  1  .  IV2  ) 

530 

531 

531 

YYS2  -  XV{  2  .  IV2  ) 

531 

532 

532 

OXX  -  XXSl  -  1.50 

532 

533 

533 

ANGL  -  1.570796327 

533 

534 

534 

IF(  OXX  .  NE  .  0  )  ANGL  -  ATAN2(  YYSI  ,  DXX  ) 

534 

535 

535 

XV{  1  ,  IVl  )  -  C0S(  ANGL  )  +  1.5 

535 

536 

536 

XV(  2  ,  IVl  )  -  SIN(  ANGL  ) 

536 

537 

537 

OXX  -  XXS2  -  1.50 

537 

538 

538 

ANGL  -  1.570796327 

538 

539 

539 

IF(  DXX  .  NE  .  0  )  ANGL  -  ATAN2(  YYS2  .  OXX  ) 

539 

540 

540 

XV(  1  .  IV2  )  -  C0S(  ANGL  )  +  1.5 

540 

541 

541 

XV(  2  ,  IV2  )  .  SIN(  ANGL  ) 

541 

542 

542 

c 

XXS  -  XV(  1  ,  IVl  )  •  1.008930411364 

542 

543 

543 

c 

YYS  -  .6  *  (  .2969  *  SQRT(  XXS  )  -  .126  *  XXS  - 

543 

544 

544 

c 

.3516  *  XXS  *  XXS  +  .2843  *  XXS  •  XXS  *  XXS  - 

544 

545 

545 

c 

.1015  *  XXS  *  XXS  *  XXS  *  XXS  ) 

545 

546 

546 

c 

XV(  2  .  IVl  )  =.  SIGN!  1.  .  XV(  2  .  IVl  )  )  *  YYS 

546 

547 

547 

c 

IF(  XXS  .  GT  .  .3  .  AND  .  XXS  .  LT  .  .7  )  JV(  1  .  IVl  )  -  0 

547 

548 

548 

c 

548 

549 

549 

c 

XXS  -  XV(  1  ,  IV2  )  »  1,008930411364 

549 

550 

550 

c 

YYS  -  .6  *  (  .2969  *  SQRT(  XXS  )  -  .126  *  XXS  - 

550 

551 

551 

c 

.  .3516  *  XXS  *  XXS  +  .2843  *  XXS  •  XXS  *  XXS  - 

551 

552 

552 

c 

.1015  *  XXS  •  XXS  •  XXS  *  XXS  ) 

552 

553 

553 

c 

XV(  2  .  IV2  )  -  SI6N(  1.  ,  XV(  2  .  IV2  )  )  •  YYS 

553 

554 

554 

c 

1F(  XXS  .  GT  .  .3  .  AND  .  XXS  .  LT  .  .7  )  JV(  1  ,  1V2  )  -  0 

554 

555 

555 

c 

IF(  X£(  1  .  IE  ).GT.  .2  )  CALL  OISECT  (  IE  .  IDONE  ,  IJKINT  ) 

555 

556 

556 

END  IF 

556 

557 

557 

382 

CONTINUE 

557 

558 

558 

END  IF 

558 

559 

559 

C 

559 

560 

561 

561 

C 

561 

562 

562 

C 

562 

563 

563 

c  — 

CALCULATE  GRID  QUANTITIES  THROUGH  GEOHTR  . 

563 

564 

564 

c 

564 

565 

565 

CALL  UPDATE 

565 

566 

566 

c 

566 

‘id? 

568 

568 

c 

568 

569 

569 

c  — 

REFINE  THE  INITIAL  GRID  BY  A  FACTOR  OF  THREE  IF  CALLED  FOR  . 

569 

570 

570 

c 

570 

571 

571 

c»»» 

571 

572 

572 

IF(  ITRIGR  .  EO  .  1  )  FHEN 

572 

573 

573 

NSS  .  NS 

573 

574 

574 

00  110  IS  •  1  ,  NSS 

574 

575 

575 

CALL  VERCEN(  IS  ) 

575 

576 

576 

110 

CONTINUE 

576 

577 

577 

NEE  -  NE 

577 

578 

578 

DO  120  IE  -  1  .  NEE 

578 

575 

579 

IF(  JE(  5  ,  IE  )  .  NE  .  0  )  THEN 

579 

580 

580 

CALL  OISECT  (  IE  .  IDONE  .  IJKINT  ) 

580 

581 

581 

ENDIF 

581 

582 

582 

120 

CONTINUE 

582 

583 

583 

DO  130  IK  -  1  ,  3 

583 

584 

584 

PRINT*.NV.NE,NS.1K 

584 

585 

585 

00  130  IE  -  1  ,  NE 

585 

586 

586 

CALL  R£CNC(  IE  ,  IDONE  .  ITL  .  ITR  .  JA  ,  JB  .  JC  .  JO  ) 

586 

587 

587 

CALL  RECNCI  JA  ,  JAOONE  .  ITL  .  ITR  ,  JAA  .  JAB  .  JAC  ,  JAD  ) 

587 

588 

588 

CALL  RECNC(  JB  .  J800NE  .  ITL  .  ITR  .  JBA  ,  JB8  .  J8C  .  J8D  ) 

588 

589 

589 

CALL  RECNCI  JC  ,  JCDONE  .  ITL  .  ITR  ,  JCA  .  JCB  .  JCC  .  JCO  ) 

589 

590 

590 

CALL  RECNCI  JO  ,  JDOONE  .  ITL  ,  ITR  .  JDA  .  JOB  ,  JDC  ,  JDO  ) 

590 

591 

591 

130 

CONTINUE 

591 
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i 

592 

592 

END  IF 

592 

593 

593 

c««« 

593 

594 

594 

C 

594 

595 

595 

595 

596 

596 

C 

596 

597 

597 

C  —  FIND  AVERAGE  TRIANGLE  AREA  . 

597 

598 

598 

C 

598 

i 

599 

599 

SAREHN  -  1000000. 

599 

600 

600 

SAREMX  -  0. 

600 

601 

601 

SAREVG  •  0. 

601 

602 

602 

DO  105  IS  -  1  .  NS 

602 

603 

603 

AREASS  -  XS(  3  ,  IS  ) 

603 

604 

604 

SAREMX  -  AMAXM  SAREMX  ,  AREASS  ) 

604 

605 

605 

SAREHN  -  AMINK  SAREHN  .  AREASS  ) 

605 

i 

606 

606 

SAREVG  -  SAREVG  +  AREASS 

606 

607 

607 

105  CONTINUE 

607 

608 

608 

AVGARE  -  S/WEVG 

608 

609 

609 

SAREVG  -  SAREVG  /  NS 

609 

610 

610 

FHINVG  -  SAREVG  *  AREADO 

610 

611 

611 

SAREHN  •  SAREHN  /  SAREVG 

611 

612 

612 

SAREHX  -  SAREHX  /  SAREVG 

612 

613 

613 

PRINT*. SAREVG. SAREHX. SAREHN 

613 

i 

614 

614 

C 

614 

615 

615 

C  —  00  INITIAL  REFINEMENT  FOR  ALL  INFLOW  BOUNDARIES  DEFINED  . 

615 

616 

616 

C  BY  EDGES  THAT  CONTAIN  BOUNDARY  CONDITION  8( INFLOW) 

616 

617 

617 

C 

617 

618 

618 

1F(I0PINT.EQ.1)THEN 

618 

619 

619 

NOFDIV  -  2 

619 

620 

620 

CALL  IHTPTN(  AREADD  .  NOFOIV  .  1  .  LTRIG  ) 

620 

621 

621 

NOFOIV  -  2 

621 

M 

622 

622 

CALL  DYYPTN(  AREADD  .  NOFDIV  .  1  .  LTRIG  ) 

622 

623 

623 

NOFOIV  -  2 

623 

624 

624 

CALL  INTPTN(  AREADO  .  NOFOIV  .  2  .  LTRIG  ) 

624 

625 

625 

NOFDIV  -  2 

625 

626 

626 

CALL  DYYPTN(  AREADD  .  NOFDIV  .  2  .  LTRIG  ) 

626 

627 

627 

NOFDIV  -  2 

627 

628 

628 

CALL  INTPTN(  AREADO  .  NOFDIV  ,  3  .  LTRIG  ) 

628 

629 

629 

NOFDIV  -  2 

629 

« 

630 

630 

CALL  DYYPTN(  AREADD  .  NOFOIV  .  3  .  LTRIG  ) 

630 

631 

631 

C 

631 

632 

632 

PRINT*. NV.NE.NS 

632 

633 

633 

ENOIF 

633 

634 

634 

C 

634 

635 

635 

635 

636 

636 

C 

636 

637 

637 

C  —  FOR  IC0ND>0  READ  IN  PREVIOUS  RUN’S  DATA  . 

637 

1 

638 

638 

C 

638 

639 

639 

C(l)-— 

639 

640 

640 

ELSE 

64C 

641 

641 

CALL  UPGRAD 

641 

642 

642 

C  CALL  GEOMTR 

642 

643 

643 

IF(  ICONP  .  £Q  .  0  )  THEN 

643 

644 

644 

READ  (88)  RIN.PIN.RINL.PIHL.UVIN.UIN.VIN.TT. 

644 

645 

645 

HYDMOM(l) .HYDM0M(2) .HYDM0H(4) 

645 

i 

646 

646 

PRINT  *,  RIN.PIN.UVIN.UIN.VIN.TT 

646 

647 

647 

READ  (88)  ((HYDV(IS.IK).IK-1.5).IS-1.NS) 

647 

648 

648 

READ  (88)  ((HY0VVV(IV.IK).1K-1.5).IV=.1.NV) 

648 

649 

649 

READ  (88)  IJKIHT.(KSDELT(IS).IS-1.NS) 

649 

650 

650 

IF(  MPRTCL  .  EQ  .  1  ) 

650 

651 

651 

READ  (88)  NPT.((XPRTCL(IK.IPT).IK-1.2).1PT-1.NPT). 

651 

652 

652 

(IJKPRT(IPT).IPT-l.NPT) 

652 

653 

653 

EMDIF 

653 

{ 

654 

654 

ENDIF 

654 

655 

655 

C(l)«« 

655 

656 

656 

C 

656 

657 

657 

C  —  INITIALIZATION  OF  THE  PROBLEM  . 

657 

658 

658 

C 

658 

659 

659 

SARERV  -  1.  /  SAREVG 

659 

660 

660 

SARESQ  -  SORT(  SAREVG  ) 

660 

661 

661 

FHINVG  -  SAREVG  *  AREADO 

661 

1 

662 

662 

HRSM  -  l.E-8 

662 

663 

663 

HRGP  -  HRGG  +  1. 

663 

664 

664 

HRGH  •  HRGG  -  1. 

664 

665 

665 

CF  -  HRGP  1(2.*  HRGG  ) 

page  9 

665 

# 


Thu  Jul 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 
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666  C 

667 

668 

669 

670 

671  C 

672 

673  C 

674 

575 

676 

677 

678  C 

679 

680 

681 

682  C 

CQ**  r 
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JDUMP  .  9 

IF(KDUMP.eQ.0)THEN 

KDUHP  «  JDUMP 

ENOIF 

TT  -  0, 

PIRAD  «  ATAN(  1.  )  /  45. 

ALPHA  •  ALFA  *  PIRAD 

PRINT  *, ALFA, PIRAD, ALPHA 

PRINT  *,XHCHIN,PIN,R1N 

COSS  -  C0S(  ALPHA  ) 

SINN  -  SIN(  ALPHA  ) 

TANN  -  TAN(  ALPHA  ) 

page  10 

666 

66? 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

684 

684 

C 

684 

685 

685 

C  - 

-  SET  THE  INITIAL  VALUE  FOR  PRIMITIVE  VARIABLES  . 

.  685 

686 

686 

C 

686 

687 

687 

C(2) 

»» 

687 

688 

688 

IF(  lOPTN  .  EO  .  1  )  THEN 

688 

689 

689 

UVIN  -  XMCHIH  •  SqRT(  HRGG  *  PIN  /  RIN  ) 

689 

690 

690 

UIN  -  UVIN  *  COSS 

690 

691 

691 

VIN  -  UVIN  *  SINN 

691 

692 

692 

RIN  -  1. 

692 

693 

693 

PIN  -  1. 

693 

694 

694 

C 

694 

695 

695 

DO  IdO  is  -  1  ,  ns 

695 

696 

696 

HYOV(  IS  ,  1  )  -  RIN 

696 

697 

697 

HYOV(  IS  ,  2  )  -  0. 

697 

698 

698 

HYOV(  IS  .  3  )  -  0. 

698 

699 

699 

HY0V(  IS  ,  4  )  -  PIN 

699 

700 

700 

HYOV{  IS  .  5  )  -  HRGG 

700 

701 

701 

XSS  ■  XS(  1  .  IS  ) 

IF{  XSS  .  LT  .  ,0  )  THEN 

701 

702 

702 

702 

703 

703 

HYOV(  IS  ,  1  )  -  .125  •  RIN 

703 

704 

704 

HYDV(  IS  .  4  )  .  .100  •  PIN 

704 

70S 

705 

END  IF 

705 

706 

706 

150 

CONTINUE 

706 

707 

707 

C 

707 

708 

708 

00  176  IV  >  1  ,  NV 

708 

709 

709 

KYDVVV(  IV  ,  1  )  -  RIN 

709 

710 

710 

HYOVVV(  IV  ,  2  )  •  0. 

710 

711 

711 

HYDVVVI  IV  ,  3  )  -  0. 

711 

712 

712 

HYDWV(  IV  .  4  )  -  PIN  /  HRGM 

712 

713 

713 

HYOVVV(  IV  ,  5  )  -  HRGG 

713 

714 

714 

XSS  -  XV(  1  .  IV  ) 

714 

715 

715 

1F(  XSS  .  LT  .  -.0  )  THEN 

715 

716 

716 

HYDVVV(  IV  .  1  )  -  RIN 

716 

717 

717 

HYOVVV(  IV  ,  4  )  -  PIN  /  HRGM 

717 

718 

718 

END  IF 

718 

719 

719 

176 

CONTINUE 

719 

720 

720 

C(2) 

.... 

720 

721 

721 

ELSE 

721 

722 

722 

C 

722 

723 

723 

XMSQR  -  XMCHIN  •  XHCHIN 

723 

724 

724 

IF(  ICONO  .  EO  .  1  .  AND  .  ICONP  .  EQ  .  0  )  THEN 

724 

725 

725 

ELSE 

725 

726 

726 

PINL  -  PIN 

726 

727 

727 

RINL  •  RIN 

727 

728 

728 

RINRTO  -  (  HRGG  +  1.  )  *  XMSQR  / 

728 

729 

729 

(  (  HRGG  -  1.  )  •  XMSQR  +  2.  ) 

729 

730 

730 

Plum  -  (  2.  *  HRGG  *  XMSQR  -  (  HRGG  -  1.  )  )  / 

730 

731 

731 

(  HRGG  ♦  1.  ) 

731 

732 

732 

PIN  -  PINRTO  »  PINL 

732 

733 

733 

RIN  -  RINRTO  •  RINL 

733 

734 

734 

YHCHIN  -  SORT(  (  (  HRGG  -  1.  )  *  XMSQR  *  2.  )  7 

734 

735 

735 

{  2.  *  HRGG  *  XMSQR  -  (  HRGG  -  1.  )  )  ) 

735 

736 

736 

PRINT*, HRGG, RIN, PIN, YMCHIN 

736 

737 

737 

PRINT*. HRGG, RINL, PINL. XHCHIN 

737 

738 

738 

UVIN  -  XMCHIN  *  SQRT(  HRGG  *  PINL  /  RINL  )  - 

738 

739 

739 

YMCHIN  *  SqRT(  HRGG  *  PIN  /  RIN  ) 

739 
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740 

740 

END  IF 

740 

741 

741 

DO  175  IV  -  1  .  NV 

741 

742 

742 

HYOWV(  IV  .  1  )  -  RIHL 

742 

743 

743 

HYDVVV(  IV  .  2  )  -  0. 

743 

744 

744 

HYOVVV{  IV  .  3  )  •  0. 

744 

745 

745 

HYOWV(  IV  .  4  )  -  PINL  /  HRGM 

745 

746 

746 

HYOWV(  IV  ,  5  )  -  HRGG 

746 

747 

747 

XSS  -  XV(  1  ,  IV  ) 

747 

748 

748 

IF(  XSS  .  LT  .  -.0  )  THEN 

748 

749 

749 

HYDVVV(  IV  .  1  )  -  RIN 

749 

750 

750 

HYDVVV(  IV  .  2  )  -  UVIN  •  RIN 

750 

751 

751 

HYOVVV(  IV  ,  4  )  -  PIN  /  HRGH  ♦  .5  *  RIN  *  UVIN  *  UVIN 

751 

752 

752 

END  IF 

752 

753 

753 

175 

CONTINUE 

753 

754 

754 

DO  170  IS  -  1  .  NS 

754 

755 

755 

HYDV{  IS  .  1  )  -  RINL 

755 

756 

756 

HYOV(  IS  .  2  )  -  0. 

756 

757 

757 

HYDV(  IS  .  3  )  -  0. 

757 

758 

758 

HVOV(  IS  .  4  )  -  PINL 

758 

759 

759 

HYDV(  IS  ,  5  )  •  HRGG 

759 

760 

760 

XSS  -  XS(  1  .  IS  ) 

760 

761 

761 

IF(  XSS  .  LT  .  -.0  )  THEN 

761 

762 

762 

HYOV(  IS  .  1  )  -  RIN 

762 

763 

763 

HYDV(  IS  ,  2  )  -  UVIN 

763 

764 

764 

HYDV(  IS  .  4  )  ■  PIN 

764 

765 

765 

END  IF 

765 

766 

766 

170 

CONTINUE 

766 

767 

767 

C 

767 

768 

768 

IF{  lOPEOS  .  EQ  .  1  )  THEN 

768 

769 

769 

HRGGN  «  HRGG 

769 

770 

770 

HRGGL  -  HRGG 

770 

771 

771 

RINRTO  -  (  HRGGN  +  1.  )  *  XHSQR  / 

771 

772 

772 

(  (  HRGGN  -  1-  )  *  XMSOR  +  2.  ) 

772 

773 

773 

PINRTO  -  (  2.  *  HRGGN  •  XMSQR  -  (  HRGGN  -  1.  )  )  / 

773 

774 

774 

(  HRGGN  +  1.  ) 

774 

775 

775 

PIN  -  PINRTO  •  PINL 

775 

776 

776 

RIN  -  RINRTO  *  RIHL 

776 

777 

777 

TTNN  -  PIN  /  (  HRGGN  -  1.  ) 

777 

778 

778 

RRNN  -  RIN 

778 

779 

779 

TTNL  •  PINL  /  (  HRGGL  -  1.  ) 

779 

780 

780 

RRNL  >  RINL 

780 

781 

781 

00  1122  KI  -  1  .  9 

781 

782 

782 

CALL  E05(  RRNN  .  TTNN  .  1  ,  HRGGN  ) 

782 

783 

783 

CALL  E0S(  RRNL  .  TTNL  .  1  ,  HRGGL  ) 

783 

784 

784 

RINRTO  =  (  HRGGN  +  1.  )  *  XHSQR  / 

784 

785 

785 

(  (  HRGGN  -  1.  )  *  XHSQR  +  2.  ) 

785 

786 

786 

PINRTO  -  (  2.  *  HRGGN  •  XHSQR  -  (  HRGGN  -  1,  )  )  / 

786 

787 

787 

(  HRGGN  *  1.  ) 

787 

788 

788 

RIN  -  RINRTO  *  RINL 

788 

789 

789 

PIN  -  PINRTO  •  PINL 

789 

790 

790 

TTNN  -  PIN  /  (  HRGGN  -  1.  ) 

790 

791 

791 

RRNN  •  RIN 

791 

792 

792 

TTNL  -  PINL  !  (  HRGGL  -  1.  ) 

792 

793 

793 

RRNL  -  RIHL 

793 

794 

794 

YHCHIN  -  SqRT(  (  {  HRGGN  -  1.  )  *  XHSQR  +  2.  )  / 

794 

795 

795 

(  2.  *  HRGGN  *  XHSQR  -  (  HRGGN  -  1.  )  )  ) 

795 

796 

796 

PRINT*, HRGGN. RIN, PIN, YHCHIN 

796 

797 

797 

PRINT*. HRGGL.RINL.PINL.XMCHIN 

797 

798 

798 

1122 

CONTINUE 

798 

799 

799 

UVIN  -  XHCHIN  •  SORT!  HRGGL  *  PINL  /  RINL  )  - 

799 

800 

800 

YHCHIN  *  SQRT(  HRGGN  *  PIN  /  RIN  ) 

800 

801 

801 

DO  172  IS  -  1  ,  NS 

801 

802 

802 

HYDV(  IS  .  5  )  -  HRGGL 

802 

803 

803 

172 

CONTINUE 

803 

804 

804 

END  IF 

804 

805 

805 

UIN  -  UVIN  *  COSS 

805 

806 

606 

VIN  -  UVIN  *  SINN 

806 

807 

807 

C 

807 

808 

808 

ENDIF 

808 

809 

809 

C(2)«« 

809 

810 

810 

C 

810 

811 

811 

IF(  HPRTCL  .  EQ  .  1  )  THEN 

811 

812 

812 

IKXY  .  0 

812 

813 

813 

DO  ISO  IKX  -  1  ,  30 

813 

i 


i 


i 


I 


i 


( 
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814 

814 

DO  190  IKY  -  1  ,  15 

815 

815 

IKXY  -  IKXY  +  1 

816 

816 

XPRTCL(  1  ,  IKXY  )  -  (  IKX  -  1  )  •  .1  +  .05 

817 

817 

XPRTCK  2  ,  IKXY  )  *  {  IKY  -  1  )  •  .1  +  .05 

818 

818 

190 

CONTINUE 

819 

819 

NPT  -  IKXY 

820 

820 

PRINT  *.  NPT 

821 

821 

CALL  PRLCTN 

822 

822 

PRINT  ».  NPT 

823 

823 

ENDIF 

824 

824 

C 

825 

825 

826 

826 

C 

827 

827 

C  - 

-  READ  INPUT  DATA  FROM  THE  PREVIOUS  RUN . . 

828 

828 

C 

829 

829 

PRINT  •  .ICONO.ICONP 

830 

830 

IF(  ICONP  .  EQ  .  1  )  THEN 

831 

831 

READ  (88)  RIN.PIN.RINL.PINL.UVIN.UIN.VIN.TT, 

832 

832 

HY0M0H(1).HY0M0M(2).HYDM0H(4) 

833 

833 

PRINT  *,  RIN.PIN.UVIN.UlN.VlN.n 

834 

834 

READ  (88)  ((HY0V(IS,IK).1K-1.5).IS-1.NS) 

835 

835 

READ  (88)  ((HYDVVV(IW.1K).1K-1.5).IV«1,NV) 

836 

836 

READ  (88)  IJKINT,(KS0ELT(IS).1S-1.NS) 

837 

837 

IF(  HPRTCL  .  EQ  .  1  ) 

838 

838 

READ  (88)  NPT.((XPRTCL(IK.IPT).IK-1.2),IPT-1.NPT), 

839 

839 

(IJKPRT(IPT).IPT.1,NPT) 

840 

840 

ENOIF 

841 

841 

C 

842 

842 

843 

843 

c 

844 

844 

c  — 

-  PERFORM  THE  ACTUAL  CALCULATION  . 

845 

845 

c 

846 

846 

CALL  HYORMN 

847 

847 

c 

848 

848 

849 

849 

c 

850 

850 

c  - 

-  EXIT  POINT  FROM  PROGRAM  . 

851 

351 

c 

852 

852 

c 

853 

853 

STOP  777 

854 

854 

c 

855 

855 

c 

856 

856 

c  — 

-  FORMATS _ _ _ _ 

857 

857 

c 

858 

858 

101 

F0RHAT(1H  , ' ICONO= ' . 12. 5X, • ICONP-’ , 12. 5X, ' ITR1GR-’ , 12. 5X, 

859 

859 

'10PTN-'.I2./,IX. 

860 

860 

'XMCHIN=',F13.6,5X.’RIN-'.F13.6,5X,’PIN-’,F13.6,/.1X, 

861 

861 

'ALFA-' .F13.6.5X. ’HRGG-' .F13.6,5X. ' IHRN-' , I2,5X.7.1X. 

862 

862 

'HTIME=‘.I2.5X.’HDUMP-'.I5.5X. 'N0UHP-',I5,5X,/.1X 

863 

863 

' KDUMP- ■ . 15 . 5X. ■ lOSPCL- ' . 12. 5X. ' lOPLFT- ' . 12 . 5X . / . IX . 

864 

864 

' lOPRCN- ' , 12 ,5X. • lOPORD- ’ , 12 . 5X. ’ lOPBYN- ’ . 12 . 5X. / . IX 

865 

865 

' I AXSYM- ' . 12 .5X. ’ lOPEOS- ' . 12 . 5X , 'MPRTCL- ’ . 16 . 5X . / . IX . 

866 

866 

’ lOPINT- ’ , I2.5X, ’lOPAOD-' , 12. 5X, ’ lOPDEL- ' . I2,5X./. IX. 

867 

867 

'AREAD0-'.F13.6.5X.'AREDEL-’.F13.6.5X./.1X, 

868 

868 

'  IHINOW- M2.5X.  •  ISTATC-’ .  12) 

869 

869 

c 

870 

870 

c 

871 

871 

END 

page  12 

814 

815 

816 

817 

818 

819 

820 
821 
822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 
861 
862 

863 

864 

865 

866 

867 

868 

869 

870 

871 
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872 

I 

SUBROUTINE  HYDRFL 

872 

873 

2 

C 

873 

874 

3 

C— - 

. I 

874 

875 

4 

C 

I 

875 

876 

5 

C 

HYDRFL  IS  A  2  DIMENSIONAL  RIEMANN  SOLVER  THAT  COMPUTES  THE  I 

876 

877 

6 

C 

FLUXES  ACROSS  NORMAL  INTERFACES  FOR  UPDATING  SIDE  I 

877 

878 

7 

C 

OR  TRIANGLE  BASED  QUANTITIES.  I 

878 

879 

8 

C 

I 

879 

880 

9 

C— - 

. I 

880 

881 

10 

c 

881 

882 

11 

include  ’cmshOO.h' 

882 

883 

12 

include  'chydOO.h' 

include  'cintOO.h' 

883 

884 

13 

884 

885 

14 

include  'cphslO.h' 

885 

886 

15 

include  'cphs20.h' 

886 

887 

16 

c 

887 

888 

1  7 

ooo 

889 

18 

c 

889 

890 

19 

REAL  0ELP(M8P) . HSOP(MBP ) . HSWI{M8P ) . HSOO(MBP ) , 

890 

891 

20 

RSTAR(MBP),CSTAR(HBP).PMAX(MBP).PMIN(HBP) 

891 

892 

21 

REAL  RRIGHT(HBP).URlGHT(HBP).VRIGHT(MBP),PRIGHT(MflP) 

892 

893 

22 

REAL  RLEFTT{HBP),ULEFTT(HBP),VLEFTT(MBP),PLEFTT(MBP) 

893 

894 

23 

c 

894 

895 

24 

896 

25 

c 

896 

897 

26 

c 

897 

898 

27 

c  — 

BEGIN  LOOP  OVER  ALL  EDGES  IN  THE  DOMAIN  . 

898 

899 

28 

c 

899 

900 

29 

DO  280  IH  -  I  .  4 

900 

901 

30 

DO  280  IS  -  1  ,  NS 

901 

902 

31 

HYDFLX(  IS  0. 

902 

903 

32 

280 

CONTINUE 

903 

904 

33 

C 

904 

905 

34 

NEl  •  1 

905 

906 

35 

NE2  -  NOFVEE(  1  ) 

906 

907 

36 

00  110  INE  -  1  ,  NVEEE 

907 

906 

37 

C 

908 

909 

38 

c  — 

FETCH  HYDRO  QUANTITIES  . 

909 

910 

39 

c 

FOR  LEFT  AND  RIGHT  SIDE  OF  THE  INTERFACE  ON  WHICH  THE 

910 

911 

40 

c 

RIEMANN  PROBLEM  IS  SOLVED 

911 

912 

41 

c 

912 

913 

42 

DO  120  IE  -  NEl  .  NE2 

913 

914 

43 

KE  -  IE  -  NEl  +  1 

914 

915 

44 

c 

915 

916 

45 

RRR{  KE  )  -  RR(  IE  ) 

916 

917 

46 

UUR(  KE  )  -  UR(  IE  ) 

917 

918 

47 

VVR(  KE  )  >  VR(  IE  ) 

918 

919 

48 

PPR(  KE  )  -  PR(  IE  ) 

919 

920 

49 

c 

920 

921 

50 

RRL(  KE  )  ’  RL{  IE  ) 

921 

922 

51 

UUL(  KE  )  •  UL(  IE  ) 

922 

923 

52 

WL(  KE  )  -  VL(  IE  ) 

923 

924 

53 

PPL(  KE  )  -  PL(  IE  ) 

924 

925 

54 

120 

CONTINUE 

925 

926 

55 

c 

926 

927 

56 

c  — 

ASSIGN  GAMA  A  VALUE  . 

927 

928 

57 

c 

928 

929 

58 

DO  130  KE  -  1  .  NOFVEE{  INE  ) 

929 

930 

59 

IE  -  KE  +  NEl  -  1 

930 

931 

60 

ISL  -  JE(  3  ,  IE  ) 

931 

932 

61 

ISR  -  JE(  4  .  IE  ) 

932 

933 

62 

GAMAL(  KE  )  •  HYDV(  ISL  .  5  ) 

933 

934 

63 

IF(  ISR  .  HE  .  0  )  THEN 

934 

935 

64 

GAMAR{  KE  )  =  HYDV(  ISR  .  5  ) 

935 

936 

65 

ELSE 

936 

93 

66 

GAHAR(  KE  )  =  GAMAL(  KE  ) 

937 

9? 

67 

END  IF 

938 

9 

68 

c 

939 

9- 

69 

c  — 

THIS  SECTION  OF  CODE  SOLVES  FOR  "PSTAR"  AND  "USTAR"  IN  . 

940 

94; 

70 

c 

THE  RIEMANN  PROBLEM  USING  NEWTON’S  METHOD. 

941 

942 

71 

c 

942 

943 

72 

HLEFT(  KE  )  =  SQRT(  GAMAL(  KE  )  *  PPL(  KE  )  *  RRL(  KE  )  ) 

943 

944 

73 

HRIGT(  KE  )  -  SORT{  GAMAR(  KE  )  *  PPR(  KE  )  *  RRR(  KE  )  ) 

944 

945 

74 

c 

945 
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946 

75 

HLES0(  KE  )  .  HLEET(  KE  )  *  WLEFT(  KE  ) 

946 

947 

76 

WRISQ(  KE  )  •  WRIGT(  KE  )  *  WRIGT{  KE  ) 

947 

948 

77 

C 

948 

949 

78 

PMIN(  KE  )  -  AHINK  PPL(  KE  )  ,  PPR(  KE  )  ) 

PSML(  KE  )  -  HRSM  •  PHIN(  KE  ) 

949 

950 

79 

950 

951 

80 

C 

951 

952 

81 

C 

—  - 

FORM  THE  STARTING  GUESS  FOR  THE  SOLUTION  . 

952 

953 

82 

C 

953 

954 

83 

PSTAR(  KE  )  -  {  HLEFT{  KE  )  •  PPR(  KE  )  + 

954 

955 

84 

HRIGT(  KE  )  •  PPL(  KE  )  - 

955 

956 

85 

HLEFT(  KE  )  *  WRIGT(  KE  )  * 

956 

957 

86 

(  UUR{  KE  )  -  UUL(  KE  )  )  )  / 

957 

958 

87 

(  HL£FT(  KE  )  ♦  WRIGT{  KE  )  ) 

958 

959 

88 

PSTAR(  KE  )  -  AMAXK  PSTAR(  KE  )  .  PSML(  KE  )  ) 

959 

960 

89 

130 

CONTINUE 

960 

961 

90 

C 

961 

962 

91 

DO  140  I  •  1  .  IHRN 

962 

963 

92 

C 

963 

964 

93 

C 

— 

BEGIN  THE  NEHTON  ITERATION . . 

964 

965 

94 

C 

965 

966 

95 

DO  150  KE  -  1  .  NOFVEE(  INE  ) 

966 

967 

96 

C 

967 

968 

97 

CF  -  (  GA«AL(  KE  )  ♦  1  .  )  /  GAMAL(  KE  )  *  .5 

968 

969 

98 

HLEFS(  KE  )  -  (  1.  t  CF  •  (  PSTAR(  KE  )  / 

%9 

970 

99 

PPL<  KE  )  -  1.  )  )  •  HLES0(  KE  ) 

970 

971 

100 

HLEFT(  KE  )  -  SQRT(  HLEFS{  KE  )  ) 

971 

972 

101 

ZLEFT{  KE  )  -  2.  *  HLEFT(  KE  )  *  HLEFS(  KE  )  / 

(  HLESQ(  KE  )  +  HLEFS(  KE  )  ) 

972 

973 

102 

973 

974 

103 

USTL(  KE  )  -  UUL(  KE  )  - 

974 

975 

104 

(  PSTAR(  KE  )  -  PPL{  KE  )  )  /  HLEFT(  KE  ) 

975 

976 

105 

150 

CONTINUE 

976 

977 

106 

C 

977 

978 

107 

DO  152  KE  -  1  .  NOFVEEC  INE  ) 

978 

979 

108 

c 

979 

980 

109 

CF  -  (  GAHAR(  KE  )  +  1  .  )  /  6AMAR(  KE  )  *  .5 

980 

981 

110 

WRIFS(  KE  )  -  (  1.  +  CF  •  (  PSTAR(  KE  )  / 

981 

982 

111 

PPR(  Iff  )  -  1.  )  )  •  HRISQ(  KE  ) 

982 

983 

112 

HRIGT(  KE  )  -  SQRT(  HRIFS(  KE  )  ) 

983 

984 

113 

2RIGT(  KE  )  -  2.  *  HRIGT(  KE  )  •  HRIFS(  KE  )  / 

984 

985 

114 

(  WRISQ(  KE  )  +  HRIFS(  KE  )  ) 

985 

986 

US 

USTR(  KE  )  -  UUR(  KE  )  + 

986 

987 

116 

(  PSTAR(  KE  )  -  PPR(  KE  )  )  /  HRIGT{  KE  ) 

987 

988 

117 

152 

CONTINUE 

988 

989 

118 

C 

989 

990 

119 

DO  160  KE  -  1  ,  NOFVEE(  INE  ) 

990 

991 

120 

DPST(  KE  )  -  ZLEFT(  KE  )  *  ZRIGT(  KE  )  • 

991 

992 

121 

(  USTR(  KE  )  -  USTL(  KE  )  )  / 

992 

993 

122 

(  ZLEFT(  KE  )  +  ZRIGT(  KE  )  ) 

993 

994 

123 

PSTAR(  KE  }  =  PSTAR(  KE  )  -  DPST(  KE  ) 

994 

995 

124 

PSTAR(  KE  )  »  AfWXK  P5TAR(  KE  )  ,  PSML(  KE  )  ) 

995 

996 

125 

160 

CONTINUE 

996 

997 

126 

140 

CONTINUE 

997 

998 

127 

C 

998 

999 

128 

C 

... 

FORM  FINAL  SOLUTIONS  . 

999 

1000 

129 

C 

1000 

1001 

130 

DO  170  KE  -  1  .  NOFVEE(  INE  ) 

1001 

1002 

131 

c 

1002 

1003 

132 

CF  -  (  GAMAL(  KE  )  +  1.  )  /  GAMAL(  KE  )  *  .5 

1003 

1004 

133 

HLEFT(  KE  )  =  SORT(  HLESQ(  KE  )  *  (  1.  + 

1004 

1005 

134 

CF  •  (  PSTAR(  KE  )  /  PPL(  KE  )  -  1.  )  )  ) 

1005 

1006 

135 

170 

CONTINUE 

1006 

1007 

136 

C 

1007 

1008 

137 

DO  172  KE  -  1  .  NOFVEE(  INE  ) 

1008 

1009 

138 

C 

1009 

1010 

139 

CF  -  {  GAMAR(  KE  )  +  1.  )  /  6AHAR(  KE  )  *  .5 

1010 

1011 

140 

HRIGT(  KE  )  -  SqRT(  WR1SQ(  KE  )  •  (  1.  + 

1011 

1012 

141 

CF  *  (  PSTAR(  KE  )  /  PPR(  KE  )  -  1.  )  )  ) 

1012 

1013 

142 

172 

CONTINUE 

1013 

1014 

143 

C 

1014 

1015 

144 

DO  180  KE  -  1  ,  NOFVEE(  INE  ) 

1015 

1016 

145 

USTAR(  KE  )  -  (  PPL(  KE  )  -  PPR(  KE  )  + 

1016 

1017 

146 

HLEFT{  KE  )  *  UUL{  KE  )  + 

1017 

1018 

147 

HR1GT(  KE  )  *  UUR(  KE  )  )  / 

1018 

1019 

148 

(  HLEFT(  KE  )  +  WRIGT(  KE  )  ) 

1019 
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1020 

149 

180 

CONTINUE 

1020 

1021 

150 

C 

1021 

1022 

151 

C  — 

BEGIN  PROCEDURE  TO  OBTAIN  FLUXES  FROM  REIHANN  FORMALISM  . 

1022 

1023 

152 

c 

1023 

1024 

153 

DO  190  KE  -  1  .  NOFVEEl  INE  ) 

1024 

1025 

154 

IF(  USTAR{  KE  )  .  LE  .  0.0  )  THEN 

1025 

1026 

155 

c 

1026 

1027 

156 

R0{  KE  )  -  RRR(  KE  ) 

1027 

1028 

157 

P0(  KE  )  -  PPR(  KE  ) 

1028 

1029 

158 

U0(  KE  )  -  UUR{  KE  ) 

1029 

1030 

159 

C0(  KE  )  -  S0RT(  GAHAR(  KE  )  »  PPR(  KE  )  /  RRR(  KE  )  ) 

1030 

1031 

160 

H0(  KE  )  -  HR1GT(  KE  ) 

1031 

1032 

161 

ISH(  KE  )  -  1 

1032 

1033 

162 

c 

1033 

1034 

163 

VGDNV(  KE  )  =  VVR<  KE  ) 

1034 

1035 

164 

c 

1035 

1036 

165 

ELSE 

1036 

1037 

166 

c 

1037 

1038 

167 

R0(  KE  )  -  RRL(  KE  ) 

1038 

1039 

168 

P0(  KE  )  -  PPL(  KE  ) 

1039 

1040 

169 

U0(  KE  )  -  UUL(  KE  ) 

1040 

1041 

170 

C0(  KE  )  •  S(1RT(  GAMAL(  KE  )  •  PPL(  KE  )  /  RRL(  KE  )  ) 

1041 

1042 

171 

H0(  KE  )  -  WLEFT(  KE  ) 

1042 

1043 

172 

ISN(  KE  )  =  -  1 

1043 

1044 

173 

c 

1044 

1045 

174 

VGDNV(  KE  )  •  VVL(  KE  ) 

1045 

1046 

175 

END  IF 

1046 

1047 

176 

190 

CONTINUE 

1047 

1048 

177 

C 

1048 

1049 

178 

DO  200  KE  -  1  .  NOFVEE(  INE  ) 

1049 

1050 

179 

DELP{  KE  )  -  PSTAR(  KE  )  -  P0(  KE  ) 

1050 

1051 

180 

HSOP(  KE  )  -  1SN(  KE  )  *  U0(  KE  )  +  W0(  KE  )  /  R0(  KE  ) 

1051 

1052 

181 

WS0M(  KE  )  -  1SN(  KE  )  *  U0{  KE  )  +  C0(  KE  ) 

1052 

1053 

182 

200 

CONTINUE 

1053 

1054 

183 

c 

1054 

1055 

184 

DO  210  KE  -  1  .  H0FVEE{  INE  ) 

1055 

1056 

185 

IF(  OELP(  KE  )  .  GT  ,  0.  )  THEN 

1056 

1057 

186 

HSOO(  KE  )  »  HS0P(  KE  ) 

1057 

1058 

187 

ELSE 

1058 

1059 

188 

HS00(  KE  )  -  H50M(  KE  ) 

1059 

1060 

189 

END  IF 

1060 

1061 

190 

210 

CONTINUE 

1061 

1062 

191 

c 

1062 

1063 

192 

c  — 

USE  OUTER  STATE  SOLUTION  . 

1063 

1064 

193 

c 

1064 

1065 

194 

DO  220  KE  «  1  .  NOFVEE(  INE  ) 

1065 

1066 

195 

PGONV(  KE  )  *  P0(  KE  ) 

1066 

1067 

196 

UGONV(  KE  )  »  U0(  KE  ) 

1067 

1068 

197 

CGDNV(  KE  )  »  C0(  KE  ) 

1068 

1069 

198 

RGONV(  KE  )  -  R0(  KE  ) 

1069 

1070 

199 

220 

CONTINUE 

1070 

1071 

200 

C 

1071 

1072 

201 

C  — 

COMPUTE  STARRED  VALUES  . 

1072 

1073 

202 

C 

1073 

1074 

203 

DO  230  KE  -  1  .  N0FVEE(  INE  ) 

1074 

1075 

204 

IE  -  KE  +  NEl  -  1 

1075 

1076 

205 

ISL  •  JE(  3  .  IE  ) 

1076 

1077 

206 

ISR  -  JE(  4  ,  IE  ) 

1077 

1078 

207 

IF(  ISR  .  NE  .  0  )  IHEN 

1078 

1079 

208 

GAMAG(  KE  )  -  .5  *  (  HYDV(  ISL  .  5  )  +  HYOV(  ISR  ,  5  )  ) 

1079 

1080 

209 

ELSE 

1080 

1081 

210 

GAMAG(  KE  )  <■  HY0V(  ISL  ,  5  ) 

1081 

1082 

:;i 

END  IF 

1082 

1083 

-12 

C 

1083 

1084 

213 

RSTAR(  KE  )  -  1.  /  (  1.  /  R0(  KE  )  -  DELP(  KE  )  / 

1084 

1085 

214 

(  H0(  KE  )  *  WC(  KE  )  )  ) 

1085 

1086 

215 

C 

1086 

1087 

216 

CSTAR(  KE  )  -  SqRT(  GAHAG(  KE  )  *  PSTAR(  KE  )  /  RSTAR{  KE  )  ) 

1087 

1088 

217 

HSOM(  KE  )  -  ISN(  KE  )  •  OSTAR(  KE  )  +  CSTAR(  KE  ) 

1088 

1089 

218 

230 

CONTINUE 

1089 

1090 

219 

C 

1090 

1091 

220 

DO  240  KE  -  1  ,  NOFV£E(  INE  ) 

IF(  OELP{  KE  )  .  GT  .  0.  )  THEN 

1091 

1092 

221 

1092 

1093 

222 

SPIN(  KE  )  -  HSOP(  KE  ) 

1093 

page  15 


Thu  Jul 

1  14: 

15:40 

1993  raainhd.f  SUBROUTINE  HTORFL 

page  16 

1094 

223 

ELSE 

1094 

1095 

224 

SPIN(  KE  )  -  WS0M{  KE  ) 

1095 

1096 

225 

END  IF 

1096 

1097 

226 

240 

CONTINUE 

1097 

1098 

227 

C 

1098 

1099 

228 

DO  250  KE  -  1  .  HOFVE£(  INE  ) 

1099 

1100 

229 

C 

1100 

1101 

230 

1F(  WSOO(  KE  )  .  CE  .  0.  )  THEN 

1101 

1102 

231 

IF(  SPIN{  KE  )  .  GE  .  0.  )  THEN 

1102 

1103 

232 

C 

1103 

1104 

233 

C  — 

.  USE  THE  STARRED  STATE  RESULTS  . 

1104 

1105 

234 

C 

1105 

1106 

235 

RGDNV(  KE  )  •  RSTAR{  KE  ) 

1106 

1107 

236 

UGDNV(  KE  )  -  USTAR(  KE  ) 

1107 

1108 

237 

CGDNV(  KE  )  -  CSTAR(  KE  ) 

1108 

1109 

238 

PGDHV(  KE  )  -  PSTAR{  KE  ) 

1109 

1110 

239 

ELSE 

1110 

1111 

240 

c 

nil 

1112 

241 

c  — 

■  EVALUATE  THE  INSIDE  RAREFACTION  WAVE  . 

1112 

1113 

242 

c 

1113 

1114 

243 

KRG6  •  GAMA6(  KE  ) 

1114 

1115 

244 

HRGM  ■>  6AHAG(  KE  )  -  1. 

1115 

1116 

245 

HRGP  -  GAMAC(  KE  )  +  1. 

1116 

1117 

246 

CGONV(  KE  )  =  (  CSTAR(  KE  )  *  2.  - 

1117 

1118 

247 

ISN(  KE  )  •  USTAR(  KE  )  *  HRGM  )  /  HRGP 

1118 

1119 

248 

UGOHV(  KE  )  -  -  1SN(  KE  )  •  CGDNV(  KE  ) 

1119 

1120 

249 

RGONV(  KE  )  =  (  CGDNV(  KE  )  /  C0(  KE  )  )  •• 

1120 

1121 

250 

(  2.  /  HRGM  )  •  R0(  KE  ) 

1121 

1122 

251 

PGDNV(  KE  )  =  CGDNV(  KE  )  *  CGONV(  KE  )  *  RG0HV(  KE  )  /  HRGG 

1122 

1123 

252 

c 

1123 

1124 

253 

END  IF 

1124 

1125 

254 

c 

1125 

1126 

255 

END  IF 

1126 

1127 

256 

250 

CONTINUE 

1127 

1128 

257 

c 

1128 

1129 

258 

DO  142  IE  -  NEl  ,  HE2 

1129 

1130 

259 

KE  -  IE  -  NEl  +  1 

1130 

1131 

260 

c 

1131 

1132 

261 

RRR(  KE  )  -  XN(  IE  ) 

1132 

1133 

262 

UUR(  KE  )  -  YN(  IE  ) 

1133 

1134 

263 

WR(  KE  )  -  XXN(  IE  ) 

1134 

1135 

264 

PPR(  KE  )  »  YYN(  IE  ) 

1135 

1136 

265 

PPL(  KE  )  -  XE{  2  .  IE  ) 

1136 

1137 

266 

RRL(  KE  )  -  XE(  1  ,  IE  ) 

1137 

1138 

267 

UUL(  KE  )  -  XYM1DL(  IE  ) 

1138 

1139 

268 

c 

1139 

1140 

269 

142 

CONTINUE 

1140 

1141 

270 

C 

1141 

1142 

271 

C  — 

SEARCH  FOR  MINIMUM  VALUE  OF  TIMESTEP  ...DTT...  . 

1142 

1143 

272 

C 

1143 

1144 

273 

DO  260  KE  -  1  ,  NOFVEEC  INE  ) 

1144 

1145 

274 

CTT  -  SQRT{  GAMAG{  KE  )  *  PG0NV(  KE  )  /  RGDNV(  KE  )  ) 

1145 

1146 

275 

VEL  -  UGDNV(  KE  ) 

1146 

1147 

276 

C 

1147 

1148 

277 

PROJCT  .  RRR(  KE  )  *  VVR(  KE  )  +  UUR(  KE  )  *  PPR(  KE  ) 

1148 

1149 

278 

DTU  -  PPL(  KE  )  *  A8S(  PROJCT  )  /  (  CTT  >  ABS(  VEL  )  ) 

1149 

1150 

279 

DTI  -  DTU  *  UUL(  KE  ) 

1150 

1151 

280 

DT2  -  DTU  -  DTI 

1151 

1152 

281 

DTT  -  AMINK  OTT  .  OTl  ,  DT2  ) 

1152 

1153 

282 

260 

CONTINUE 

1153 

1154 

283 

C 

1154 

1155 

284 

C  — 

NOW  FIND  THE  FLUXES  AT  EACH  INTERFACE  . 

1155 

1156 

285 

C 

1156 

1157 

286 

DO  270  KE  -  1  .  NOFVEEI  INE  ) 

1157 

1158 

287 

HRGG  =  GAMAGI  KE  ) 

1158 

1159 

288 

HRGM  -  GAHAG{  KE  )  -  I. 

1159 

1160 

289 

HRGP  -  GAMAGI  KE  )  +  1. 

1160 

1161 

290 

C 

1161 

1162 

291 

C  ... 

FLUX  FOR  DENSITY  . 

1162 

1163 

292 

C 

1163 

1164 

293 

R0(  KE  )  -  RGDNVI  KE  )  *  UGONV{  KE  ) 

1164 

1165 

294 

C 

1165 

1166 

295 

C  ... 

FLUX  FOR  l«)MENTUM  DENSITY  . 

1166 

1167 

296 

c 

1167 

page  16 


Thu  Jul 

1  14: 

15:40  1993  inainhd.f  SUBROUTINE  HYORFL 

page  17 

1168 

297 

U0{  KE  )  -  PGDHV(  KE  )  •  RRR(  KE  )  * 

1168 

1169 

298 

RO(  KE  )  •  (  UGDHV(  KE  )  *  RRR(  KE  )  - 

1169 

1170 

299 

VGD«V(  KE  )  »  UUR(  )  ) 

1170 

1171 

300 

W)<  KE  )  -  PGOHV(  KE  )  *  UUR(  KE  )  + 

1171 

1172 

301 

R0(  KE  )  *  (  UGONV(  KE  )  •  UUR{  KE  )  + 

1172 

1173 

302 

VGDKV{  KE  )  *  RRR(  KE  )  ) 

1173 

1174 

303 

C 

1174 

1175 

304 

C  ... 

FLUX  FOR  ENERGY  DENSITY  . 

1175 

1176 

305 

C 

1176 

1177 

306 

P0(  KE  )  -  U6DNV(  KE  )  *  (  PGONV(  KE  )  *  HRGG  /  HRGH  + 

1177 

1178 

307 

.5  •  RGDNV(  KE  )  •  (  UGONV(  KE  )  *  UGONV(  KE  )  + 

1178 

1179 

308 

VGONV(  KE  )  *  VGOHV(  KE  )  )  ) 

1179 

1180 

309 

C 

1180 

1181 

310 

270 

CONTINUE 

1181 

1182 

311 

C 

1182 

1183 

312 

C  — 

COLLECT  INTERFACE  FLUXES  FOR  EACH  TRIANGLE  . 

1183 

1184 

313 

C 

1164 

1185 

314 

DO  290  IE  -  NEl  ,  NE2 

1185 

1186 

315 

KE  -  IE  -  NEl  +  1 

1186 

1187 

316 

C 

1187 

1188 

317 

ISL  -  JE(  3  .  IE  ) 

1188 

1189 

318 

ISR  «  JE(  4  ,  IE  ) 

1189 

1190 

319 

C 

1190 

1191 

320 

DFLUX  -  RRL{  KE  ) 

1191 

1192 

321 

c 

1192 

1193 

322 

IF(  JE(  5  ,  IE  )  .  EQ  .  0  )  THEN 

1193 

1194 

323 

c 

1194 

1195 

324 

c  ... 

FLUX  FOR  DENSITY  . 

1195 

1196 

325 

c 

1196 

1197 

326 

HYDFLX(  ISL  ,  1  )  -  HYDFLX(  ISL  .  1  )  +  DFLUX  *  R0(  KE  ) 

1197 

1198 

327 

HYDFLX(  ISR  .  1  )  -  HYDFLX(  ISR  .  1  )  -  DFLUX  •  R0(  KE  ) 

1198 

1199 

328 

c 

1199 

1200 

329 

c  ... 

FLUX  FOR  MOMENTUM  DENSITY  (  U  DIRECTION  )  . 

1200 

1201 

330 

c 

1201 

1202 

331 

HYDFLX{  ISL  ,  2  )  -  HYOFLX(  ISL  .  2  )  +  DFLUX  *  U0(  KE  ) 

1202 

1203 

332 

HYOFU(  ISR  ,  2  )  «  HYOFLX(  ISR  .  2  )  -  DFLUX  *  U0(  KE  ) 

1203 

1204 

333 

c 

1204 

1205 

334 

c  ... 

FLUX  FOR  MOMENTUM  DENSITY  (  V  DIRECTION  )  . 

1205 

1206 

335 

c 

1206 

1207 

336 

HYOFLX(  ISL  ,  3  )  -  HYOFLX(  ISL  .  3  )  +  DFLUX  *  H0(  KE  ) 

1207 

1208 

337 

HY0FLX(  ISR  ,  3  )  -  HYDFLX(  ISR  .  3  )  -  DFLUX  »  H0(  KE  ) 

1208 

1209 

338 

c 

1209 

1210 

339 

c ... 

FLUX  FOR  ENERGY  DENSITY  . 

1210 

1211 

340 

c 

1211 

1212 

341 

HYDFLX(  ISL  ,  4  )  =  HYDFLX{  ISL  .  4  )  +  DFLUX  *  P0{  KE  ) 

1212 

1213 

342 

HYDFLX(  ISR  ,  4  )  -  HYDFLX(  ISR  ,  4  )  -  DFLUX  *  P0(  KE  ) 

1213 

1214 

343 

c 

1214 

1215 

344 

ELSE 

1215 

1216 

345 

c 

1216 

1217 

346 

c  ... 

FLUX  FOR  DENSITY  . 

1217 

1218 

347 

c 

1218 

1219 

348 

HYDFLX(  ISL  ,  I  )  =  HYOFLX(  ISL  .  1  )  +  DFLUX  *  R0(  KE  ) 

1219 

1220 

349 

c 

1220 

1221 

350 

c 

FLUX  FOR  MOMENTUM  DENSITY  (  U  DIRECTION  )  . 

1221 

1222 

351 

c 

1222 

1223 

352 

HYOFLX(  ISL  .  2  )  •  HYOFLX(  ISL  .  2  )  +  DFLUX  *  U0(  KE  ) 

1223 

1224 

353 

c 

1224 

1225 

354 

c  ... 

FLUX  FOR  MOMENTUM  DENSITY  (  V  DIRECTION  )  . 

1225 

1226 

355 

c 

1226 

1227 

356 

HYDFU(  ISL  .  3  )  =  HYDFLX(  ISL  .  3  )  +  DFLUX  *  H0(  KE  ) 

1227 

1226 

357 

c 

1228 

1229 

358 

c 

FLUX  FOR  ENERGY  DENSITY  . 

1229 

1230 

359 

c 

1230 

1231 

360 

HYOFLX(  ISL  .  4  )  =  HYOFLX(  ISL  ,  4  )  +  DFLUX  *  P0(  KE  ) 

1231 

1232 

361 

c 

1232 

1233 

362 

END  IF 

1233 

1234 

363 

290 

CONTINUE 

1234 

1235 

364 

c 

1235 

1236 

365 

NEl  -  NE2  +  1 

1236 

1237 

366 

NE2  >  NE2  +  NOFVEE(  INE  +  1  ) 

1237 

1238 

367 

110 

CONTINUE 

1238 

1239 

368 

c 

1239 

lidfl 

1241 

370 

c 

1241 
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1242 

371 

C  - 

--  EXIT  POINT  FROM  SUBROUTINE - - 

1243 

372 

C 

1244 

373 

c 

1245 

374 

RETURN 

1246 

375 

c 

1247 

376 

c 

1248 

377 

c 

... 

1249 

378 

END 

Thu  Jul 
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1250 

1 

SUBROUTINE  HYORMN 

1251 

2 

c 

1252 

3 

c— 

-I 

1253 

4 

c 

I 

1254 

5 

c 

HYORMN  IS  THE  MAIN  SUBROUTINE  FOR  THE  UNSTRUCTUREO  GRID 

1 

1255 

6 

c 

HYDRODYNAMIC  SOLVER.  THIS  SUBROUTINE  OBTAINS  THE 

1 

1256 

7 

c 

EDGE  BASED  FLUXES  FOR  EACH  TRIANGLE/SIDE  FROM 

1 

1257 

8 

c 

SUBROUTINE  —  HYORFL  —  .  IT  ALSO  CONTROLS 

1 

1258 

9 

c 

THE  REFINEMENT  AND  COARSENING  OF  THE  GRID. 

I 

1259 

10 

c 

THE  SUBROUTINE  GENERATES  THE  OUTPUT  THAT  IS  USED 

I 

1260 

11 

c 

FOR  POST-PROCESSING. 

I 

1261 

12 

c 

I 

1262 

13 

r* 

C 

I 

1263 

14 

C— 

1264 

15 

C 

1265 

16 

Include  'cmshOO.h' 

1266 

17 

include  'chydOO.h' 

1267 

18 

include  'cintOO.h* 

1268 

19 

include  'cphslO.h' 

1269 

20 

include  'cphs20.h' 

1270 

21 

C 

1271 

22 

Ca— 

1272 

23 

C 

1273 

24 

REAL  RRN(MBP),URN(MBP),VRN(MBP).EPN(MBP).XSAR(MBP). 

1274 

25 

TTN(MBP).XYRAD(HBP) 

1275 

26 

INTEGER  IEDIST(2) 

1276 

27 

C 

1277 

28 

1278 

29 

C 

1279 

30 

CFL  ■  0.90 

1280 

31 

c 

1281 

32 

c .. 

-  SET  SPECIFIC  TIME  FOR  A  DUMP . . 

1282 

33 

c 

1283 

34 

TLIHIT-30, 

1284 

35 

FLATDR  -  .9 

1285 

36 

LOUMP  -  KDUMP 

1286 

37 

IF(  IJKINT  .  EO  .  3  )  THEN 

1287 

38 

LOUMP  -  6 

1288 

39 

IF(  LOUMP  .  LT  .  KDUMP  )  LDUMP  *  KDUMP 

1289 

40 

END  IF 

1290 

41 

c 

1291 

42 

00  120  JT  -  1  ,  NTIME 

1292 

43 

DO  130  IT  .  1  .  MOUMP 

1293 

44 

c 

1294 

45 

DO  140  ITT  -  1  .  NDUMP 

1295 

46 

IJKKJI  -  (  JT  -  i  )  *  NDUMP  *  MOUMP  +  (  IT  -  1  )  *  NDUMP  + 

ITT 

1296 

47 

IJKIJK  »  IJKINT  +  IJKKJI 

1297 

48 

c 

1298 

49 

DO  142  IKT  -  1  .  LDUMP 

1299 

50 

c 

1300 

51 

C  - 

-  SELECT  ORDER  OF  INTEGRATION  . 

1301 

52 

c 

1302 

53 

IF(I0P0R0.EQ.1)THEN 

1303 

54 

CALL  FIRST 

1304 

55 

ELSEIF(I0P0RD.£Q.2)THEN 

1305 

56 

CALL  GRAONG 

1306 

57 

ENDIF 

1307 

58 

c 

1308 

59 

c 

-  SET  TIMESTEP  TO  HIGH  VALUE  IT  KILL  BE  CALCULATED  PROPERLY  - 

1309 

60 

c 

IN  THE  FLUX  SUBROUTINE 

1310 

61 

c 

1311 

62 

DTT  -  1.E24 

1312 

63 

c 
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1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 


1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 
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# 

1313 

64 

C  - 

-  FIND  THE  FLUXES  . 

1313 

1314 

65 

C 

1314 

1315 

66 

CALL  HYDRFL 

1315 

1316 

67 

C 

1316 

1317 

68 

DTT  -  DTT  *  CFL 

:3I7 

1318 

69 

TT  -  TT  +  DTT 

318 

1319 

70 

PRINT  *,JT.IT.ITT,IKT,DTT.TT.NS 

319 

• 

1320 

71 

C 

320 

1321 

72 

C  - 

-  INITIALIZE  THE  VERTEX  BASED  QUANTITIES  NEEDED  FOR  COARSENING  AND  - 

1321 

1322 

73 

C 

FOR  REFINEMENT.  AND  FOR  POST-PROCESSING 

1322 

1323 

74 

C 

1323 

1324 

75 

DO  210  IV  -  1  ,  NV 

1324 

1325 

76 

PR(  IV  )  -  0. 

1325 

1326 

77 

DO  210  IR  -  1  ,  MHQ 

1326 

1327 

78 

HYDVVV(  IV  .  IR  )  -  0. 

1327 

• 

1328 

79 

210 

CONTINUE 

1328 

1329 

80 

C 

1329 

1330 

81 

NSl  -  1 

1330 

1331 

82 

NS2  -  NOFVES(  1  ) 

1331 

1332 

83 

DO  no  INS  •  1  .  NVEES 

1332 

1333 

84 

C 

1333 

1334 

85 

DO  150  IS  -  NSl  .  NS2 

1334 

1335 

86 

KS  -  IS  -  NSl  +  1 

1335 

w 

1336 

87 

RRR(  KS  )  -  HYDV(  IS  .  1  ) 

1336 

1337 

88 

UUR(  KS  )  ■  HYOV{  IS  .  2  ) 

1337 

1338 

89 

VVR(  KS  )  «  HYDV(  IS  ,  3  ) 

1338 

1339 

90 

PPR(  KS  )  =  HYOV(  IS  .  4  ) 

1339 

1340 

91 

C 

1340 

1341 

92 

RRL(  KS  )  =  HYDFLX(  IS  .  1  ) 

1341 

1342 

93 

UUL(  KS  )  -  HYDFLXI  IS  ,  2  ) 

1342 

A 

1343 

94 

VVL(  KS  )  -  HYOFLX{  IS  .  3  ) 

1343 

w 

1344 

95 

PPL(  KS  )  -  HYDFLX(  IS  .  4  ) 

1344 

1345 

96 

C 

1345 

1346 

97 

XSAR{  KS  )  -  SAREA{  IS  ) 

1346 

1347 

98 

150 

CONTINUE 

1347 

1348 

99 

C 

1348 

1349 

100 

DO  170  KS  -  1  .  NOFVES(  INS  ) 

IS  -  KS  +  NSl  -  1 

1349 

1350 

101 

1350 

1351 

102 

GAHAG{  KS  )  -  HYOV(  IS  ,  5  ) 

1351 

W 

1352 

103 

HRGM  -  GAMAG(  KS  )  -  1, 

1352 

1353 

104 

c 

1353 

1354 

105 

RRH(  KS  )  -  RRR(  KS  ) 

1354 

1355 

106 

URH(  KS  )  =  RRR(  KS  )  •  UUR(  KS  ) 

1355 

1356 

107 

VRN(  KS  )  -  RRR(  KS  )  •  VVR{  KS  ) 

1356 

1357 

108 

EPN{  KS  )  •  PPR(  KS  )  /  HRGM  ♦  .5  *  RRR(  KS  )  • 

1357 

1358 

109 

.  (  UUR(  KS  )  •  UUR(  KS  )  + 

1358 

• 

1359 

110 

VVR(  KS  )  *  VVR(  KS  )  ) 

1359 

1360 

111 

170 

CONTINUE 

1360 

1361 

112 

113 

C 

1361 

X  JUc 

1363 

114 

C 

1363 

1364 

115 

C  — 

-  COMPUTING  THE  SOURCE  TERM  ASSOCIATED  WITH  AXI-SYHMETRIC  CASE  - 

1364 

1365 

116 

C 

1365 

1366 

117 

XYDUMY  -  1.  /  6,283185307 

1366 

1367 

118 

DO  188  KS  =  1  .  NOFVES{  INS  ) 

1367 

1368 

119 

XYRAD(  KS  )  =  XYDUMY 

1368 

1369 

120 

188 

CONTINUE 

1369 

1370 

121 

C 

1370 

1371 

122 

C  - 

-  Y-AXIS  IS  AXIS  OF  SYMMETRY  . 

1371 

1372 

123 

C 

1372 

1373 

124 

IF(  lAXSYM  .  EQ  .  2  )THEN 

1373 

1374 

■25 

DO  180  KS  «  1  ,  NOFVES(  INS  ) 

1374 

• 

1375 

,26 

IS  ■  KS  +  NSl  -  1 

1375 

1376 

■27 

XS2S  -  XS(  1  ,  15  ) 

1376 

1377 

128 

XYRAO(  KS  )  -  XS2S 

1377 

1378 

129 

1F(  XS2S  ,  GT  .  .0005  )  THEN 

1378 

1379 

130 

OTA  -  OTT  »  UUR(  KS  )  /  XS2S 

1379 

1380 

131 

RRN(  KS  )  =  RRN(  KS  )  •  (  1.  -  DTA  ) 

1380 

1381 

132 

ORN(  KS  )  -  URN(  KS  )  *  (  1.  -  OTA  ) 

1381 

1382 

133 

VRN(  KS  )  =  VRN(  KS  )  *  (  1.  -  DTA  ) 

1382 

• 

1383 

134 

EPN(  KS  )  >  EPN{  KS  )  *  (  1.  -  OTA  )  -  PPR(  KS  )  *  DTA 

1383 

1384 

135 

END  IF 

1384 

1385 

136 

180 

CONTINUE 

1385 

1386 

137 

C 

1386 
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1387 

138 

C  - 

-  X-AXIS  IS  AXIS  OF  SYMMETRY  . 

1387 

1388 

139 

C 

1388 

1389 

140 

ELSE!F(  lAXSYH  .  EQ  .  1  )THEN 

1389 

1390 

141 

00  182  KS  -  1  .  NOfVES(  INS  ) 

1390 

1391 

142 

IS  -  KS  +  NSl  -  1 

1391 

1392 

143 

XS2S  -  XS(  2  .  IS  ) 

1392 

1393 

144 

XYRA0(  KS  )  .  XS2S 

1393 

1394 

145 

IF(  XS2S  .  GT  .  .0005  )  THEN 

1394 

1395 

146 

OTA  -  DTT  •  VVR(  KS  )  /  XS2S 

1395 

1396 

147 

RRN{  KS  )  -  RfiN(  KS  )  •  (  1.  -  OTA  ) 

1396 

1397 

148 

URN(  KS  )  -  URN(  KS  )  *  (  1.  -  OTA  ) 

1397 

1398 

149 

VRN(  KS  )  =.  VRN{  KS  )  •  (  1.  -  OTA  ) 

1398 

1399 

150 

EPN(  KS  )  -  £PN(  KS  )  •  (  1.  -  OTA  )  -  PPR(  KS  )  *  OTA 

1399 

1400 

151 

END  IF 

1400 

1401 

152 

182 

CONTINUE 

1401 

1402 

153 

ENDIF 

1402 

1403 

154 

C 

1403 

1404 

155 

C  - 

-  COMPUTE  THE  EFFECT  OF  THE  BOUYANCy(GRAVITY)  TERM  . 

1404 

1405 

156 

C 

1405 

1406 

157 

GRAVTY  -  9.81 

1406 

1407 

158 

c 

1407 

1408 

159 

IF(  lOPBYN  .  EQ  .  2  )THEN 

1408 

1409 

160 

00  184  KS  -  1  ,  NOFVES{  INS  ) 

1409 

1410 

161 

OTA  -  DTT  *  RRR(  KS  )  *  GRAVTY 

1410 

1411 

162 

VRH(  KS  )  =  VRN(  KS  )  -  OTA 

1411 

1412 

163 

EPN(  KS  )  -  EPN(  KS  )  -  OTA  *  VVR(  KS  ) 

1412 

1413 

164 

184 

CONTINUE 

1413 

1414 

165 

C 

1414 

1415 

166 

ELSEIF(  lOPBYN  .  EQ  .  1  )THEH 

1415 

1416 

167 

00  186  KS  •  1  ,  NOFVESl  INS  ) 

1416 

1417 

168 

OTA  -  DTT  •  RRR(  KS  )  •  GRAVTY 

1417 

1418 

169 

URN(  KS  )  -  URN(  KS  )  -  OTA 

1418 

1419 

170 

EPM(  KS  )  -  EPN(  KS  )  -  OTA  •  UUR(  KS  ) 

1419 

1420 

171 

186 

CONTINUE 

1420 

1421 

172 

END  IF 

1421 

1422 

173 

C 

1422 

\1A 

Cmmm 

1424 

175 

C 

1424 

1425 

176 

C  - 

-  UPDATE  THE  HYDRODYNAMIC  QUANTITIES  . 

1425 

1426 

177 

c 

STORING  THE  FLUXES  FOR  THE  REFINEMENT/COARSENING  STEPS 

1426 

1427 

178 

c 

1427 

1428 

179 

DO  190  KS  -  1  .  NOFVES(  INS  ) 

1428 

1429 

180 

IS  •  KS  +  NSl  -  1 

1429 

1430 

181 

OTA  -  DTT  *  XSAR(  KS  ) 

1430 

1431 

182 

c 

1431 

1432 

183 

RRLL  "  RRL(  KS  ) 

1432 

1433 

184 

UULL  =  UUL{  KS  ) 

1433 

1434 

185 

VVLL  -  VVL(  KS  ) 

1434 

1435 

186 

RRN(  KS  )  -  RRN(  KS  )  -  RRLL  *  OTA 

1435 

1436 

187 

URN(  KS  )  =  URN(  KS  )  -  UULL  •  OTA 

1436 

1437 

188 

VRN(  KS  )  =  VRH(  KS  )  -  VVLL  *  OTA 

1437 

1438 

189 

c 

1438 

1439 

190 

PPLL  -  PPL(  KS  ) 

1439 

1440 

191 

HYOFLX(  IS  .  4  )  -  A0S(  PPLL  )  /  EPN(  KS  )  *  OTA 

1440 

1441 

192 

EPN(  KS  )  -  EPN(  KS  )  -  PPLL  •  OTA 

1441 

1442 

193 

c 

1442 

1443 

194 

190 

CONTINUE 

1443 

1444 

195 

C 

1444 

1445 

196 

00  202  IS  -  NSl  ,  NS2 

1445 

1446 

197 

KS  -  IS  -  NSl  +  1 

1446 

1447 

198 

ENERGY  «  1.  /  RRN(  KS  )  *  (  URN(  KS  )  *  URN(  KS  )  + 

1447 

1448 

199 

VRN{  KS  )  *  VRN(  KS  )  ) 

1448 

1449 

200 

TTH(  KS  )  -  EPN(  KS  )  -  .5  *  ENERGY 

1449 

1450 

201 

HYDFLX(  IS  ,  1  )  •  ENERGY  /  TTN(  KS  ) 

1450 

1451 

202 

HYDFLX(  IS  .  2  )  -  RRN(  KS  ) 

1451 

1452 

203 

C 

1452 

1453 

204 

202 

CONTINUE 

1453 

1454 

205 

C  - 

-  EQUATION  OF  STATE  FOR  AIR  . 

1454 

1455 

206 

c 

1455 

1456 

207 

IF(  lOPEOS  .  EQ  .  1  )THEN 

1456 

1457 

208 

CALL  EOS(  RRN  ,  TTN  ,  NOFVES(  INS  )  ,  GAHAG  ) 

1457 

1458 

209 

ELSE 

1458 

1459 

210 

ENOIF 

1459 

1460 

211 

c 

1460 
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1461 

212 

C  - 

-  ACCUMULATE  VALUES  AT  THE  VERTICES  FOR  ADAPTATION  AND  ALSO  . 

1461 

1462 

213 

c 

FOR  POST-PROCESSING 

1462 

1463 

214 

c 

1463 

1464 

215 

DO  220  KS  -  1  ,  NOFVES(  INS  ) 

1464 

1465 

216 

IS  -  KS  +  NSl  -  1 

1465 

1466 

217 

c 

1466 

1467 

218 

IVl  -  JS{  1  ,  IS  ) 

1467 

1468 

219 

IV2  -  JS(  2  .  IS  ) 

1468 

1469 

220 

IV3  -  JS(  3  .  IS  ) 

1469 

1470 

221 

c 

1470 

1471 

222 

VOLUME  -  6.283185307  *  XYRAD(  KS  ) 

1471 

1472 

223 

c 

1472 

1473 

224 

XYAREA  -  XS(  3  .  IS  )  *  VOLUME 

1473 

1474 

225 

XYFDR  -  XYAREA  *  RRH(  KS  ) 

1474 

1475 

226 

XYFDU  -  XYAREA  *  URN(  KS  ) 

1475 

1476 

227 

XYFDV  •  XYAREA  *  VRN(  KS  ) 

1476 

1477 

228 

XYFDP  -  XYAREA  *  EPN(  KS  ) 

1477 

1478 

229 

XYFOG  -  XYAREA  *  GAHAG(  KS  ) 

1478 

1479 

230 

c 

1479 

1480 

231 

KYOVVV(  IVl  .  1  )  .  HYOVW(  IVl  .  1  )  +  XYFDR 

1480 

1481 

232 

HYDVVV(  IVl  .  2  )  -  HYOVVV(  IVl  .  2  )  +  XYFDU 

1481 

1482 

233 

HYOVVV(  IVl  .  3  )  -  HYOVVV(  IVl  .  3  )  +  XYFDV 

1482 

1483 

234 

HYDVVV(  IVl  .  4  )  .  HYDWV(  IVl  .  4  )  +  XYFDP 

1483 

1484 

235 

HYOVVV(  IVl  .  5  )  -  HYDVVV(  IVl  ,  5  )  +  XYFDG 

1484 

1485 

236 

PR(  IVl  )  -  PR(  IVl  )  +  XYAREA 

1485 

1486 

237 

c 

1486 

1487 

238 

HYOVVV(  IV2  .  1  )  >  HYDWV(  IV2  ,  1  )  +  XYFDR 

1487 

1488 

239 

HYDWV(  IV2  ,  2  )  >  HYDVVVI  1V2  ,  2  )  +  XYFDU 

1488 

1489 

240 

HYDVVV(  1V2  .  3  )  -  HYOVVV(  1V2  .  3  )  +  XYFDV 

1489 

1490 

241 

HYDVVV(  IV2  .  4  )  -  HYDVVV(  IV2  .  4  )  +  XYFDP 

1490 

1491 

242 

HYDVVV(  1V2  .  5  )  -  HYDWV(  IV2  .  5  )  +  XYFOG 

1491 

1492 

243 

PR{  IV2  )  -  PR{  IV2  )  +  XYAREA 

1492 

1493 

244 

c 

1493 

1494 

245 

HYDVWI  IV3  .  1  )  -  HYOVW(  IV3  .  1  )  +  XYFDR 

1494 

1495 

246 

HYOWVI  IV3  ,  2  )  -  HYOVVV(  IV3  .  2  )  +  XYFDU 

1495 

1496 

247 

HYDVVV(  IV3  .  3  )  -  HYOVVV(  IV3  .  3  )  ♦  XYFDV 

1496 

1497 

248 

HYDVVV(  IV3  ,  4  )  -  HYOWV(  IV3  ,  4  )  +  XYFDP 

1497 

1498 

249 

HYDWV(  IV3  .  5  )  -  HYDVVV(  IV3  .  5  )  +  XYFDG 

1498 

1499 

250 

PR(  IV3  )  •  PR(  IV3  )  +  XYAREA 

1499 

1500 

251 

c 

1500 

1501 

252 

lENUHR  •  0 

1501 

1502 

253 

lEl  -  IABS(  JS(  4  ,  IS  )  ) 

1502 

1503 

254 

IJE5  -  JE(  5  .  lEl  ) 

1503 

1504 

255 

IF(  IJE5  .  NE  .  0  )  THEN 

1504 

1505 

256 

lENUMR  "  lENUMR  +  1 

1505 

1506 

257 

IEDIST(  lENUHR  )  -  lEl 

1506 

1507 

258 

END  IF 

1507 

1508 

259 

IE2  -  IABS(  JS{  5  .  IS  )  ) 

1508 

1509 

260 

IJE5  -  JE{  5  .  IE2  ) 

1509 

1510 

261 

1F(  IJE5  .  NE  .  0  )  THEN 

1510 

1511 

262 

lENUHR  -  lEHUMR  +  1 

1511 

1512 

263 

IEOIST(  lENUHR  )  -  IE2 

1512 

1513 

264 

END  IF 

1513 

1514 

265 

1E3  -  IABS(  JS(  6  .  IS  )  ) 

1514 

1515 

266 

IJE5  -  JE(  5  .  IE3  ) 

1515 

1516 

267 

1F(  IJE5  .  NE  .  0  )  THEN 

1516 

1517 

268 

lENUMR  °  lENUHR  +  1 

1517 

1518 

269 

IEDIST(  lENUMR  )  .  1E3 

1518 

1519 

270 

END  IF 

1519 

1520 

271 

c 

1520 

1521 

272 

IF(  lENUMR  .  NE  .  0  )  THEN 

1521 

1522 

273 

DO  322  IK  -  1  ,  lENUMR 

1522 

1523 

274 

lEK  -  IEDIST(  lENUMR  ) 

1523 

1524 

275 

IJE55  -  JE(  5  ,  lEK  ) 

1524 

1525 

276 

RRNN  •  RRN(  KS  ) 

1525 

1526 

277 

URNN  .  URN(  KS  ) 

1526 

1527 

278 

VRNN  -  VRN(  KS  ) 

1527 

1528 

279 

EPNN  =  EPN(  KS  ) 

1528 

1529 

280 

c 

IF(  IJE55  .  EO  .  6  ,  OR  .  IJE55  .  EO  .  5  )  THEN 

1529 

1530 

281 

c 

UUVV  -  -  (  URN(  KS  )  *  XN(  lEK  )  + 

1530 

1531 

282 

c 

VRN(  KS  )  *  YN(  lEK  )  ) 

1531 

1532 

283 

c 

VVUU  -  -  URN(  KS  )  *  YN{  lEK  )  ♦ 

1532 

1533 

284 

c 

VRNI  KS  )  •  XN(  lEK  ) 

1533 

1534 

285 

c 

URNN  =  UUVV  *  XN(  lEK  )  -  VVUU  •  YH(  lEK  ) 

1534 
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1535 

286 

C 

VRNN  -  UUVV  •  YN(  lEK  )  +  VVUU  *  XN(  lEK  ) 

1535 

1536 

287 

C 

ELSE  IF(  IJE55  .  EQ  .  8  )  THEN 

1536 

1537 

288 

C 

RRNN  •  RIN 

1537 

1538 

289 

C 

URNN  •  RIN  *  UIN 

1538 

1539 

290 

C 

VRNN  -  RIN  *  VIN 

1539 

1540 

291 

C 

EPNN  -  PIN  /  HRGH  +  .5  •  RIN  *  UVIN  *  UViM 

1540 

1541 

292 

C 

END  IF 

1541 

1542 

293 

C 

1542 

1543 

294 

XYFWl  -  XYAREA  *  RRNN 

1543 

1544 

295 

XYFDU  -  XYAREA  *  URNN 

1544 

1545 

296 

XYFDV  -  XYAREA  *  VRNN 

1545 

1546 

297 

XYFDP  -  XYAREA  *  EPNN 

1546 

1547 

298 

XYFOG  •  XYAREA  •  GAMAG(  KS  ) 

1547 

1548 

299 

C 

1548 

1549 

300 

IVl  -  JE(  1  .  lEK  ) 

1549 

1550 

301 

IV2  -  J£(  2  .  lEK  ) 

1550 

1551 

302 

HYDVW{  IVl  .  1  )  -  HYOWV(  IVl  .  1  )  +  XYFDR 

1551 

1552 

303 

HYOWV(  IVl  .  2  )  -  HYOVW(  IVl  ,  2  )  +  XYFDU 

1552 

1553 

304 

KYCWV(  IVl  .  3  )  -  HY0VW(  IVl  .  3  )  +  XYFDV 

1553 

1554 

305 

HYDWV(  IVl  .  4  )  -  HYDVW(  IVl  .  4  )  +  XYFDP 

1554 

1555 

306 

HYDVW(  IVl  ,  5  )  -  HYOVW(  IVl  .  5  )  +  XYFOG 

1555 

1556 

307 

PR(  IVl  )  -  PR(  IVl  )  +  XYAREA 

1556 

1557 

308 

C 

1557 

1558 

309 

HYDVW(  IV2  .  1  )  -  HYOWVI  IV2  .  1  )  +  XYFDR 

1558 

1559 

310 

HVDWV(  IV2  .  2  )  -  HYOWVI  IV2  ,  2  )  +  XYFDU 

1559 

1560 

311 

HYOWV(  IV2  .  3  )  -  HYDWVI  IV2  .  3  )  +  XYFDV 

1560 

1561 

312 

HYOVW(  IV2  ,  4  )  -  HYOVW(  1V2  .  4  )  +  XYFDP 

1561 

1562 

313 

HYOWV(  1V2  ,  5  )  -  HYOWVI  1V2  ,  5  )  +  XYFDG 

1562 

1563 

314 

PR(  IV2  )  -  PR(  IV2  )  +  XYAREA 

1563 

1564 

315 

322 

CONTINUE 

1564 

1565 

316 

END  IF 

1565 

1566 

317 

C 

1566 

1567 

318 

220 

CONTINUE 

1567 

1568 

319 

C 

1568 

1569 

320 

C  — 

CONSTRUCT  NONCONSERVED  HYOROIYNAHIC  QOATITIES  . 

1569 

1570 

321 

C 

1570 

1571 

322 

00  195  IS  -  NSl  .  NS2 

1571 

1572 

323 

KS  •  IS  -  NSl  ♦  1 

1572 

1573 

324 

HOUM  •  1.  /  RRN(  KS  ) 

157i 

1574 

325 

HYOVI  IS  ,  1  )  -  RRN(  KS  ) 

1574 

1575 

326 

HYOVI  IS  .  2  )  -  URH(  KS  )  •  H0W1 

1575 

1576 

327 

HYOVI  IS  .  3  )  -  VRNI  KS  )  *  HDUM 

1576 

1577 

328 

HYOVI  IS  ,  5  )  -  GAHAGI  KS  ) 

1577 

1578 

329 

HYOVI  IS  .  4  )  -  TTNI  KS  )  *  I  HYOVI  IS  ,  5  )  -  1.  ) 

1578 

1579 

330 

195 

CONTINUE 

1579 

1580 

331 

C 

1580 

1581 

332 

NSl  -  NS2  +  1 

1581 

1582 

333 

NS2  -  NS2  ♦  NOFVESI  INS  ♦  1  ) 

1582 

1583 

334 

110 

CONTINUE 

1583 

1584 

335 

c 

1584 

1585 

336 

c  — 

END  OF  LOOP  OVER  TRIANGLES . . 

1585 

1586 

337 

c 

1586 

r-  _  . 

-  1587 

130/ 

^JO 

1588 

339 

c 

1588 

1589 

340 

c  — 

CALL  FOR  PARTICLE  TRACERS  . 

1589 

1590 

341 

c 

1590 

1591 

342 

I  FI  MPRTCL  .  EQ  .  1  )THEH 

1591 

1592 

343 

c 

1592 

1593 

344 

CALL  PRPTHC 

1593 

1594 

345 

c 

1594 

1595 

346 

ENDIF 

1595 

1596 

347 

c 

1596 

1597 

348 

c  — 

END  OF  INNER  LOOP  OVER  ...  KDUMP  ...  . 

1597 

1598 

349 

c 

1598 

r 

-  1599 

13^7 

1600 

351 

c 

1600 

1601 

352 

c  — 

NORMALIZE  CONSERVATIVE  VERTEX  BASED  QUANTITIES  . 

1601 

1602 

353 

c 

1602 

1603 

354 

DO  230  IV  -  1  .  NV 

1603 

1604 

355 

VAREA  .  i.  /  PRI  IV  ) 

1604 

1605 

356 

00  230  in  =  1  .  MHQ 

1605 

1606 

357 

HYOWVI  IV  ,  IR  )  »  HYOWVI  IV  .  IR  )  •  VAREA 

1606 

1607 

358 

230 

CONTINUE 

1607 

1608 

359 

c 

1608 
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1609 

360 

142 

CONTINUE 

1609 

1610 

361 

C  - 

-  WRITE  THE  DUMP  FILE  DATA  FOR  POST-PROCESSING  . 

1610 

1611 

362 

C 

1611 

1612 

363 

IF(  IT  .  EQ  .  MOUMP  .  AND  .  ITT  .  EQ  .  NDUMP  )  THEN 

1612 

1613 

364 

WRITE  (9)  HV.NE.NS.NPT.NTIHE 

1613 

1614 

365 

WRITE  (9)  ({XV(IK,IV).IK-1.2).1V-1,NV) 

1614 

1615 

366 

WRITE  (9)  (JV(2.1V).IU.1,NV) 

1615 

1616 

367 

WRITE  (9)  {(JE(KK.IE).KK.1.5).IE>1,NE) 

1616 

1617 

368 

WRITE  (9)  {(JS(KK.IS).KK-1.6).IS-1.NS) 

1617 

1616 

369 

WRITE  (9)  ((XS(KK.IS).KK-1.2).IS-1.NS) 

1618 

1619 

370 

WRITE  (9)  RIN.PIN.UVIH.UIN.VIN.TT.IOPLFT 

1619 

1620 

371 

WRITE  (9)  ({HY0V(IS.IK).1K.1.5).IS-1.NS) 

1620 

1621 

372 

C 

1621 

1622 

373 

C  - 

-  WRITE  OUT  PARTICLE  TRACER  DATA  . 

1622 

1623 

374 

C 

1623 

1624 

375 

IF(  MPRTCL  .  EQ  .  1  )THEN 

1624 

1625 

376 

WRIIE  (9)  ((XPRTCLdK.IPT), IK-1.2). IPT-l.NPT), 

1625 

1626 

377 

( (WPRTCK IK.  IPT) .  IK-1 , 2 ) .  IPT-1  .NPT) 

1626 

1627 

378 

EKIIF 

1627 

1628 

379 

C 

1628 

1629 

380 

C  - 

-  PRINT  CONSOLE  MESSAGE  AT  END  OF  LOOP  - 

1629 

1630 

381 

C 

1630 

1631 

382 

PRINT  *  ,  JT.NV.NE.NS 

1631 

1632 

383 

C 

1632 

1633 

384 

END  IF 

1633 

1634 

385 

C 

1634 

Ilk'll; 

C^mm 

1636 

387 

C 

1636 

1637 

388 

c 

I - 1 

1637 

1638 

389 

c 

I  REFINEMENT/AOOITION  OF  POINTS  I 

1638 

1639 

390 

c 

I - 1 

1639 

1640 

391 

c 

1640 

1641 

392 

c 

1641 

1642 

393 

c  - 

-  CALCULATE  THE  GRADIENT  OF  THE  MACH  NUMBER  FOR  STEADY  STATE  . 

1642 

1643 

394 

c 

ADAPTIVE  STEP  AND  GENERATE  THE  QUANTITIES  ON  WHICH  HE  ADAPT, 

1643 

1644 

395 

c 

1644 

1645 

396 

c  - 

-  ADAPTATION  TO  STATIC  QUANTITIES  BASED  OH  GRADIENTS  OF  — - 

1645 

1646 

397 

c 

MACH  NUMBER.  PRESSURE.  AND  DENSITY.  OVERRIDES 

1646 

1647 

398 

c 

ADAPTATION  ON  DYNAMIC  FLUXES  OF  ENERGY  AND  DENSITY 

1647 

1648 

399 

c 

1648 

1649 

400 

IF(  ISTATC  .  EQ  .  1  )  THEN 

1649 

1650 

401 

CALL  GROFLX 

1650 

1651 

402 

DO  240  IS  -  1  .  NS 

1651 

1652 

403 

HYDFLX(  IS  .  1  )  -  ABS(  PL(  IS  )  )  +  ABS(  PR(  IS  )  ) 

1652 

1653 

404 

HYOFLXl  IS  .  2  )  -  ABS{  RL(  IS  )  )  +  ABS(  RR(  IS  )  ) 

1653 

1654 

405 

HYDFLX(  IS  .  4  )  -  ABS(  VL{  IS  )  )  +  ABS(  VR(  IS  )  ) 

1654 

1655 

406 

240 

CONTINUE 

1655 

1656 

407 

C 

1656 

1657 

408 

ELSE 

1657 

1658 

409 

C 

1658 

1659 

410 

CALL  GRDENG 

1659 

1660 

411 

00  242  IS  •  1  .  NS 

1660 

1661 

412 

HYDFLX(  IS  .  1  )  =■  (  UL(  IS  )  •  UL(  IS  )  +  UR{  IS  )  *  UR( 

IS  )  )  / 

1661 

1662 

413 

(  HYDFLX(  IS  .  1  )  ♦  l.E-12  ) 

1662 

1663 

414 

HYOFLX(  IS  .  2  )  =  (  RL(  IS  )  *  RL(  IS  )  ♦  RR(  IS  )  •  RR( 

IS  )  )  / 

1663 

1664 

415 

(  HYDFLXI  IS  .  2  )  +  l.E-12  ) 

1664 

1665 

416 

HYDFLX(  IS  ,  4  )  -  (  VL(  IS  )  *  VL(  IS  )  +  VR(  IS  )  *  VR( 

IS  )  )  / 

1665 

1666 

417 

(  HYOFLX(  IS  .  4  )  +  l.E-12  ) 

1666 

1667 

418 

CM 

CM 

CONTINUE 

1667 

1668 

419 

END  IF 

1668 

1669 

420 

C 

1669 

1670 

421 

DYOMOM  -  HYDFLX(  1.4) 

1670 

1671 

422 

DO  250  IS  -  1  .  NS 

1671 

1672 

423 

DYOMOM  -  AMAXK  DYDMOM  .  HYOFLX(  IS  .  4  )  ) 

1672 

1673 

424 

250 

CONTINUE 

1673 

1674 

425 

HY0M0H(  4  )  -  .5  •  (  DYDMOM  *  HYDHOM(  4  )  ) 

1674 

1675 

426 

PRINT*. HYDHOMI  4  ) 

1675 

1676 

427 

C 

1676 

1677 

428 

DYOMOM  -  HYOFLX(  1.2) 

1677 

1678 

429 

DO  260  IS  -  1  .  NS 

1678 

1679 

430 

DYDMOM  -  AMAXK  DYOMOM  .  HY0FLX(  IS  .  2  )  ) 

1679 

1680 

431 

260 

CONTINUE 

1680 

1681 

432 

HYDMWt  2  )  -  .5  *  (  DYDMOM  HYDMOM(  2  )  ) 

1681 

1682 

433 

PRINT*, HY0M0M(  2  ) 

1682 
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1683  434  C  1683 

1684  435  DYOHOM  -  HY0FLX(  1,1}  1684 

1685  436  DO  270  IS  -  1  .  NS  1685 

1686  437  DYOMOH  -  AMAX1{  DYOMOH  .  HYDFLX(  IS  .  1  )  }  1686 

1687  438  270  CONTINUE  1687 

1688  439  HYOMOMI  1  )  -  .5  •  (  OYOMOM  +  HYOMOM(  1  )  )  1688 

1689  440  PRINT*,  HY»«)M(  1  )  1689 

1690  441  C  1690 

1691  442  C  —  REFINEMENT  STEP  DONE  HERE . 1691 

1692  443  C  1692 

1693  444  IF(IOPADO.EQ.l)  THEN  1693 

1694  445  NOFDIV  •  4  1694 

1695  446  CALL  DYHPTN(  AREADD  .  NOFDIV  .  IJKIJK  .  LTRIG  )  1695 

1696  447  NOFDIV  -  2  1696 

1697  448  CALL  DYYPTN(  AREAM  .  NOFDIV  ,  IJKIJK  .  LTRIG  )  1697 

16%  449  NOFDIV  -  1  1698 

1699  450  CALL  DYYPTN{  AREADD  .  NOFDIV  ,  IJKIJK  .  LTRIG  )  1699 

1700  451  CALL  DYYPTN(  AREADO  .  NOFDIV  .  IJKIJK  .  LTRIG  )  1700 

1701  452  C  1701 

1702  453  PRINT*. NV.NE, NS  1702 

1703  454  ENDIF  1703 

1704  455  140  CONTINUE  1704 

1705  456  C  1705 

1706  457  C  —  END  OF  OUTER  LOOP  DEFINED  BY  ...NDUMP...  .  1706 

1707  458  C  1707 

1708  459  C— - — - - — — - - - - — —  1708 

1709  460  C  1709 

1710  461  C  1 - 1  1710 

1711  462  C  I  COARSENING/DELETION  OF  POINTS  I  1711 

1712  463  C  I - 1  1712 

1713  464  C  1713 

1714  465  C  1714 

1715  466  IF(IOPOEL.Eq.l)THEN  1715 

1716  467  IF(  IJKIJK  .  GT  .  19  )  CALL  DELPTNT(  AREDEL  ,  IJKIJK  )  1716 

1717  468  PRINT*, NV.NE. NS  1717 

1718  469  ENDIF  1718 

1719  470  130  CONTINUE  1719 

1720  471  C  1720 

1721  472  C  —  END  OF  OUTERMOST  LOOP  DEFINED  BY  ...MOUMP...  .  1721 

1722  473  C  1722 

1723  474  C-— — — — — — - - — — ^ 1723 

1724  475  C  1724 

1725  476  C  I - 1  1725 

1726  477  C  1  DIAGNOSTIC  FOR  LIFT/ORAG  I  1726 

1727  478  C  I - 1  1727 

1728  479  C  1728 

1729  480  1F(I0PLFT.EQ.1)THEN  1729 

1730  481  CALL  LIFTDR  1730 

1731  482  ENDIF  1731 

1732  483  C  1732 

1733  484  C - - 1733 

1734  485  C  1734 

1735  486  C  I - 1  1735 

1736  487  C  1  OUTPUT  FILE  FOR  RESTARTS  I  1736 

1737  488  C  I . I  1737 

1738  489  C  1738 

1739  490  C  1739 

1740  491  REWIND  88  1740 

1741  492  ITERAT  -  HERAT  +  1  1741 

1742  493  WRITE  (88)  NV.NVMK.NE,NEHK,NS,NSHK, ITERAT  1742 

1743  494  WRITE  (88)  ((JV(KK.1V),KK-1.2).(XV(IK,1V).1K-1.2),1V-1,NV)  1743 

1744  495  WRITE  (88)  ((JE(KK.IE).KK-1,5),(XE(KI.IE).KI-1,2),IE-1,NE)  1744 

1745  496  WRITE  (88)  (XN(1E),YN(1E).XXN(IE).YYN(IE),1E-1,NE)  1745 

1746  497  WRITE  (88)  ((JS(KK,IS).KK-1.6).(XS(KI,IS),KI-1.3),1S-1.NS)  1746 

1747  498  WRITE  (88)  (XMI0L(1E),YM1DL(IE).XYMI0L(IE). IE-1, NE)  1747 

1748  499  WRITE  (88)  SAREVG.NVECE.NREME.NVECV.NREHV.NVECS.NREMS  1748 

1749  500  WRITE  (88)  RIN.PIN.RINL.PINL.UVIN.UIN.VIN.TT.  1749 

1750  501  ,  HY0H0H(1),HYDM0M(2),HYDH0H(4)  1750 

1751  502  WRITE  (88)  ((HY0V(IS,IK),IK-1,5).IS-1.NS)  1751 

1752  503  WRITE  (88)  ((HYOVVV(IV, IK). 1K«1.5),IV-1.NV)  1752 

1753  504  tfflITE  (88)  IJKIJK, (KSDELT(IS), IS-l, NS)  1753 

1754  505  IF(  HPRTCL  .  £0  .  1  )  1754 

1755  506  .  WRITE  (88)  NPT,((XPRTCL(IK,IPT),1K-1.2).1PT-1,NPT),  1755 

1756  507  .  (IJKPRT(IPT).IPT-l.NPT)  1756 
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1757 

508 

C 

1757 

1758 

509 

REWIND  8 

1758 

1759 

510 

WRITE  (8)  NV.NVMK.NE.NEHK.NS.NSMK, HERAT 

1759 

1760 

511 

WRITE  (8)  ((JV(KK,1V),KK-1,2),(XV(IK,IV), IK-1,2), IV-1,NV) 

1760 

1761 

512 

WRITE  (8)  ((JE(KK.IE).KK-1,5),(XE(KI,1E).KI-1,2).IE-1,NE) 

1761 

1762 

513 

WRITE  (8)  (XN(IE),YN(IE).XXN(IE).YYN(IE).1E-1,NE) 

1762 

1763 

514 

WRITE  (8)  ((JS(KK,IS),KK-1,6),(XS(KI,1S),KI-1.3).IS-1,NS) 

1763 

1764 

515 

WRITE  (8)  (XHIDL(IE}.YMI0L(IE).XYMI0L(IE),IE»1,NE) 

1764 

1765 

516 

WRITE  (8)  SAREVG.NVECE.NREHE.NVECV.NREMV.NVECS.NREHS 

1765 

1766 

517 

WRITE  (8)  RIN.PIN,RINL,PIKL,UVIH,UIN,VIM.TT. 

1766 

1767 

518 

HYOMOMC 1 ) , HYDM0M(2 ) , HYDM0M(4) 

1767 

1768 

519 

WRITE  (8)  ((HYDV{IS,IK), IK-1,5), IS-1, NS) 

1768 

1769 

520 

WRITE  (8)  ((HY0VVV(1V.IK).IK-1.5).IV-1,NV) 

1769 

1770 

521 

WRITE  (8)  IJKIJK,(KS0ELT(IS).IS-1,NS) 

1770 

1771 

522 

IF(  HPRTCL  .  EQ  .  1  ) 

1771 

1772 

523 

.  WRITE  (8)  NPT,({XPRTCL(IK.IPT),IK-1,2),!PT-1,NPT), 

1772 

1773 

524 

(IJKPRT(1PT),IPT-1,NPT) 

1773 

1774 

525 

C 

1774 

1775 

526 

120 

CONTINUE 

1775 

1776 

527 

C 

1776 

1777 

528 

C  — 

END  MAIN  SEQUENCE  LOOP  DEFINED  BY  ...NTIME... . 

1777 

1778 

529 

C 

1778 

1770 

C  ' 

1  770 

1780 

531 

c 

1780 

1781 

532 

c  — 

EXIT  POINT  FROM  SUBROUTINE  . . 

1781 

1782 

533 

c 

1782 

1783 

534 

c 

1783 

1784 

535 

RETURN 

1784 

1785 

536 

c 

1785 

1786 

537 

c 

1786 

1787 

538 

c  — 

FORMATS  - - 

1787 

1788 

539 

c 

1788 

1789 

540 

c 

1789 

1790 

541 

END 

1790 
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1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 
1801 
1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 
1811 
1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 
1821 
1822 

1823 

1824 

1825 

1826 
1827 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 


SUBROUTINE  GEOHTR 
C 

C - - 

c 

C  GEOMTR  CWIPUTE  GEOMETRICAL  PARAMETERS  TO  COMPLETE  THE  GRID 
C  DEFINITION  HEEDED  BY  THE  CODE. 

C 

C 

C . 

c 

include  'cmshOO.h' 

Include  'chydOO.h' 

Include  'cintOO.h' 

include  'cphslO.h' 

include  'cphs20.h' 

C 

C.............. - - - - 

c 

REAL  XELEFT(MBP).YELEFT(K8P).X£RIGT(HBP).Y£RIGT(HBP) 

C 

C.— — - - - - - - - - - - - - 

C 

C 

c  —  make  SURE  THAT  THE  DOMAIN  IS  ALWAYS  TO  THE  LEFT  OF  BOUNDARY 
C  EDGES  BY  ORIENTING  THEM  CORRECTLY, 

C 

DO  105  IE  -  1  ,  NE 
IJE5  -  JE(  5  .  IE  ) 

IF(  IJE5  .  NE  ,  0  )  THEN 
ISR  -  JE(  4  ,  IE  ) 

IF(  ISR  .  NE  .  0  )  THEN 
1V2  -  JE(  1  .  IE  ) 

IVl  -  JE(  2  .  IE  ) 

JE{  1  .  IE  )  -  IVl 

JE(  2  ,  IE  )  -  IV2 

JE(  3  ,  IE  )  -  ISR 

JE(  4  ,  IE  )  -  0 


1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 
1801 
1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 
1811 
1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 
1821 
1822 

1823 

1824 

1825 

1826 
1827 


page  25 


^  Thu  Jul 

1  14:15:40  1993  malnhd.f  SUBROUTINE  GEOHTR 

page  26 

1828 

38 

DO  106  IR  -  1  ,  3 

1828 

1829 

39 

JEE  ■  IABS{  JS(  IR  +  3  .  ISR  )  ) 

1829 

1830 

40 

1F(  JEE  .  EQ  .  IE  )  JS(  IR  +  3  .  ISR  )  -  IE 

1830 

1831 

41 

106 

CONTINUE 

1831 

1832 

42 

ENDIF 

1832 

1833 

43 

ENDIF 

1833 

i  1834 

44 

105 

CONTINUE 

1834 

1835 

45 

C 

1835 

1836 

46 

c  — 

FIND  UNIT  VECTORS  NORMAL  TO  THE  EDGES  - 

1836 

1837 

47 

c 

AM)  EDGE  CROSSING  OF  LINE  BETWEEN  TRIANGLE  BARICENTERS 

1837 

1838 

48 

c 

AND  ALSO  TRIANGLE  AREAS. 

1838 

1839 

49 

c 

1839 

1840 

50 

NEl  -  1 

1840 

.  1841 

51 

NE2  -  NOFVEE{  1  ) 

1841 

1  1842 

52 

DO  110  INE  •  1  ,  NVEEE 

1842 

1843 

53 

00  140  IE  •  NEl  .  NE2 

1843 

1844 

54 

KE  -  IE  -  NEl  ♦  1 

1844 

1845 

55 

IVl  -  JE(  1  .  IE  ) 

1845 

1846 

56 

IV2  -  JE{  2  ,  IE  ) 

1846 

1847 

57 

ISL  -  JE(  3  .  IE  ) 

1847 

1848 

58 

ISR  -  JE(  4  .  IE  ) 

1848 

^  1849 

59 

c 

1849 

f  1850 

60 

c  — 

FIND  UNIT  VECTOR  NORMAL  TO  AN  EDGE  - 

18»} 

1851 

61 

c 

STORED  IN  XN(IE).YN(IE) 

1851 

1852 

62 

c 

1852 

1853 

63 

0X0  -  XV(  1  .  IV2  )  -  XV(  1  .  IVl  ) 

1853 

1854 

64 

OYD  -  XV(  2  .  IV2  )  -  XV(  2  .  IVl  ) 

1854 

1855 

65 

XE(  1  .  IE  )  -  SQRT(  OXD  *  OXD  ♦  OYD  *  OYD  ) 

1855 

1856 

66 

XEY  -  1.  /  XE(  1  ,  IE  ) 

1856 

.  1857 

67 

XO  •  0X0  •  XEY 

1857 

f  1858 

68 

YD  -  OYO  •  XEY 

1858 

1859 

69 

c 

1859 

1860 

70 

XH(  IE  )  -  YD 

1860 

1861 

71 

YN(  IE  )  -  -  XO 

1861 

1862 

72 

c 

1862 

1863 

73 

IJE5  -  JE(  5  ,  IE  ) 

1863 

1864 

74 

c 

1864 

>  1866 

76 

c 

1866 

1867 

77 

c  — 

BOUNDARY  TRIANGLES - - 

1867 

1868 

78 

c 

1868 

1869 

79 

IF(  IJE5  .  NE  .  0  )  THEN 

1869 

1870 

80 

IV3  -  JS(  1  ,  ISL  ) 

1870 

1871 

81 

IF(  IV3  .  EQ  .  IVl  .  OR  .  IV3  .  EQ  .  1V2  )  IV3  -  JS(  2  , 

ISL  ) 

1871 

1872 

82 

IF(  IV3  .  EQ  .  IVl  .  OR  .  IV3  .  EQ  .  IV2  )  IV3  •  JS(  3  , 

ISL  ) 

1872 

1873 

83 

XELEFT(  KE  )  -  (  XV(  1  .  IV3  )  +  XV(  1  .  IV2  )  + 

1873 

'  1874 

84 

XV{  1  .  IVl  )  )  *  THIRD 

1874 

1875 

85 

YELEFT(  KE  )  -  (  XV(  2  .  IV3  )  +  XV{  2  ,  IV2  )  + 

1875 

1876 

86 

XV(  2  ,  IVl  )  )  *  THIRD 

1876 

1877 

87 

c 

1877 

1878 

88 

AA  -  XV(  1  .  IV2  )  -  XV(  1  .  IVl  ) 

1878 

1879 

89 

BB  -  XV(  2  .  1V2  )  -  XV(  2  .  IVl  ) 

1879 

1880 

90 

CC  -  XELEFT(  KE  )  -  XV(  1  .  IVl  ) 

1880 

k  1881 

91 

DO  -  YELEFT(  KE  )  -  XV(  2  .  IVl  ) 

1881 

f  1882 

92 

EE  -  (  AA  •  CC  +  BB  *  00  )  *  XEY  *  XEY 

1882 

1883 

93 

XERIGT(  KE  )  -  XV(  1  ,  IVl  )  t  AA  *  EE 

1883 

1884 

94 

YERIGT(  KE  )  -  XV(  2  ,  IVl  )  +  BB  *  EE 

1884 

1885 

95 

c 

1885 

1886 

96 

0X0  -  XER1GT(  KE  )  -  XELEFT(  KE  ) 

1886 

1887 

97 

DYD  -  YERIGT(  KE  )  -  YELEFT(  KE  ) 

1887 

1888 

98 

XE{  2  ,  IE  )  -  SQRT(  OXD  *  DXO  ♦  OYD  *  DYD  ) 

1888 

1  1889 

99 

c 

1889 

1890 

100 

c  — 

UNIT  VECTOR  FROM  LEFT  TO  RIGHT  BARI-CENTER  AT  INTERFACE  - 

1890 

1891 

101 

c 

STORED  IN  XXN(IE).YYN(IE) 

1691 

1892 

102 

c 

1892 

1893 

103 

XY  -  1.  /  XE(  2  ,  IE  ) 

1893 

1894 

104 

XXN(  IE  )  -  0X0  •  XY 

1894 

1895 

105 

YYN{  IE  )  -  OYO  *  XY 

1895 

1896 

106 

c 

1896 

,  1897 

107 

c  — 

LENGTH  OF  LINE  BETWEEN  BARI-CENTERS  . 

1897 

1898 

108 

c 

STORED  IN  XE(2.IE) 

1898 

1899 

109 

c 

1899 

1900 

no 

XE(  2  .  IE  )  -  2.  •  XE(  2  .  IE  ) 

1900 

1901 

111 

c 

1901 

1 
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1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 
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112  C  —  COORDINATES  OF  BARI-CENTERS  FOR  EACH  TRIANGLE  . 

113  C  STORED  IN  XS(1.IS).XS(2.1S) 

114  C 

115  XS(  1  ,  ISL  )  -  XELEFT(  KE  ) 

116  XS(  2  .  ISL  )  -  YELEFT(  KE  ) 

117  C 

118  C  —  INTERSECTION  POINT  ON  INTERFACE  FOR  LINE  CONNECTING  BARI-CENTERS  - 

119  C  STORED  IN  XH10L(IE).YMIDL(IE)  AND  FRACTION  OF  LENGHT  BETWEEN 

120  C  LEFT  BARI -CENTER  TO  INTERSECTION  POINT  IN  XYHIDL(IE). 

121  C 

122  XYHIOL(  IE  )  -  .5 

123  XMIDL{  IE  )  •  X£RIGT(  KE  ) 

124  YHIOL(  IE  )  -  YERIGT(  KE  ) 

125  C 

i-jc  r _ _ _ _ _ _ 
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1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1917 

127 

C 

ivXD 

1917 

1918 

128 

C 

1918 

1919 

129 

C 

—  REGULAR  TRIANGLES  - 

1919 

1920 

130 

C 

1920 

1921 

131 

ELSE 

1921 

1922 

132 

IV3  -  JS(  1  ,  ISL  ) 

1922 

1923 

133 

IF(  IV3  .  EO  .  IVl  .  OR  .  1V3  .  EQ  .  1V2  )  IV3  -  JS(  2  .  ISL  ) 

1923 

1924 

134 

1F(  IV3  .  EO  .  IVl  .  OR  .  IV3  .  EQ  .  1V2  )  IV3  -  JS(  3  ,  ISL  ) 

1924 

1925 

135 

XELEFT(  KE  )  -  (  XV(  1  .  IV3  )  +  XV(  1  .  IV2  )  + 

1925 

1926 

136 

XV(  1  ,  IVl  )  )  *  THIRD 

1926 

1927 

137 

YELEFT(  KE  )  -  (  XV(  2  .  IV3  )  +  XV(  2  .  IV2  )  + 

1927 

1928 

138 

XV(  2  ,  IVl  )  )  •  THIRD 

1928 

1929 

139 

C 

1929 

1930 

140 

1V3  -  JS(  1  .  ISR  ) 

1930 

1931 

141 

IF(  IV3  .  EO  .  IVl  .  OR  .  IV3  .  EO  .  IV2  )  IV3  -  JS(  2  ,  ISR  ) 

1931 

1932 

142 

IF(  IV3  .  EO  .  IVl  .  OR  .  IV3  .  EO  .  IV2  )  IV3  -  JS(  3  .  ISR  ) 

1932 

1933 

143 

XERIGT(  KE  )  =  (  XV(  1  ,  1V3  )  +  XV(  1  .  IV2  )  + 

1933 

1934 

144 

XV(  1  ,  IVl  )  )  *  THIRD 

1934 

1935 

145 

YER1GT{  KE  )  =  (  XV(  2  .  1V3  )  +  XV{  2  ,  IV2  )  + 

1935 

1936 

146 

XV(  2  .  IVl  )  )  *  THIRD 

1936 

1937 

147 

C 

1937 

1938 

148 

DXD  -  XERIGT(  KE  )  -  XELEFT(  KL  ) 

1938 

1939 

149 

OYD  -  Y£RIGT(  KE  )  -  Y£L£FT(  KE  ) 

1939 

1940 

150 

C 

1940 

1941 

151 

c 

—  LENGTH  OF  LINE  BETWEEN  BARI-CENTERS  . 

1941 

1942 

152 

c 

STORED  IN  XE(2.IE) 

1942 

1943 

153 

c 

1943 

1944 

154 

XE(  2  .  IE  )  -  SORT(  DXD  »  DXD  +  OYD  •  DYD  ) 

1944 

1945 

155 

c 

1945 

1946 

156 

c 

—  UNIT  VECTOR  FROM  LEFT  TO  RIGHT  BARI-CENTER  AT  INTERFACE  . 

1946 

1947 

157 

c 

STORED  IN  XXN(1E),YYN(IE) 

1947 

1948 

158 

c 

1948 

1949 

159 

XY  -  1.  /  XE(  2  ,  IE  ) 

1949 

1950 

160 

XXN(  IE  )  >  0X0  *  XY 

1950 

1951 

161 

YYN(  IE  )  -  OYD  *  XY 

1951 

1952 

162 

c 

1952 

1953 

163 

c 

—  COORDINATES  OF  BARI-CENTERS  FOR  EACH  TRIANGLE  . 

1953 

1954 

164 

c 

STORED  IN  X5(l.IS).XS(2.IS) 

1954 

1955 

165 

c 

1955 

1956 

166 

XS(  1  .  ISL  )  -  XELEFT(  KE  ) 

1956 

1957 

167 

XS{  2  ,  ISL  )  =  YELEFTC  KE  ) 

1957 

1958 

168 

XS(  1  ,  ISR  )  •  XERIGT(  KE  ) 

1958 

1959 

169 

XS(  2  .  ISR  )  -  YERIGT(  KE  ) 

1959 

1960 

170 

c 

1960 

1961 

171 

AA  -  XV(  1  .  1V2  )  -  XV(  1  .  IVl  ) 

1961 

1962 

172 

BB  -  XV(  2  ,  1V2  )  -  XV(  2  .  IVl  ) 

1962 

1963 

173 

CC  -  XELEFTI  KE  )  -  XERIGT(  KE  ) 

1963 

1964 

174 

DO  -  YELEFT(  KE  )  -  YERI6T(  KE  ) 

1964 

1965 

175 

ACA  -  XERIGT(  KE  )  -  XV(  1  .  IVl  ) 

1965 

1966 

176 

060  -  YERIGT(  KE  )  -  XV(  2  .  IVl  ) 

1966 

1967 

177 

EE  -  (  ACA  •  DO  -  DBO  •  CC  )  /  (  AA  *  DO  -  BB  ‘  CC  ) 

1967 

1968 

178 

c 

1968 

1969 

179 

c 

—  INTERSECTION  POINT  ON  INTERFACE  FOR  LINE  CONNECTING  BARI-CENTERS  - 

1969 

1970 

180 

c 

STORED  IN  XM1DL(IE),YHIDL(1E)  AND  FRACTION  OF  LENGHT  BETWEEN 

1970 

1971 

181 

c 

LEFT  BARI-CENTER  TO  INTERSECTION  POINT  IN  XYH1DL{IE). 

1971 

1972 

182 

c 

1972 

1973 

183 

XH10L(  IE  )  -  XV(  1  .  IVl  )  +  AA  *  EE 

1973 

1974 

184 

YM10L(  IE  )  -  XV(  2  .  IVl  )  +  BB  *  EE 

1974 

1975 

185 

c 

1975 
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1976 

186 

XEHID  -  XMIDL(  IE  )  -  XELEFT(  KE  ) 

1977 

187 

YEMID  -  YMIDK  IE  )  -  YEL£FT(  KE  ) 

1978 

188 

C 

1979 

189 

XY«IDL(  IE  )  -  SQRT(  XEMIO  *  XEHID  +  YEHID  •  YEMIO  )  •  XY 

1980 

190 

C 

1981 

191 

ENOIF 

1982 

192 

140 

CONTINUE 

1^3 

193 

C 

1%4 

194 

NEl  -  NE2  +  1 

1985 

195 

NE2  -  NE2  +  NOFVEEI  INE  +  1  ) 

1986 

196 

no 

CONTINUE 

1987 

197 

c 

1988 

198 

c  — 

■  CALCUUTE  AREA  OF  TRIANGLES - 

1989 

199 

c 

1990 

200 

DO  ISO  IS  -  1  ,  NS 

1991 

201 

IVl  -  JS(  1  .  IS  ) 

1992 

202 

IV2  -  JS(  2  .  IS  ) 

1993 

203 

IV3  -  JS(  3  .  IS  ) 

1994 

204 

DX  -  XV(  1  .  IV2  )  -  XV(  1  .  IVl  ) 

1995 

205 

OXX  -  XV(  1  ,  IV3  )  -  XV(  1  .  IVl  ) 

1996 

206 

DY  -  XV(  2  ,  1V2  )  -  XV(  2  .  IVl  ) 

1997 

207 

DYY  -  XV(  2  ,  IV3  )  -  XV(  2  .  IVl  ) 

1998 

208 

XS(  3  ,  IS  )  -  .5  *  (  OX  *  DYY  -  DXX  •  DY  ) 

1999 

209 

150 

CONTINUE 

2000 

210 

C 

2001 

211 

PRINT  *  .  NE.NS 

2002 

212 

C 

2003 

213 

C  — 

FIND  AN  EDGE  ASSOCIATED  WITH  A  VERTEX  - 

2004 

214 

c 

THE  VALUE  WILL  BE  NEGATIVE  IF  ON  THE  BOUNDARY 

2005 

215 

c 

2006 

216 

DO  180  IV  .  1  ,  NV 

2007 

217 

JV(  2  .  IV  )  -  0 

2008 

218 

180 

CONTINUE 

2009 

219 

c 

2010 

220 

00  160  IE  -  1  ,  NE 

2011 

221 

IVl  -  JE(  1  ,  IE  ) 

2012 

222 

IJE5  -  JE(  5  ,  IE  ) 

2013 

223 

IF(  IJE5  .  NE  .  0  )  THEN 

2014 

224 

JV(  2  .  IVl  )  -  -  IE 

2015 

225 

END  IF 

2016 

226 

160 

CONTINUE 

2017 

227 

C 

2018 

228 

DO  170  IE  -  1  .  NE 

2019 

229 

C 

2020 

230 

IVl  -  JE(  1  .  IE  ) 

2021 

231 

IV2  -  JE{  2  ,  IE  ) 

2022 

232 

C 

2023 

233 

IF(  JV(  2  .  IVl  )  .  EQ  .  0  )  THEN 

2024 

234 

JV{  2  ,  IVl  )  >  IE 

2025 

235 

END  IF 

2026 

236 

C 

2027 

237 

IF(  JV(  2  .  IV2  )  .  EQ  .  0  )  THEN 

2028 

238 

JV(  2  ,  IV2  )  •  IE 

2029 

239 

END  IF 

2030 

240 

c 

2031 

241 

170 

CONTINUE 

2032 

242 

C 

2053 

243 

DO  190  IS  -  1  ,  NS 

2034 

244 

SAREA(  IS  )  -  1.  /  XS(  3  .  IS  ) 

2035 

245 

190 

CONTINUE 

2036 

246 

C 

2037 

247 

20% 

248 

C 

2039 

249 

c ... 

OPTION  FOR  GLOBAL  RECONNECTION . . 

2040 

250 

c 

2041 

251 

IF(I0PRCN,EQ.1)THEN 

2042 

252 

DO  200  IE  -  1  .  NE 

2043 

253 

CALL  RECNC(  IE  ,  IDONE  ,  ITL  .  ITR  ,  JA  .  JB  .  JC  ,  JD  ) 

2044 

254 

CALL  RECNC(  JA  ,  JADONE  ,  ITL  .  ITR  .  JAA  ,  JAB  ,  JAC  ,  JAO  ) 

2045 

255 

CALL  RECNC(  JB  ,  J800NE  ,  ITL  .  ITR  .  JBA  .  JBB  .  JBC  ,  JBD  ) 

2046 

256 

CALL  RECNC(  JC  .  JCOONE  .  ITL  ,  ITR  ,  JCA  .  JCB  .  JCC  .  JCD  ) 

2047 

257 

CALL  RECNC(  JD  ,  JDOONE  .  ITL  .  ITR  ,  JDA  ,  JDB  .  JDC  ,  JDO  ) 

2048 

258 

200 

CONTINUE 

2049 

259 

ENDIF 

1976 

1977 
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1984 
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1987 

1988 
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2050 

260 

C 

2050 

onci 

2052 

262 

c 

2052 

2053 

263 

c  - 

-  EXIT  POINT  FROM  SUBROUTINE . . 

2053 

2054 

264 

c 

2054 

2055 

265 

c 

2055 

2056 

266 

RETURN 

2056 

2057 

267 

c 

2057 

2058 

268 

c 

2058 

2059 

269 

c 

2059 

2060 

270 

END 

2060 
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2061 

1 

subroutin:  update 

2061 

2062 

2 

C 

2062 

2063 

3 

C — 

- - I 

2063 

2064 

4 

C 

I 

2064 

2065 

5 

C 

UPDATE  BUFFERS  IN  A  BLOCK  OF  NOOES.EDGES,  AND  CELLS  TO  I 

2065 

2066 

6 

C 

CONSTRUCT  THE  NEW  GEOMETRY  FOR  THE  MESH.  I 

2066 

2067 

7 

C 

THE  BLOCKING  SIZE  IS  DETERMINED  BY  PARAMETER  ...HBL...  I 

2067 

2068 

8 

C 

I 

2068 

2069 

9 

C — 

- 1 

2069 

2070 

10 

C 

2070 

2071 

1  1 

A 

— 

2072 

12 

c 

2072 

2073 

13 

include  'cmshOO.h' 

2073 

2074 

14 

include  'chydOO.h' 

include  'cintOO.h* 

2074 

2075 

15 

2075 

2076 

16 

include  'cphslO.h* 

include  ‘cphs20.h' 

2076 

2077 

17 

2077 

2078 

18 

c 

2078 

2079 

IQ 

cU/7 

2080 

20 

C 

2080 

2081 

21 

c  - 

-  BREAK  UP  THE  VERTEX.  EDGE.  AND  TRIANGLE  DATA  IMTD  BLOCKS  - 

2081 

2082 

22 

c 

2082 

2083 

23 

NVECE  -  NE  /  MBL 

2083 

2084 

24 

NREME  -  NE  -  NVECE  *  MBL 

2084 

2085 

25 

NVECS  -  NS  /  MBL 

2085 

2086 

26 

NREMS  -  NS  -  NVECS  *  HBL 

2086 

2087 

27 

NVECV  -  NV  /  MBL 

2087 

2088 

28 

NREHV  -  NV  -  NVECV  •  HBL 

2088 

2089 

29 

PRINT  • , NV. NE . NS . NVECE . NREME . NVECV. NREMV .NVECS . NREMS 

2089 

2090 

30 

c 

2090 

2091 

31 

DO  105  INE  •  1  .  NVECE 

2091 

2092 

32 

NOFVEE(  INE  )  -  HBL 

2092 

2093 

33 

105 

CONTINUE 

2093 

2094 

34 

NVEEE  -  NVECE 

2094 

2095 

35 

IF(  NREME  .  GT  .  0  )  THEN 

2095 

2096 

36 

NVEEE  •  NVECE  +  1 

2096 

2097 

37 

NOFVEE(  NVEEE  )  -  NREME 

2097 

2098 

38 

END  IF 

2098 

2099 

39 

C 

2099 

2100 

40 

DO  115  INS  -  1  .  NVECS 

2100 

2101 

41 

NOFVESC  INS  )  -  HBL 

2101 

2102 

42 

115 

CONTINUE 

2102 

2103 

43 

NVEES  -  NVECS 

2103 

2104 

44 

IF(  NREMS  .  GT  .  0  )  THEN 

2104 

2105 

45 

NVEES  -  NVECS  +  1 

2105 

2106 

46 

NOFVES(  NVEES  )  -  NREMS 

2106 

2107 

47 

END  IF 

2107 

2108 

48 

c 

2108 

2109 

49 

DO  125  INV  -  1  .  NVECV 

2109 

2110 

SO 

NOFVEV(  INV  )  -  MBL 

2110 

2111 

51 

125 

CONTINUE 

2111 

2112 

52 

NVEEV  •  NVECV 

2112 

2113 

53 

1F(  NREMV  .  GT  .  0  )  THEN 

2114 

2114 

54 

NVEEV  -  NVECV  +  1 

2114 

2115 

55 

NOFVEV(  NVEEV  )  -  NREMV 

2115 

2116 

56 

END  IF 

2116 

2117 

57 

C 

2117 

2118 

58 

C  — 

-  CALL  TO  THE  GEOMETRY  DEFINITION  SUBROUTINE  . 

2118 

2119 

59 

c 

2119 

2120 

60 

CALL  GEOMTR 

2120 

i 
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2121  61  C  2121 

2122  62  C— - - 2122 

2123  63  C  2123 

2124  64  C  —  EXIT  POINT  FROM  SUBROUTINE .  2124 

2125  65  C  2125 

2126  66  C  -  2126 

2127  67  RETURN  2127 

2128  68  C  -  2128 

2129  69  C  2129 

2130  70  C  —  2130 

2131  71  END  2131 

Thu  Jul  1  14:15:40  1993  malnhd.f  SUBROUTINE  UPGRAO 

2132  1  SUBROUTINE  UPGRAD  2132 

2133  2  C  2133 

2134  3  C - I  2134 

2135  4  C  I  2135 

2136  5  C  UPGRAO  READS  THE  RESTART  FILE  FRON  A  PREVIOUS  RUN  I  2136 

2137  6  C  AND  BREAKS  THE  DATA  INTO  BLOCKS  AS  DEFINED  BY  THE  I  2137 

2138  7  C  PARAMETER  ...HBL...  I  2138 

2139  8  C  I  2139 

2140  9  C - I  2140 

2141  10  C  2141 

2142  11  include  'cmshOO.h'  2142 

2143  12  include  'chydOO.h'  2143 

2144  13  include  'cintOO.h'  2144 

2145  14  include  'cphslO.h'  2145 

2146  15  include  'cphs20.h'  2146 

2147  16  C  2147 

2148  17  C— - - - 2148 

2149  18  C  2149 

2150  19  C  MVM  MAX  NUMBER  OF  VERTICES  (POINTS)  2150 

2151  20  C  MEM  MAX  NUMBER  OF  EDGES  (INTERFACES)  2151 

2152  21  C  HSM  MAX  NUMBER  OF  SIDES  (TRIANGLES)  2152 

2153  22  C  2153 

2154  23  C— - —  2154 

2155  24  C  2155 

2156  25  C  2156 

2157  26  READ  (88)  NV.NVMK.NE.NEMK.NS.NSMK. ITERAT  2157 

2158  27  C  2158 

2159  28  C  —  READ  IN  VERTEX  INFORMATION . 2159 

2160  29  C  2160 

2161  30  READ  (88)  ((JV(IK.1V).1K-1.2).(XV(1K,1V).1K=1,2),IV=1,NV)  2161 

2162  31  C  2162 

2163  32  C  —  READ  IN  EDGE  INFORMATION  (  EDGES  OF  TRIANGLES). .  2163 

2164  33  C  2164 

2165  34  READ  (88)  ((JE(KK.IE).KK-1,5),(XE(K1.IE).KI-1.2),IE>1,NE)  2165 

2166  35  READ  (88)  (XN(lE).YH(IE).XXN(IE).yyN(IE),IE=l,NE)  2166 

2167  36  C  2167 

2168  37  C  —  READ  IN  SIDE  (TRIANGLE)  INFORMATION. .  2168 

2169  38  C  2169 

2170  39  READ  (88)  ((JS(KK,IS).KK»1,6).(XS(KI,IS),KI-1,3),IS>I.NS)  2170 

2171  40  READ  (88)  (XH1DL(IE).YMI0L(IE).XYMIDL(IE). IE-1, NE)  2171 

2172  41  READ  (88)  SAREVG.NVECE.NREHE.NVECV.NREMV.NVECS.NREMS  2172 

2173  42  C  2173 

2174  43  C  —  PRINT  PROMT  TO  CONSOLE .  2174 

2175  44  C  2175 

2176  45  PRINT  •  ,  NE.NS  2176 

2177  46  C  2177 

2178  47  C  —  DEFINE  INVERSE  AREA  OF  TRIANGLES .  2178 

2179  48  C  2179 

2180  49  DO  100  IS  -  1  .  NS  2180 

2181  50  SAREA(  IS  )  -  1.  /  XS(  3  .  IS  )  2181 

2182  51  100  CONTINUE  2182 

2183  52  C  2183 

2184  53  C  —  BREAKUP  THE  DATA  STRUCTURE  INTO  BLOCKS .  2184 

2185  54  C  2185 

2186  55  DO  105  INE  -  1  ,  NVECE  2186 

2187  56  HOFVEE(  INE  )  -  MBL  2187 

2188  57  105  CONTINUE  2188 

2189  58  NVEEE  -  NVECE  2189 

2190  59  1F(  NREHE  ,  GT  .  0  )  THEN  2190 

2191  60  NVEEE  -  NVECE  +  1  2191 
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2192 

61 

N0FVEE(  NVEEE  )  -  NREHE 

2192 

2193 

62 

END  IF 

2193 

2194 

63 

C 

2194 

2195 

64 

DO  115  INS  -  1  ,  HVECS 

2195 

2196 

65 

N0FVES(  INS  )  -  MBL 

2196 

2197 

66 

115 

CONTINUE 

2197 

2198 

67 

NVEES  -  NVECS 

2198 

2199 

68 

IF(  NREHS  .  GT  .  0  )  THEN 

2199 

2200 

69 

NVEES  =  NVECS  +  1 

2200 

2201 

70 

NOFVES(  NVEES  )  -  NREMS 

2201 

2202 

71 

END  IF 

2202 

2203 

72 

C 

2203 

2204 

73 

00  125  INV  «  1  .  NVECV 

2204 

2205 

74 

NOFVEV(  INV  )  .  MBL 

2205 

2206 

75 

125 

CONTINUE 

2206 

2207 

76 

NVEEV  -  NVECV 

2207 

2208 

77 

1F(  NREMV  .  GT  .  0  )  THEN 

2208 

2209 

78 

NVEEV  -  NVECV  +  1 

2209 

2210 

79 

HOFVEV(  NVEEV  )  -  NREMV 

2210 

2211 

80 

END  IF 

2211 

2212 

81 

C 

2212 

2213 

82 

C  — 

PRINTOUT  THE  VERTEX, EDGE.  AND  TRIANGLE  BLOCK  DATA  . 

2213 

2214 

83 

c 

2214 

2215 

84 

PRINT  » . NV . NE . NS . NVECE . NREHE . HMZfM . NREMV , HVECS . NREMS 

2215 

2216 

85 

c 

2216 

2217 

4cl/ 

00 

2218 

87 

c 

2218 

2219 

88 

c  — 

EXIT  POINT  FROM  SUBROUTINE  . 

2219 

2220 

89 

c 

2220 

2221 

90 

c 

2221 

2222 

91 

RETURN 

2222 

2223 

92 

c 

2223 

2224 

93 

c 

2224 

2225 

94 

c 

2225 

2226 

95 

END 

2226 
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GRDFLX 
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GROENG 
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23 
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25 
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27 
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29 
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31 
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32 
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1  1  SUBROUTINE  GRDFLX  1 

2  2  C 

3  3  C . I 

4  4  C  I 

5  5  C  6RAFLX  COMPUTE  THE  GRADIENT  FOR  ERROR  INDICATOR  I 

6  6  C  CALCULATION  FOR  STEADY  STATE  I 

7  7  C  I 

8  8  C - I 


9  9  C 

10  10  include  'crashOO.h' 

11  11  include  'chydOO.h' 

12  12  include  'cintOO.h' 

13  13  include  'cphslO.h* 

14  14  include  'cphs20.h‘ 

15  15  C 

16  16  C«— ———————————— - 

17  17  C 

18  18  REAL  AA(3,3).BB(3.4),B(3).1N0X(3).ATEHP(3.3.3),BTEMP(3.4.3) 

19  19  REAL  AA0(3,3),BB0(3.4) 

20  20  C 

21  21  C - - - — — - - - — 

22  22  C 

23  23  C 

24  24  C  —  BEGIN  LOOP  OVER  ALL  CELLS  IN  THE  DOMAIN  . 

25  25  C 

26  26  NSl  •  1 

27  27  HS2  -  NOFVES(  1  ) 

28  28  DO  90  INS  -  1  ,  HVEES 

29  29  C 

30  30  C  —  FETCH  HYDRO  QUANTITIES  — . 

31  31  C 

32  32  00  105  IS  -  NSl  .  HS2 

33  33  KS  -  IS  -  NSl  ♦  1 

34  34  C 

35  35  XSM  -  XS(  1  .  IS  ) 

36  36  YSM  -  XS(  2  .  IS  ) 

37  37  XSM2  -  XSM  •  XSM 

38  38  Y5M2  »  YSM  *  YSM 

39  39  XYSM  •  XSM  *  YSM 

40  40  C 

41  41  AAO(  1  .  1  )  -  1.0 

42  42  AAO(  1  .  2  )  -  XSM 

43  43  AAO(  1  ,  3  )  «  YSM 

44  44  C 

45  45  AAO(  2  ,  1  )  =  XSM 

46  46  AA0(  2  .  2  )  -  XSM2 

47  47  AA0(  2  .  3  )  -  XYSM 

48  48  C 

49  49  AAO(  3  .  1  )  -  YSM 

50  50  AAO(  3  .  2  )  -  XYSM 

51  51  AAO(  3  .  3  )  =  YSH2 

52  52  C 

53  53  881  -  HYDV(  IS  ,  4  ) 

54  54  BB2  -  SQRT  (  (  HYDV(  IS  ,  2  )  *  HYDV(  IS  .  2  )  + 

55  55  .  HYDV(  IS  .  3  )  *  HYDV{  IS  ,  3  )  )  * 

56  56  .  HYDV(  IS  .  1  )  /  HYDV(  IS  .  4  )  /  HYDV(  IS  ,  5  )  ) 

57  57  C 

58  58  BBIX  »  BBl  *  XSM 

59  9  BB2X  =  882  *  XSM 

60  0  C 

61  ;1  BBIY  -  BBl  *  YSM 

62  52  BB2Y  -  BB2  *  YSM 

63  63  C 

64  64  BBO(  I  ,  1  )  =  BBl 

65  65  BBO(  1  ,  2  )  -  BB2 

6f  66  C 

6  67  BBO(  2,1}-  BBIX 

6^  68  BBO(  2.2)-  BB2X 

6  69  C 

7  70  8B0(  3.1)-  BBIY 

7  71  BBO(  3,2)-  BB2Y 

7,  72  C 

7.  73  DO  115  IK  -  1  ,  3 
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74 

74 

IE  -  JS(  IK  +  3  ,  IS  ) 

75 

75 

IF(  IE  .  GT  .  0  )  THEN 

76 

76 

ISS  -  JE(  4  .  IE  ) 

77 

77 

ELSE 

78 

78 

ISS  -  JE{  3  .  -IE  ) 

79 

79 

END  IF 

80 

80 

C 

81 

81 

IF(  ISS  0  )  THEN 

82 

82 

XSS  .  XS(  1  ,  ISS  ) 

83 

83 

YSS  -  XS(  2  .  ISS  ) 

84 

84 

C 

85 

85 

HYDVP  -  HYOV(  ISS  .  4  ) 

86 

86 

HYOVR  -  SORT  (  (  HYDV(  ISS  .  2  )  *  HYDV(  ISS 

87 

87 

HYDV(  ISS  ,  3  )  *  HYDV(  ISS 

88 

88 

HYOV(  ISS  .  1  )  /  HYDV{  ISS  .  4  )  /  H 

89 

89 

C 

90 

90 

ELSE 

91 

91 

C 

92 

92 

IE  -  1ABS(  IE  ) 

93 

93 

XSS  -  2.  *  XHIDL(  IE  )  -  XSM 

94 

94 

YSS  -  2.  *  YMIDL(  IE  )  -  Y^l 

95 

95 

C 

96 

96 

HYDVP  -  BBl 

97 

97 

HYDVR  -  BB2 

98 

98 

IJE5  -  JE(  5  ,  IE  ) 

99 

99 

IF(  IJE5  .  EO  .  8  )  THEN 

100 

100 

HYDVP  =  PIN 

101 

101 

HYDVR  -  SQRT(  UVIN  •  UVIN  *  RIN  /  PIN  /  HRGG 

102 

102 

END  IF 

103 

103 

C 

104 

104 

END  IF 

105 

105 

C 

106 

106 

XSS2  =  XSS  *  XSS 

107 

107 

YSS2  -  YSS  •  YSS 

108 

108 

XYSS  -  XSS  ‘  YSS 

109 

109 

C 

no 

no 

ATE«P(  1  ,  1  .  IK  )  -  1.0 

111 

111 

ATEW>(  1  ,  2  .  IK  )  -  XSS 

112 

112 

ATEMP(  1  .  3  .  IK  )  =  YSS 

113 

113 

C 

114 

114 

ATEMP(  2  .  1  .  IK  )  .  XSS 

115 

115 

ATEHP(  2  .  2  .  IK  )  -  XSS2 

116 

116 

ATEHP(  2  .  3  .  IK  )  -  XYSS 

117 

117 

C 

118 

118 

ATEMP(  3  ,  1  .  IK  )  =  YSS 

119 

119 

ATEMP(  3  .  2  ,  IK  )  -  XYSS 

120 

120 

ATEHP(  3  .  3  ,  IK  )  •  YSS2 

121 

121 

C 

122 

122 

0TEHP(  1  .  1  .  IK  )  *  HYDVP 

123 

123 

BTEHP(  1  ,  2  ,  IK  )  =  HYDVR 

m 

124 

C 

125 

125 

BTEMP(  2  ,  1  .  IK  )  =  HYDVP  »  XSS 

126 

126 

BTEHPI  2  .  2  .  IK  )  -  HYOVR  *  XSS 

127 

127 

C 

128 

128 

BTEMP(  3  .  1  ,  IK  )  '  HYDVP  »  YSS 

129 

129 

BTEHP(  3  .  2  .  IK  )  -  HYOVR  »  YSS 

130 

130 

C 

131 

131 

115 

CONTINUE 

132 

132 

c 

133 

133 

AA(  1  .  1  )  -  AAO{  1,1)  *  ATEHP(  1  ,  1 

134 

134 

ATEMP(  1,1,2)+  ATEMP{  1  ,  1 

135 

135 

AA(  1  ,  2  )  -  AAO(  1,2)  +  ATEMP(  1  ,  2 

136 

136 

ATEHP{  1,2,2)+  ATEHP(  1  ,  2 

137 

137 

AA(  1  ,  3  )  =  AAO(  1,3)  +  ATEHP(  1  ,  3 

138 

138 

ATEMP{  1,3,2)+  ATEMP(  1  ,  3 

139 

139 

c 

140 

140 

AA(  2  .  1  )  =  AAO{  2  ,  1  )  +  ATEHP(  2  ,  1 

141 

141 

ATEHP(  2,1,2)+  ATEMP(  2  ,  1 

142 

142 

AA(  2  ,  2  )  =  AAO(  2.2)  +  ATEMP(  2  ,  2 

143 

143 

ATEMP(  2,2.2)+  ATEHP(  2  ,  2 

144 

144 

AA(  2  .  3  )  =>  AAO(  2,3)  +  ATEMP(  2  .  3 

145 

146 

145 

146 

c 

ATEHP(  2,3,2)+  ATEMP(  2  .  3 

147 

147 

AA{  3  .  1  )  "  AAO(  3.1)  *  ATEHP(  3  ,  1 
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148 

148 

ATEHP(  3.1.2)+  ATEHP{  3.1,3) 

148 

149 

149 

AA(  3  .  2  )  -  AA0(  3  ,  2  )  +  ATEHP{  3.2.1)+ 

149 

150 

150 

ATEMP(  3.2.2)+  AT£MP(  3.2,3) 

150 

151 

151 

AA(  3  .  3  )  -  AA0(  3  .  3  )  +  ATEHP(  3,3.1)+ 

151 

152 

152 

ATEMP(  3,3,2)+  ATEMP(  3.3,3) 

152 

153 

153 

C 

153 

154 

154 

8B{  1  .  1  )  =  880(  1,1)  +  BTEMP(  1,1,1)+ 

154 

155 

155 

BTEMP(  1.1,2)+  BTEHP(  1,1.3) 

155 

156 

156 

BB(  1  ,  2  )  -  8B0(  1.2)  +  BTEMP(  1,2,1)+ 

156 

157 

157 

BTEHP(  1,2.2)+  BTEHP(  1,2,3) 

157 

158 

158 

C 

158 

159 

159 

B8(  2  ,  1  )  -  BB0(  2.1)  +  BTEHP(  2,1,1)+ 

159 

160 

160 

BTEHP(  2.1.2)+  8TEHP(  2,1,3) 

160 

161 

161 

BB(  2  .  2  )  »  B80(  2  ,  2  )  +  BTEHP(  2,2,1)+ 

161 

162 

162 

8TEHP(  2,2,2)+  BTEMP(  2,2,3) 

162 

163 

163 

C 

163 

164 

164 

BB(  3  ,  1  )  -  aB0(  3.1)  +  BTEMP(  3,1,1)+ 

164 

165 

165 

BTEMP(  3.1.2)+  BTEMP(  3,1,3) 

165 

165 

166 

BB(  3  .  2  )  -  BB0(  3.2)  +  BTEHP(  3.2.1)+ 

166 

167 

167 

BTEHP(  3,2,2)+  BTEMP(  3,2,3) 

167 

168 

168 

C 

168 

169 

169 

OETERH  -  AA(  1  .  1  )  •  (  AA(  2  .  2  )  •  AA(  3  ,  3  )  - 

169 

170 

170 

AA(  3  .  2  )  *  AA(  2  ,  3  )  )  + 

170 

171 

171 

AA(  2  ,  1  )  *  (  AA(  3  .  2  )  *  AA(  1  .  3  )  - 

171 

172 

172 

AA(  1  .  2  )  *  AA(  3  .  3  )  )  + 

172 

173 

173 

AA(  3  .  1  )  *  (  AA(  1  .  2  )  •  AA(  2  .  3  )  - 

173 

174 

174 

AA{  2  ,  2  )  *  AA{  1  .  3  )  ) 

174 

175 

175 

C 

175 

176 

176 

DTRHIN  -  1.  /  OETERM 

176 

177 

177 

c 

177 

178 

178 

AAAI  -  AA{  2  ,  3  )  *  AA(  3  .  1  )  -  AA(  2  .  1  )  •  AA(  3  .  3  ) 

178 

179 

179 

AAA2  -  AA(  3  ,  3  )  *  AA(  1  .  1  )  -  AA(  3  .  1  )  *  AA(  1  .  3  ) 

179 

180 

180 

AAA3  -  AA(  1  .  3  )  •  AA(  2  .  1  )  -  AA{  1  ,  1  )  *  AA(  2  .  3  ) 

180 

181 

181 

c 

181 

182 

182 

AAA4  -  AA(  2  .  1  )  •  AA{  3  .  2  )  -  AA(  3  .  1  )  *  AA(  2  .  2  ) 

182 

183 

183 

AAA5  •  AA(  3  ,  1  )  •  AA(  1  ,  2  )  -  AA(  1  .  1  )  *  AA(  3  ,  2  ) 

183 

184 

184 

AAA6  -  AA(  1  ,  1  )  *  AA(  2  .  2  )  -  AA(  2  .  1  )  »  AA(  1  .  2  ) 

184 

185 

185 

c 

185 

186 

186 

PL(  IS  )  "  OTRMIN  *  (  BB(  1  .  1  )  •  AAAI  + 

186 

187 

187 

BB(  2  .  1  )  *  AAA2  + 

187 

188 

188 

BB(  3  ,  1  )  •  AAA3  ) 

188 

189 

189 

c 

189 

190 

190 

PR(  IS  )  =  DTRHIN  *  (  BB(  1  .  1  )  *  AAA4  + 

190 

191 

191 

BB(  2  .  1  )  *  AAA5  + 

191 

192 

192 

.  BB(  3  .  I  )  •  AAA6  ) 

192 

193 

193 

c 

193 

194 

194 

RL(  IS  )  =  OTRHIH  *  (  BB(  1  .  2  )  *  AAAI  + 

194 

195 

195 

88(  2  ,  2  )  *  AAA2  + 

195 

196 

196 

BB{  3  ,  2  )  *  AAA3  ) 

196 

197 

197 

c 

197 

198 

198 

RR(  IS  )  •  OTRMIN  *  (  BB(  1  ,  2  )  *  AAA4  + 

198 

199 

199 

BB(  2  ,  2  )  •  AAA5  + 

199 

200 

200 

BB(  3  .  2  )  *  AAA6  ) 

200 

201 

201 

c 

201 

202 

202 

105 

CONTINUE 

202 

203 

203 

C 

203 

204 

204 

NSl  -  NS2  +  I 

204 

205 

205 

HS2  »  NS2  +  N0EVE5(  INS  +  1  ) 

205 

206 

206 

90 

CONTINUE 

206 

207 

207 

C 

207 

OOR 

9nR 

Camm 

209 

209 

C 

209 

210 

210 

C  - 

-  EXIT  POINT  FROM  SUBROUTINE  . 

210 

211 

211 

c 

211 

212 

212 

c 

212 

213 

213 

RETURN 

213 

214 

214 

c 

214 

215 

215 

c 

215 

216 

216 

c 

216 

217 

217 

END 

217 
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218 

1 

SUBROUTINE  GRDENG 

218 

219 

2 

C 

229 

220 

3 

C-— 

220 

221 

4 

c 

I 

221 

222 

5 

c 

GRAENG  COMPUTE  THE  GRADIENT  FOR  SECOND  ORDER  CALCUUTION  ! 

222 

223 

6 

c 

I 

223 

224 

7 

p 

224 

** 

225 

8 

c 

225 

226 

9 

include  'cmshOO.h* 

226 

227 

10 

include  'chydOO.h' 

227 

228 

11 

include  'cintOO.h' 

228 

229 

12 

include  'cphslO.h' 

229 

230 

13 

include  'cphs20.h‘ 

230 

231 

14 

c 

231 

232 

15 

C-»>» 

233 

16 

c 

232 

233 

234 

17 

REAL  RRMIDL(M8P).PPMIDL(M8P).0UMIDL(M8P).UVMIDL{MBP) 

234 

235 

18 

REAL  RIGRAD(HBP) , PIGRA0(H6P) .UIGRAD(MBP) , VIGRAD(MBP) 

235 

236 

19 

RE AL  RJGRAD ( H8P ) . P JGRA0(H6P ) , U JGRAD ( MBP ) , V JGRW)  (HBP ) 

236 

237 

20 

REAL  AA{3,3).BB(3,4).B(3).1NDX(3).ATEHP(3.3.3),BTEMP{3,4,3) 

237 

238 

21 

REAL  AA0(3.3).Bfl0{3.4) 

238 

239 

22 

c 

239 

240 

23 

_ 

241 

24 

c 

240 

241 

242 

25 

c  — 

BEGIN  LOOP  OVER  ALL  CELLS  IN  THE  DOMAIN  . 

242 

243 

26 

c 

243 

244 

27 

NSl  -  1 

244 

245 

28 

NS2  -  NOFVES(  1  ) 

245 

246 

29 

00  90  INS  -  1  .  NVEES 

246 

247 

30 

c 

247 

248 

31 

c  — 

FETCH  HYDRO  QUANTITIES  . 

248 

249 

32 

c 

249 

250 

33 

DO  105  IS  -  NSl  .  NS2 

250 

251 

34 

c 

251 

252 

35 

XSM  -  XS(  1  .  IS  ) 

252 

253 

36 

YSM  -  XS(  2  .  IS  ) 

253 

254 

37 

XSM2  -  XSM  •  XSM 

254 

255 

38 

YSM2  -  YSM  •  YSM 

255 

256 

39 

XYSM  -  XSM  *  YSM 

256 

257 

40 

c 

257 

258 

41 

AA0(  1  .  I  )  ■  1.0 

258 

259 

42 

AAO{  1  .  2  )  -  XSM 

259 

260 

43 

AAO(  1  .  3  )  -  YSM 

260 

261 

44 

c 

261 

262 

45 

AAO(  2  .  1  )  -  XSM 

262 

263 

46 

AAO(  2  ,  2  )  =  XSM2 

263 

264 

47 

AAO(  2  ,  3  )  =  XYSM 

264 

265 

48 

c 

265 

266 

49 

AAO(  3  .  1  )  *  YSM 

266 

267 

50 

AAO(  3  ,  2  )  >  XYSM 

267 

268 

51 

AAO(  3  .  3  )  =  YSM2 

268 

269 

52 

c 

269 

270 

53 

BBl  •  HYDFLX(  IS  ,  1  ) 

270 

271 

54 

BB2  •  HYDFLX(  IS  ,  2  ) 

271 

272 

55 

883  -  HYOFLX(  IS  ,  4  ) 

272 

273 

56 

c 

273 

274 

57 

BBIX  -  BBl  *  XSM 

274 

275 

58 

BB2X  -  BB2  *  XSM 

275 

276 

59 

BB3X  -  BB3  *  XSM 

276 

277 

60 

c 

277 

278 

61 

BBIY  -  BBl  •  YSM 

278 

279 

62 

8B2Y  -  882  *  YSM 

279 

280 

63 

BB3Y  -  BB3  »  YSM 

280 

281 

64 

c 

281 

282 

65 

B80(  1  .  1  )  -  BBl 

282 

283 

66 

BBO(  1  ,  2  )  -  BB2 

283 

284 

67 

880(  I  .  3  )  -  883 

284 

285 

68 

c 

285 

286 

69 

BBO(  2,1)-  B01X 

286 

287 

70 

BBO(  2.2)-  BB2X 

287 

288 

71 

BBO(  2.3)-  BB3X 

288 

289 

72 

c 

289 

290 

73 

BBO(  3,1)-  BBIY 

290 

291 

74 

BBO{  3,2)-  8B2Y 

291 
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292 

75 

BB0(  3.3).  BB3Y 

293 

76 

C 

294 

77 

DO  115  IK  -  1  .  3 

295 

78 

IE  -  JS(  IK  ♦  3  .  IS  ) 

296 

79 

IF{  IE  .  GT  .  0  )  THEN 

297 

80 

ISS  -  JE(  4  ,  IE  ) 

298 

81 

ELSE 

299 

82 

ISS  -  JE(  3  .  -  IE  ) 

300 

83 

END  IF 

301 

84 

C 

302 

85 

!F(  ISS  .  NE  .  0  )  THEM 

303 

86 

XSS  -  XS(  1  .  ISS  ) 

304 

87 

YSS  -  XS(  2  .  ISS  ) 

305 

88 

C 

306 

89 

HYOVR  -  HYDFLXt  ISS  .  1  ) 

307 

90 

HYOVU  -  HYDFLX(  ISS  .  2  ) 

308 

91 

HYDVV  -  HYOFLX(  ISS  .  4  ) 

309 

92 

C 

310 

93 

ELSE 

311 

94 

C 

312 

95 

IE  -  1ABS(  IE  ) 

313 

96 

HYDVR  •  BBt 

314 

97 

HYOVU  •  BB2 

315 

98 

HYOW  -  BB3 

316 

99 

c 

317 

100 

XSS  -  2.  *  XH!OL(  IE  )  -  XSM 

318 

101 

YSS  -  2.  »  YH1DL(  IE  )  -  YSH 

319 

102 

c 

320 

103 

END  IF 

321 

104 

c 

322 

105 

XSS2  »  XSS  »  XSS 

323 

106 

YSS2  -  YSS  •  YSS 

324 

107 

XYSS  -  XSS  •  YSS 

325 

108 

c 

326 

109 

ATEHP(  1  .  1  .  IK  )  -  1.0 

327 

110 

ATEHP(  1  .  2  .  IK  )  -  XSS 

328 

111 

ATE«P(  1  .  3  .  IK  )  «  YSS 

329 

112 

c 

330 

113 

ATEHP(  2  .  1  .  IK  )  -  XSS 

331 

114 

ATEHP(  2  .  2  .  IK  )  -  XSS2 

332 

115 

ATEm»{  2  .  3  .  IK  )  -  XYSS 

333 

116 

c 

334 

117 

ATEHP(  3  .  1  .  IK  )  =  YSS 

335 

118 

ATEMP(  3  ,  2  ,  IK  )  =  XYSS 

336 

119 

ATEHP(  3  ,  3  .  IK  )  »  YSS2 

337 

120 

c 

338 

121 

BTEHPI  1  ,  1  ,  IK  )  =  HYOVR 

339 

122 

BTEMP(  1  .  2  ,  IK  )  =  HYOVU 

340 

123 

BTEHP(  1  ,  3  ,  IK  )  >  HYDVV 

341 

124 

c 

342 

125 

BTEHP(  2  ,  1  ,  IK  )  '  HYDVR  •  XSS 

343 

126 

BTEMP(  2  ,  2  .  IK  )  =  HYDVU  •  XSS 

344 

127 

BTEHP(  2  .  3  ,  IK  )  =  HYDVV  *  XSS 

345 

128 

c 

346 

129 

BTEHP(  3  ,  1  ,  IK  )  =  HYOVR  *  YSS 

347 

130 

BTEHP(  3  ,  2  .  IK  )  -  HYDVU  *  YSS 

348 

131 

BTEHP(  3  ,  3  ,  IK  )  -  HYDVV  *  YSS 

349 

132 

c 

350 

133 

115 

CONTINUE 

351 

134 

c 

352 

135 

AA(  1  ,  1  )  -  AA0(  I  .  1  )  + 

ATEHP(  1 

1  . 

1  )  + 

353 

136 

A1EMP{  1,1,2)+ 

ATEMP(  1 

1  , 

3  ) 

354 

137 

AA(  1  ,  2  )  -  AA0(  1  ,  2  )  + 

ATEHP(  1 

2  , 

1  )  * 

355 

138 

ATEMP(  1,2,2)+ 

ATEHP(  1 

2  . 

3  ) 

356 

139 

AA(  1  ,  3  )  -  AA0(  1,3)  * 

ATEHP(  1 

3  . 

1  )  + 

357 

140 

ATEHP(  1,3,2)+ 

ATEHP(  1 

3  . 

3  ) 

358 

141 

c 

359 

142 

AA(  2  ,  1  )  =  AAO(  2  ,  1  )  + 

ATEMP(  2 

1  , 

1  )  + 

360 

143 

ATEHP(  2,1,2)+ 

ATEMP(  2 

1  , 

3  ) 

361 

144 

AA(  2  ,  2  )  >  AAO(  2  ,  2  )  + 

ATEMP(  2 

2  , 

1  )  + 

362 

145 

ATEMP(  2,2,2)+ 

ATEMP(  2 

2  . 

3  ) 

363 

146 

AA{  2  ,  3  )  -  AAO(  2  ,  3  )  + 

ATEMP{  2 

3  . 

1  )  + 

364 

147 

ATEMP(  2,3,2)+ 

ATEMP(  2 

3  . 

3  ) 

365 

148 

c 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 
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366 

149 

AA( 

3 

.  1  )  -  AA0(  3,1) 

ATEMP( 

3 

1 

.  1  )  * 

366 

367 

150 

ATEMP(  3,1, 

2 

) 

4- 

ATEHP( 

3 

1 

.  3  ) 

367 

366 

151 

'  AA( 

3 

.  2  )  -  AA0(  3  .  2  ) 

•f 

ATEMP( 

3 

2 

.  1  )  * 

368 

369 

152 

ATEMP(  3.2. 

2 

) 

ATEHP{ 

3 

2 

.  3  ) 

369 

370 

153 

’  AA( 

3 

.  3  )  -  AA0(  3  .  3  ) 

•f 

ATEHP( 

3 

3 

.  1  )  * 

370 

371 

154 

ATEMP{  3.3. 

2 

) 

■f 

ATEHP( 

3 

3 

.  3  ) 

371 

372 

155 

C 

372 

373 

156 

BB( 

1 

.  1  )  «  BB0(  1.1) 

4 

BTEMP( 

1 

1 

.  1  )  * 

373 

374 

157 

8T£MP(  1.1, 

2 

) 

+ 

0TEHP( 

1 

1 

.  3  ) 

374 

375 

158 

'  BB( 

1 

.  2  )  -  BB0(  1,2) 

•4 

8TEMP( 

1 

2 

.  1  )  + 

375 

376 

159 

BTEMP(  1.2, 

2 

) 

4- 

8TEKP( 

1 

2 

.  3  ) 

376 

377 

160 

'  BB( 

1 

.  3  )  -  8B0(  1  .  3  ) 

4> 

BTEMP( 

1 

3 

.  1  )  + 

37; 

378 

161 

BTEMP(  1.3. 

2 

) 

4* 

BT£HP( 

1 

3 

,  3  ) 

378 

379 

162 

C 

379 

380 

163 

BB( 

2 

,  1  )  -  BB0(  2,1) 

+ 

BTEMP( 

2 

1 

,  1  )  + 

380 

381 

164 

BTEMP{  2.1. 

2 

> 

4> 

BTEHP{ 

2 

1 

.  3  ) 

381 

382 

165 

‘  BB( 

2 

.  2  )  >  BB0(  2  ,  2  ) 

4- 

BTEMP( 

2 

2 

.  1  )  + 

382 

383 

166 

8TEHP(  2.2. 

2 

) 

4- 

BTEHP( 

2 

2 

.  3  ) 

383 

384 

167 

'  BB( 

2 

.  3  )  -  BB0(  2.3) 

4- 

BTEMP( 

2 

3 

.  1  )  + 

384 

385 

168 

BTEMP(  2.3. 

2 

) 

♦ 

BTEHP( 

2 

3 

.  3  ) 

385 

386 

169 

C 

386 

387 

170 

BB( 

3 

.  1  )  -  BB0{  3.1) 

4 

BTEHP( 

3 

1 

.  1  )  + 

387 

388 

171 

BTEMP(  3.1. 

2 

) 

4 

BTEHP( 

3 

1 

.  3  ) 

388 

389 

172 

'  BB( 

3 

,  2  )  -  BB0(  3  .  2  ) 

4 

BTEHP( 

3 

2 

.  1  )  + 

389 

390 

173 

BTEHP(  3,2. 

2 

) 

4 

BTEHP( 

3 

2 

.  3  ) 

390 

391 

174 

'  8B( 

3 

3  )  -  BB0(  3.3) 

4 

BTEHP( 

3 

3 

.  1  )  + 

391 

392 

175 

BTEMP(  3.3. 

2 

) 

4 

BTEHP( 

3 

3 

.  3  ) 

392 

393 

176 

C 

393 

394 

177 

DETERM 

-  AA(  1  .  1  )  •  (  AA( 

2 

2 

)  •  AA( 

3 

3 

)  - 

394 

395 

178 

AA( 

3 

2 

)  »  AA( 

2 

3 

)  )  * 

395 

396 

179 

• 

AA(  2  .  1  )  *  (  AA( 

1 

3 

)  •  AA( 

3 

2 

)  - 

396 

397 

180 

* 

AA( 

3 

3 

)  *  AA( 

1 

2 

)  )  * 

397 

398 

181 

AA(  3  .  1  )  •  (  AA( 

1 

2 

)  •  AA{ 

2 

3 

)  - 

398 

399 

182 

, 

AA( 

2 

2 

)  *  AA( 

1 

3 

)  ) 

399 

400 

183 

C 

4(») 

401 

184 

OTRNIN 

-  1.  /  OETERM 

401 

402 

185 

C 

402 

403 

186 

AAAI 

a 

AA(  2  .  3  )  *  AA(  3  . 

1 

> 

/ 

• 

AA(  2  . 

1 

) 

« 

AA(  3  . 

3  ) 

403 

404 

187 

AAA2 

a 

AA(  3  .  3  )  *  AA{  1  . 

1 

) 

. 

AA(  3  . 

1 

) 

* 

AA(  1  . 

3  ) 

404 

405 

188 

AAA3 

• 

AA(  1  .  3  )  •  AA(  2  , 

1 

) 

. 

AA(  1  . 

1 

) 

* 

AA(  2  . 

3  ) 

405 

406 

189 

C 

406 

407 

190 

AAA4 

a 

AA(  2  .  1  )  •  AA(  3  . 

2 

) 

• 

AA(  3  . 

1 

) 

* 

AA(  2  , 

2  ) 

407 

408 

191 

AAAS 

a 

AA(  3  .  1  )  *  AA(  1  , 

2 

) 

• 

AA(  1  . 

1 

) 

* 

AA{  3  , 

2  ) 

408 

409 

192 

AAA6 

« 

AA(  1  ,  1  )  *  AA(  2  . 

2 

) 

AA(  2  , 

1 

) 

* 

AA(  1  , 

2  ) 

409 

410 

193 

c 

410 

411 

194 

RR( 

IS 

)  =  DTRHIN  •  {  BB(  1  . 

1 

) 

« 

AAAI  + 

411 

412 

195 

BB(  2 

1 

) 

* 

AAAI  + 

412 

413 

196 

, 

BB(  3 

1 

) 

* 

AAA3  ) 

413 

414 

197 

c 

414 

415 

198 

RL( 

IS 

)  =  DTRMIN  *  (  BB{  1  . 

1 

) 

AAA4  + 

415 

416 

199 

BB(  2  , 

I 

) 

* 

AAAS  f 

416 

417 

200 

BB{  3  . 

1 

) 

* 

AAAS  ) 

417 

418 

201 

c 

418 

419 

202 

UR( 

IS 

)  =  OTRHIN  *  (  BB{  1  , 

2 

) 

* 

AAAI  + 

419 

420 

203 

8B(  2  . 

2 

) 

* 

AAAI  * 

420 

421 

204 

BB(  3  . 

2 

) 

* 

AAA3  ) 

421 

422 

205 

c 

422 

423 

206 

UL( 

IS 

)  •  OTRHIN  *  (  BB(  1  . 

2 

) 

* 

AAA4  + 

423 

424 

207 

a 

BB(  2  . 

2 

) 

* 

AAA5  + 

424 

425 

208 

B8(  3  , 

2 

) 

* 

AAA6  ) 

425 

426 

209 

c 

426 

427 

210 

VR( 

IS 

)  =  OTRHIN  •  (  B8(  1  , 

3 

) 

* 

AAAI  + 

427 

428 

211 

BB(  2  . 

3 

) 

* 

AAAI  + 

428 

429 

212 

a 

B8(  3  , 

3 

) 

» 

AAA3  ) 

429 

430 

213 

c 

430 

431 

214 

VL{ 

IS 

)  -  DTRMIN  *  (  BB(  1  , 

3 

) 

AAA4  + 

431 

432 

215 

a 

BB(  2  . 

3 

) 

♦ 

AAAS  + 

432 

433 

216 

a 

BB(  3  . 

3 

) 

* 

AAA6  ) 

433 

434 

217 

c 

434 

435 

218 

105 

CONTINUE 

435 

436 

219 

C 

436 

437 

220 

NSl  - 

NS2  +  1 

437 

438 

221 

NS2  - 

NS2  +  NOFVES(  INS  ♦  1  ) 

438 

439 

111 

90 

CONTINUE 

439 

page 


6 


Thu  Ju]  1  14:15:55  1993  gradhd.f  SUBROUTINE  GROENG  page  7 

440  223  C  440 

441  224  C - 441 

442  225  C  442 

443  226  C  —  EXIT  POINT  FROM  SUBROUTINE . -  443 

444  227  C  444 

445  228  C  -  445 

446  229  RETURN  446 

447  230  C  .  447 

448  231  C  448 

449  232  C  —  449 

450  233  END  450 

Thu  Jul  1  14:15:55  1993  gradhd.f  SUBROUTINE  GRAONL 

451  1  SUBROUTINE  GRAONL  451 

452  2  C  452 

453  3  C - I  453 

454  4  C  I  454 

455  5  C  GRAONL  COMPUTE  THE  GRADIENT  FOR  SECOND  ORDER  CALCULATION  I  455 

456  6  C  SEARCH  FOR  ALL  TRIANGLES  SUROUNOING  THE  TARGET  I  456 

457  7  C  CELL  FOR  COMPUTING  THE  GRADIENT  APPLYING  LEAST  I  457 

4»  8  C  SQUARE  TECHNIQUE  I  458 

459  9  C  I  459 

460  10  C - I  460 

461  11  C  461 

462  12  include  'anshOO.h'  462 

463  13  include  'chydOO.h'  463 

464  14  include  'cintOO.h'  464 

465  15  include  'cphslO.h'  465 

466  16  include  'cphs20.h'  466 

467  17  C  467 

468  18  C>— —————— — — — - ............... — 468 

469  19  C  469 

470  20  REAL  RRM10L(MBP),PPMI0L(M8P).UUM1DL(MBP).VVMIDL(MBP)  470 

471  21  REAL  RIGRA0(HBP),PIGRAD(MBP),U1GRAD(HBP).VIGRA0(MBP)  471 

472  22  REAL  RJGRA0(MBP),PJGRAD(MBP).UJ6RA0(HBP).VJGRA0(MBP)  472 

473  23  REAL  RMAX(MBP).PMAX(M8P).UMAX{MBP).VMAX(MBP)  473 

474  24  REAL  RM1N(HBP).PMIH(MBP).UMIM(MBP),VMIN(MBP)  474 

475  25  REAL  RL£Fn(MBP),OLEFTT(MeP).VLEFrT(KBP),PLEFTT(HBP)  475 

476  26  REAL  RRIGHT(H8P),URIGHT(M8P).VRIGHT(MBP),PRIGHT(HBP)  476 

477  27  REAL  R0R(3).U0P(3),V0R(3).P0R{3)  477 

478  28  REAL  ROL(3),UOL(3),VOL(3).POL(3)  478 

479  29  REAL  AA(3.3).B8(3.4).B(3),1NDX(3).ATEMP(3,3).BTEHP(3.4)  479 

480  30  C  480 

481  31  C- - - - - - - - .......... — -  481 

482  32  C  482 

483  33  C  —  BEGIN  LOOP  OVER  ALL  CELLS  IN  THE  DOMAIN .  483 

484  34  C  484 

485  35  MSI  =  1  485 

486  36  NS2  -  NOFVES(  1  )  486 

487  37  DO  90  INS  -  1  .  NVEES  487 

488  38  C  488 

489  39  C  —  FETCH  HYDRO  QUANTITIES .  489 

490  40  C  490 

491  41  00  105  IS  -  NSl  ,  NS2  491 

492  42  C  492 

493  43  JJCOLR  -  0  493 

494  44  C  494 

495  45  DO  115  IK  -  1  .  3  495 

496  46  IW  -  JS(  IK  ,  IS  )  496 

497  47  lEE  •  JV(  2  .  IVV  )  497 

498  48  C  498 

499  49  IF(  lEE  .  GT  .  0  )  THEN  499 

500  50  C  500 

501  51  IVl  -  JE(  1  ,  lEE  )  501 

502  52  IF(  IVl  .  EO  .  IVV  )  THEN  502 

503  53  ISI  -  JE(  3  .  lEE  )  503 

504  54  ELSE  504 

505  55  ISI  -  J£(  4  ,  lEE  )  505 

506  56  END  IF  506 

507  57  ISS  -  ISI  507 

508  58  IE  .  lEE  508 

509  59  C  509 

510  60  150  CONTINUE  510 


page 


7 


Thu  Jul 

1  14: 

15:55 

1993  gradhd.f 

511 

61 

C 

512 

62 

JJCOLR  -  JJCOLR  +  1 

513 

63 

nC0LR(  JJCOLR  )  •  ISS 

514 

64 

C 

515 

65 

DO  160  IR  -  1  .  3 

516 

66 

JR  -  M00(  IR  ,  3  )  +  1 

517 

67 

lEA  -  1ABS(  JS(  JR  t  3  , 

518 

68 

IF{  lEA  .  EQ  .  IE  )  THEN 

519 

69 

JJR  -  HOD(  JR  +  1  .  3  )  + 

520 

70 

lER  -  IABS(  JS{  JJR  .  ISS 

521 

71 

C 

522 

72 

IVl  -  JE{  1  .  lER  ) 

523 

73 

IF(  IVl  .  EQ  .  IVV  )  THEN 

524 

74 

ISR  -  JE(  3  .  lER  ) 

525 

75 

ELSE 

526 

76 

ISR  -  JE(  4  ,  lER  ) 

527 

77 

END  IF 

528 

78 

END  IF 

529 

79 

C 

530 

80 

160 

CONTINUE 

531 

81 

C 

532 

82 

IF(  ISR  .  NE  .  ISI  )  THEN 

533 

83 

ISS  -  ISR 

534 

84 

IE  -  lER 

535 

85 

GO  TO  150 

536 

86 

END  IF 

537 

87 

c 

538 

88 

ELSE 

539 

89 

c 

540 

90 

lEE  •  -  lEE 

541 

91 

IVl  -  JE(  1  .  lEE  ) 

542 

92 

IF(  IVl  .  EQ  .  IVV  )  THEN 

543 

93 

ISI  -  JE(  3  .  lEE  ) 

544 

94 

ELSE 

545 

95 

ISI  ■  JE(  4  .  lEE  ) 

546 

96 

END  IF 

547 

97 

ISS  -  ISI 

548 

98 

ISI  -  0 

549 

99 

IE  -  lEE 

550 

100 

c 

551 

101 

170 

CONTINUE 

552 

102 

C 

553 

103 

JJCOLR  -  JJCOLR  +  1 

554 

104 

IICOLRI  JJCOLR  )  •  ISS 

555 

105 

C 

556 

106 

DO  180  IR  -  1  ,  3 

557 

107 

JR  -  MOD(  IR  ,  3  )  +  1 

558 

108 

lEA  -  IABS(  JS(  JR  *  3  ,  1 

559 

109 

IF(  lEA  .  EQ  .  IE  )  THEN 

560 

no 

JJR  -  H00(  JR  ♦  1  ,  3  )  + 

561 

111 

lER  -  lABSI  JS(  JJR  ,  ISS 

562 

112 

C 

563 

113 

IVl  -  JE(  1  .  lER  ) 

564 

114 

IF(  IVl  .  EQ  .  IVV  )  THEN 

565 

115 

ISR  -  JE(  3  .  lER  ) 

566 

116 

ELSE 

567 

117 

ISR  -  JE(  4  ,  lER  ) 

568 

118 

END  IF 

569 

119 

END  IF 

570 

120 

c 

571 

121 

180 

CONTINUE 

572 

122 

C 

573 

123 

IF(  ISR  .  NE  .  ISI  )  THEN 

574 

124 

ISS  -  ISR 

575 

125 

IE  -  lER 

576 

126 

GO  TO  170 

577 

127 

END  IF 

578 

128 

C 

579 

129 

END  IF 

580 

130 

115 

CONTINUE 

581 

131 

C 

582 

132 

ATEHP(  1  ,  1  )  «  0. 

583 

133 

ATEMP(  1  ,  2  )  -  0. 

584 

134 

ATEHP(  1  ,  3  )  -  0. 

SUBROUTINE  GRAONL  page  8 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 


page 


8 


Thu  Jul  1  14:15:55  1993  gradhd.f 


SUBROUTINE  GRAOKL 


page 


9 


585 

135 

C 

586 

136 

ATEMP(  2  .  1  )  -  0. 

587 

137 

ATEMP(  2  .  2  )  -  0. 

588 

138 

ATEI1P(  2  .  3  )  -  0. 

589 

139 

C 

590 

140 

ATEHP(  3  .  1  )  -  0. 

591 

141 

ATENP(  3  .  2  )  -  0. 

592 

142 

ATEHP{  3  .  3  )  -  0. 

593 

143 

C 

594 

144 

8TEHP(  1  .  1  )  -  0. 

595 

145 

BTEHP(  1  .  2  )  -  0. 

596 

146 

BTEMP{  1  ,  3  )  .  0. 

597 

147 

BTEHP(  1  .  4  )  -  0. 

598 

148 

C 

599 

149 

BTEHP(  2  .  1  )  -  0. 

600 

150 

BTEHP(  2  ,  2  )  -  0. 

601 

151 

BTEHP(  2  ,  3  )  -  0. 

602 

152 

BTEHP(  2  ,  4  )  -  0. 

603 

153 

C 

604 

154 

BTEHP(  3  .  1  )  -  0. 

605 

155 

aTEMP(  3  .  2  )  -  0. 

606 

156 

BTEHP(  3  .  3  )  -  0. 

607 

157 

BTEHP(  3  ,  4  )  ■  0. 

608 

158 

C 

609 

159 

DO  225  KK  -  2  .  JJCOLR 

610 

160 

ISS  -  I1C0LR(  KK  ) 

611 

161 

IF(  ISS  .  NE  .  0  )  THEN 

612 

162 

XSS  -  XS(  1  ,  ISS  ) 

613 

163 

YSS  -  XS(  2  .  ISS  ) 

614 

164 

c 

615 

165 

HYOVR  -  HY0V(  ISS  .  1  ) 

616 

166 

HYOVU  -  HY0V(  ISS  .  2  ) 

617 

167 

HYOW  -  HYDV(  ISS  .  3  ) 

618 

168 

HYDVP  "  HY0V(  ISS  ,  4  ) 

619 

169 

c 

620 

170 

XSS2  -  XSS  •  XSS 

621 

171 

YSS2  -  YSS  •  YSS 

622 

172 

XYSS  -  XSS  ‘  YSS 

623 

173 

c 

624 

174 

ATEMP(  1.1)-  ATEMP(  1,1)* 

625 

175 

ATEHP(  1.2).  ATEHP(  1,2)+ 

626 

176 

ATEHP(  1,3).  ATEMP(  1.3)+ 

627 

177 

c 

628 

178 

ATEHP(  2,1).  ATEHP{  2.1)+ 

629 

179 

ATEHP(  2.2).  ATEHP(  2.2)+ 

630 

180 

ATEMP(  2,3).  ATEMP(  2.3)+ 

631 

181 

c 

632 

162 

ATEMP(  3,1).  ATEMP(  3.1)+ 

633 

183 

ATEMP(  3.2).  ATEMP(  3,2)+ 

634 

184 

ATEMP(  3.3).  ATEHP(  3.3)+ 

635 

185 

c 

636 

186 

BTEHP(  1.1).  BTEMP(  1.1)+ 

637 

187 

8TEMP(  1,2).  BTEHP(  1,2)+ 

638 

188 

BTEHP(  1,3).  BTEHP(  1,3)+ 

639 

189 

BTEI1P(  1.4).  BTEHP(  1,4)  + 

640 

190 

c 

641 

191 

BTEMP{  2,1).  BTEMP(  2.1)+ 

642 

192 

BTEHP(  2.2).  BTEMP{  2,2)+ 

643 

193 

BTEMP(  2.3).  BTEMP(  2,3)+ 

644 

194 

BTEMP(  2,4).  BTEHP(  2,4)+ 

645 

195 

c 

646 

196 

BTEMP(  3.1).  BTEHPf  3.1)+ 

647 

197 

8TEMP(  3,2).  BTEHP(  3.2)+ 

648 

198 

BTEHP(  3,3).  8TEMP(  3,3)+ 

649 

199 

BTEMP(  3.4).  BTEHP(  3,4)+ 

650 

200 

c 

651 

201 

END  IF 

652 

202 

c 

653 

203 

225 

CONTINUE 

654 

204 

c 

655 

205 

AA(  1  ,  1  )  .  ATEMP(  1.1) 

656 

206 

AA(  1  .  2  )  .  AT£HP(  1.2) 

657 

207 

AA(  1  ,  3  )  -  ATEHP{  1.3) 

658 

208 

c 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 
623 


1.0  624 
XSS  625 
YSS  626 

627 

XSS  628 
XSS2  629 
XYSS  630 

631 

YSS  632 
XYSS  633 
YSS2  634 

635 

HYOVR  636 
HYDVU  637 
HYDVV  638 
HYDVP  639 

640 

HYOVR  *  XSS  641 
HYOVU  •  XSS  642 
HYDVV  *  XSS  643 
HYOVP  *  XSS  644 

645 

HYOVR  •  YSS  646 
HYDVU  •  YSS  647 
HYDVV  •  YSS  648 
HYDVP  *  YSS  649 


650 

651 

652 

653 

654 

655 

656 

657 

658 


page 


9 


SUBROUTINE  GRAONL 


page  10 


Thu  Jul  1  14:15:55  1993  gradhd.f 


659 

209 

M{  2  ,  1  )  . 

ATEHP(  2.1) 

660 

210 

AA(2.2)- 

ATEMP(  2.2) 

661 

211 

AA(  2  ,  3  )  = 

ATEHP{  2.3) 

662 

212 

C 

663 

213 

AA(3,1)- 

ATEHP{  3.1) 

664 

214 

AA(3.2)- 

ATEMP(  3.2) 

665 

215 

AA(3,3)- 

ATEMP{  3.3) 

666 

216 

C 

667 

217 

BB(  1  .  1  )  . 

BTEMP(  1.1) 

668 

218 

B8(  1  .  2  )  . 

BTEMP(  1.2) 

669 

219 

88(1.3)- 

BTEMP(  1.3) 

670 

220 

BB(1.4)- 

BTEMP{  1.4) 

671 

221 

C 

672 

222 

BB(2.l)- 

BTEHP(  2.1) 

673 

223 

BB(2.2)- 

BTEHP(  2.2) 

674 

224 

BB(2,3)= 

BTEMP(  2.3) 

675 

225 

BB(  2  .  4  )  - 

8TEMP(  2.4) 

676 

226 

C 

677 

227 

BB(3.1)- 

BTEHP(  3.1) 

678 

228 

BB(3.2)- 

BTEMP(  3.2) 

679 

229 

BB(  3  .  3  )  - 

BTEMP(  3.3) 

6BO 

230 

BB(  3  .  4  )  - 

BTEHP(  3.4) 

681 

231 

C 

682 

232 

OETERM  -  AA(  1 

.1)*(AA(2.2)*AA(3.3)- 

683 

233 

. 

AA(  3  .  2  )  •  AA(  2  .  3  )  )  + 

684 

234 

AA(  2 

.1)»(AA{1.3)*AA(3.2)- 

665 

235 

. 

AA(  3  .  3  )  •  AA(  1  .  2  )  )  + 

686 

236 

AA(  3 

.1)»(AA(1.2)«AA(2.3)- 

687 

237 

• 

AA(  2  .  2  )  *  AA(  1  ,  3  )  ) 

688 

238 

C 

689 

239 

DTRHIN  -  1.  /  OETERM 

690 

240 

C 

691 

241 

AAAI  -  AA(  2  , 

3  )  •  AA(  3  .  1  )  -  AA(  2  .  1  )  •  AA(  3  .  3  ) 

692 

242 

AAA2  -  AA(  3  . 

3  )  *  AA(  1  ,  1  )  -  AA(  3  .  1  )  *  AA(  1  .  3  ) 

693 

694 

243 

244 

C 

AAA3  -  AA(  I  . 

3  )  •  AA(  2  .  1  )  .  AA(  1  .  1  )  •  AA(  2  .  3  ) 

695 

245 

AAA4  -  AA(  2  . 

1  )  •  AA(  3  .  2  )  -  AA(  3  .  1  )  •  AA(  2  .  2  ) 

696 

246 

AAA5  -  AA(  3  . 

1  )  *  AA(  1  .  2  )  -  AA{  1  .  1  )  ♦  AA(  3  .  2  ) 

697 

698 

247 

248 

C 

AAA6  -  AA(  1  , 

1  )  •  AA(  2  .  2  )  -  AA{  2  .  1  )  •  AA(  1  .  2  ) 

699 

249 

RGRAO(  IS  .  1  ) 

-  OTRMIN  *  (  BB(  1  .  1  )  •  AAAI  + 

700 

250 

« 

BB(  2  .  1  )  *  AAA2  + 

701 

251 

« 

8B(  3  .  1  )  •  AAA3  ) 

702 

252 

C 

703 

253 

RGRAD(  IS  .  2  ) 

-  DTRHIN  •  (  BB(  1  .  1  )  *  AAA4  + 

704 

254 

• 

BB(  2  .  1  )  *  AAA5  + 

705 

255 

BB{  3  .  1  )  •  AAA6  ) 

706 

256 

C 

707 

257 

UGRAD{  IS  ,  1  ) 

-  DTRHIN  *  (  BB(  1  .  2  )  •  AAAI  + 

708 

258 

BB{  2  .  2  )  •  AAA2  + 

709 

259 

• 

BB(  3  .  2  )  *  AAA3  ) 

710 

260 

C 

711 

261 

UGRAD(  IS  ,  2  ) 

-  DTRHIN  •  (  BB(  1  .  2  )  •  AAA4  ♦ 

712 

262 

BB{  2  .  2  )  •  AAA5  + 

713 

263 

. 

8B(  3  .  2  )  *  AAA6  ) 

714 

264 

C 

715 

265 

VGRADC  IS  ,  1  ) 

-  OTRMIN  M  BB(  1  .  3  )  *  AAAI  + 

716 

266 

• 

BB{  2  .  3  )  •  AAA2  + 

717 

267 

. 

BB(  3  .  3  )  *  AAA3  ) 

718 

268 

C 

719 

269 

VGRA0(  IS  ,  2  ) 

-  OTRMIN  *  (  BB(  1  .  3  )  •  AAA4  + 

720 

270 

, 

BB(  2  .  3  )  •  AAA5  + 

721 

271 

. 

B8(  3  .  3  )  *  AAA6  ) 

722 

272 

C 

723 

273 

PGRAD(  IS  .  1  ) 

-  DTRHIN  *  (  BB(  1  .  4  )  •  AAAI  + 

724 

274 

B8(  2  .  4  )  »  AAA2  + 

725 

275 

• 

BB(  3  .  4  )  *  AAA3  ) 

726 

276 

C 

727 

277 

PGRAO(  IS  ,  2  ) 

-  OTRMIN  *  {  8B(  1  .  4  )  •  AAA4  + 

728 

278 

• 

B8(  2  .  4  )  *  AAA5  + 

729 

279 

BB(  3  .  4  )  *  AAA6  ) 

730 

280 

C 

731 

281 

105 

CONTINUE 

732 

282 

c 

559 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 
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733  283  NSl  -  NS2  +  1  733 

734  284  NSZ  -  NS2  +  NOFV£S(  INS  ♦  1  )  734 

735  285  90  CONTINUE  735 

736  286  C  736 

737  287  C-^ - — — — - — - — - - - - - —  737 

738  288  C  738 

739  289  C  —  CALL  THE  HONOTONICITY  LIMITER .  739 

740  290  C  740 

741  291  CALL  MONOTN  741 

742  292  C  742 

743  293  C - — — — - - — — - - — - - - — — — — n.....  743 

744  294  C  744 

745  295  C  745 

746  296  C  —  EXIT  POINT  FROM  SUBROUTINE . .  746 

747  297  C  747 

748  298  C  -  748 

749  299  RETURN  749 

750  300  C  -  750 

751  301  C  751 

752  302  C  —  752 

753  303  END  753 

Thu  Jul  1  14:15:55  1993  gradhd.f  SUBROUTINE  GRADNT 

754  1  SUBROUTINE  GRADNT  754 

755  2  C  755 

756  3  C - I  756 

757  4  C  I  757 

758  5  C  GRADNT  COMPUTE  THE  GRADIENT  FOR  SECOND  ORDER  CALCULATION  I  758 

759  6  C  USE  THE  INFORMATION  IN  THE  THREE  NEIGHBOURING  I  759 

760  7  C  TRIANGLES  THAT  HAVE  COMMON  EDGES  TO  COMPUTE  I  760 

761  8  C  GRADIENT  APPLYING  LEAST  SQUARE  TECHNIQUE  I  761 

762  9  C  I  762 

763  10  C - 1  763 

764  11  C  764 

765  12  include  'cmshOO.h'  765 

766  13  Include  ‘chydOO.h*  766 

767  14  Include  'cintOO.h*  767 

768  15  include  'cphslO.h'  768 

769  16  include  ’cphsZO.h'  769 

770  17  C  770 

771  18  C>— - 771 

772  19  C  772 

773  20  REAL  RRMI0L(MBP).PPH10L(HBP).UUMIDL(MBP),VVMIDL(MBP)  773 

774  21  REAL  R1GRAD(MBP).PIGRAD(MBP).UIGRA0(MBP),VIGRA0(MBP)  774 

775  22  REAL  RJGRAD(MBP) ,PJGRAO(MBP).UJGRAD(MBP), VJGRAO{MBP)  775 

776  23  REAL  RHAX(MBP),PMAX(MBP).UMAX(HBP).VHAX(HBP)  776 

777  24  REAL  RMIN(MBP),PH1N(HBP).UMIN(MBP).VKIN(MBP)  777 

778  25  REAL  RLEFTT(MBP) .ULEFTT(HBP).VLEFTT(HBP).PIEFTT(HBP)  778 

779  26  REAL  RRIGHT(MBP),URIGHT(HBP),VR1GHT(MBP),PRIGHT(MBP)  779 

780  27  REAL  R0R(3) ,U0R(3) .V0R(3).P0R(3)  780 

781  28  REAL  ROL{3),UOL(3).VOL(3),POL(3)  781 

782  29  REAL  AA{3.3).BB{3,4).B(3).INDX(3).ATEMP(3,3,3).BTEHP(3,4.3)  782 

783  30  REAL  AA0(3,3). 880(3.4)  783 

784  31  C  784 

785  32  C- - - — — - — - - - — — -  785 

786  33  C  786 

787  34  C  —  BEGIN  LOOP  OVER  ALL  CELLS  IN  THE  DOMAIN .  787 

788  35  C  788 

789  36  NSl  -  1  789 

790  37  NS2  -  NOFVES(  1  )  790 

791  38  00  90  INS  -  1  ,  NVEES  791 

792  39  C  792 

793  40  C  —  FETCH  HYDRO  QUANTITIES  - .  793 

794  41  C  794 

795  42  DO  105  IS  -  NSl  .  NS2  795 

796  43  C  796 

797  44  XSM  -  XS(  1  ,  IS  )  797 

798  45  YSM  -  XS(  2  ,  IS  )  798 

799  46  XSM2  -  XSM  •  XSM  799 

800  47  YSH2  -  YSM  *  YSM  800 

801  48  XYSM  •  XSM  *  YSM  801 

802  49  C  802 

803  50  AA0(  1  ,  1  )  -  1.0  803 
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804 

51 

AA0(  1  ,  2  )  -  XSM 

804 

805 

52 

AA0(  1  .  3  )  -  YSM 

805 

806 

53 

C 

806 

807 

54 

AA0(  2  .  1  )  -  XSM 

807 

808 

55 

AA0(  2  ,  2  )  ■  XSM2 

808 

809 

56 

AA0(  2.3)-  XYSM 

809 

810 

57 

C 

810 

811 

58 

AA0(  3  ,  1  )  -  YSH 

811 

812 

59 

AA0{  3  ,  2  )  -  XYSM 

812 

813 

60 

AA0(  3  .  3  )  -  YSM2 

813 

814 

61 

C 

814 

815 

62 

B81  -  HYDV(  IS  ,  1  ) 

815 

816 

63 

BB2  -  HYDV(  IS  .  2  ) 

816 

817 

64 

BB3  -  HYDV(  IS  ,  3  ) 

817 

818 

65 

BB4  -  HYDV(  IS  .  4  ) 

818 

819 

66 

C 

819 

820 

67 

BBIX  -  Bfll  *  XSM 

820 

821 

68 

BB2X  -  BB2  *  XSM 

821 

822 

69 

eB3X  -  Bfl3  *  XSM 

822 

823 

70 

BB4X  -  BB4  •  XSM 

823 

824 

71 

C 

824 

825 

72 

BBIY  -  BBl  *  YSH 

825 

826 

73 

flB2Y  -  882  *  YSH 

826 

827 

74 

BB3Y  =  BB3  *  YSH 

827 

828 

75 

BB4Y  -  BB4  *  YSH 

828 

829 

76 

C 

829 

830 

77 

BB0(  1  .  1  )  -  BBl 

830 

831 

78 

BBO(  1  ,  2  )  -  BB2 

831 

832 

79 

BB0(  1  .  3  )  -  BB3 

832 

833 

80 

BBO(  1  ,  4  )  •  BB4 

833 

834 

81 

C 

834 

835 

82 

BBO(  2  .  1  )  -  BBIX 

835 

836 

83 

BB0(  2  .  2  )  -  BB2X 

836 

837 

84 

BB0(  2  .  3  )  -  BB3X 

837 

838 

85 

BB0(  2  ,  4  )  -  BB4X 

838 

839 

86 

C 

839 

840 

87 

BB0(  0,1)-  BBIY 

840 

841 

88 

880(  3  .  2  )  -  B82Y 

841 

842 

89 

BB0(  3.3)-  BB3Y 

842 

643 

90 

BB0(  3.4)-  8B4Y 

843 

844 

91 

C 

844 

845 

92 

DO  115  IK  -  1  .  3 

845 

846 

93 

IE  -  JS(  IK  +  3  .  IS  ) 

.  846 

847 

94 

IF(  IE  .  GT  .  0  )  THEN 

t 

847 

848 

95 

ISS  -  JE(  4  ,  IE  ) 

848 

849 

96 

ELSE 

849 

850 

97 

ISS  -  JE(  3  ,  -  IE  ) 

850 

851 

98 

ENO  IF 

851 

852 

99 

c 

852 

853 

100 

IF(  ISS  .  HE  .  0  )  THEN 

853 

854 

101 

XSS  -  XS(  1  .  ISS  ) 

854 

855 

102 

YSS  -  XS(  2  .  ISS  ) 

855 

856 

103 

c 

856 

857 

104 

HYDVR  -  HYOV(  ISS  .  1  ) 

857 

858 

105 

HYOVU  -  HYOV(  ISS  .  2  ) 

858 

859 

106 

HYOVV  -  HYOV(  ISS  .  3  ) 

859- 

860 

107 

HYDVP  -  HYOV(  ISS  .  4  ) 

860 

861 

108 

c 

861 

862 

109 

ELSE 

862 

863 

110 

c 

863 

864 

111 

IE  -  IABS(  IE  ) 

864 

865 

112 

HYDVR  -  BBl 

865 

866 

113 

HYOVU  -  BB2 

866 

867 

114 

HYOVV  -  BB3 

867 

868 

115 

HYDVP  -  BB4 

868 

869 

116 

c 

869 

870 

117 

XSS  -  2.  »  XMIDL(  IE  )  -  XSM 

870 

871 

118 

YSS  -  2.  *  YMIDL(  IE  )  -  YSM 

871 

872 

119 

c 

872 

873 

120 

c 

IJE5  -  JE(  5  .  IE  ) 

873 

874 

121 

c 

IF(  IJE5  .  £0  .  6  .  OR  .  IJE5  .  EQ  .  5  )  THEN 

874 

875 

122 

c 

UUVV  -  -  (  BB2  *  XN(  IE  )  +  BB3  •  YN{  IE  )  ) 

875 

876 

123 

c 

VVUU  -  -  8B2  *  YN(  IE  )  >  BB3  •  XN(  IE  ) 

876 

877 

124 

c 

HYOVU  -  UUVV  •  XN(  IE  )  -  VVUU  *  YN(  IE  ) 

877 
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878 

125 

C 

HYDVV  =  UUVV  •  YN{  IE  )  ♦  VVUU  *  XN(  IE 

) 

878 

879 

126 

C 

879 

880 

127 

c 

ELSEIF(  IJE5  .  EQ  .  8  )  THEN 

880 

881 

128 

c 

HYOVR  -  RIN 

881 

882 

129 

c 

HYOVU  -  UIN 

882 

883 

130 

c 

HYOW  -  VIN 

883 

884 

131 

c 

HYDVP  =  PIN 

884 

885 

132 

c 

885 

386 

133 

c 

END  IF 

886 

887 

134 

END  IF 

887 

888 

135 

c 

888 

889 

136 

XSS2  -  XSS  *  XSS 

889 

890 

137 

YSS2  *  YSS  *  YSS 

890 

891 

138 

XYSS  -  XSS  *  YSS 

891 

892 

139 

c 

892 

893 

140 

ATEHP(  1  ,  1  .  IK  )  -  1.0 

893 

894 

141 

ATEMP(  1  .  2  ,  IK  )  -  XSS 

894 

895 

142 

ATEMP(  1  .  3  .  IK  )  .  YSS 

895 

896 

143 

c 

896 

897 

144 

ATEHP(  2  .  1  .  IK  )  -  XSS 

897 

898 

145 

ATEHP(  2  .  2  .  IK  )  -  XSS2 

898 

899 

146 

ATEMP(  2  .  3  .  IK  )  -  XYSS 

899 

900 

147 

c 

900 

901 

148 

ATEHP(  3  .  1  .  IK  )  -  YSS 

901 

902 

149 

ATEHP(  3  .  2  .  IK  )  -  XYSS 

902 

903 

ISO 

AT£MP(  3  ,  3  ,  IK  )  -  YSS2 

903 

904 

151 

c 

904 

905 

152 

BTEMP(  1  .  1  ,  IK  I  «  HYDVR 

905 

906 

153 

BTEMP(  1  .  2  .  IK  )  «  HYOVU 

906 

907 

154 

BTEMP(  1  ,  3  ,  IK  )  -  HYOW 

907 

908 

155 

BTEMP(  1  .  4  .  IK  )  -  HYOVP 

908 

909 

156 

c 

909 

910 

157 

BTEMP(  2  .  1  .  IK  )  -  HYOVR  *  XSS 

910 

911 

158 

8TE!1P(  2  .  2  .  IK  )  -  HYOVU  *  XSS 

911 

912 

159 

BT£MP(  2  ,  3  ,  IK  )  >  HYOW  •  XSS 

912 

913 

160 

BTEHP(  2  .  4  .  IK  )  -  HYOVP  *  XSS 

913 

914 

161 

c 

914 

915 

162 

BTEMP(  3  .  1  ,  IK  )  -  HYOVR  *  YSS 

915 

916 

163 

BTEHP(  3  ,  2  .  IK  )  -  HYOVU  •  YSS 

916 

917 

164 

BTEMP(  3  ,  3  ,  IK  )  -  HYOW  •  YSS 

917 

918 

165 

BTEHP(  3  ,  4  .  IK  )  -  HYDVP  *  YSS 

918 

919 

166 

c 

919 

920 

167 

115 

CONTINUE 

920 

921 

168 

c 

921 

922 

169 

AA(  1  ,  1  I  •  AAO(  1  ,  1  )  •  3.  +  ATEHP{ 

1 

.  1 

.  1 

) 

+ 

922 

923 

170 

ATEMP(  1,1,2)+  ATEMP( 

1 

,  1 

,  3 

) 

923 

924 

171 

AA(  1  ,  2  )  =  AA0(  1  ,  2  )  *  3.  +  ATEMP( 

1 

.  2 

,  1 

) 

•f 

924 

925 

172 

ATEHP(  1.2,2)+  ATEHP( 

1 

,  2 

,  3 

) 

925 

926 

173 

AA(  1  ,  3  )  >  AA0(  1  .  3  )  •  3.  +  ATEMP( 

1 

.  3 

,  1 

) 

+ 

926 

927 

174 

ATEHP(  1,3,2)+  ATEHP( 

1 

,  3 

.  3 

) 

927 

928 

175 

c 

928 

929 

176 

AA(  2  .  1  )  -  AA0(  2  .  1  )  *  3.  +  ATEHP( 

2 

,  1 

,  1 

) 

+ 

929 

930 

177 

ATEMP{  2,1,2)+  ATEMP( 

2 

.  1 

.  3 

) 

930 

931 

178 

AA(  2  ,  2  )  -  AA0(  2  ,  2  )  *  3.  +  ATEHP( 

2 

,  2 

,  1 

) 

+ 

931 

932 

179 

ATEHP(  2,2.2)+  ATEHP( 

2 

.  2 

.  3 

) 

932 

933 

180 

AA(  2  ,  3  )  -  AAO(  2  .  3  )  *  3.  +  ATEHP( 

2 

.  3 

.  1 

) 

♦ 

933 

934 

181 

ATEMP(  2,3,2)+  ATEMP( 

2 

.  3 

.  3 

) 

934 

935 

182 

c 

935 

936 

183 

AA(  3  .  1  )  -  AAO(  3  ,  1  )  •  3.  +  ATEMP( 

3 

.  1 

.  1 

) 

■f 

936 

937 

184 

ATEHP(  3,1,2)+  ATEMP( 

3 

.  1 

,  3 

) 

937 

938 

185 

AA(  3  ,  2  )  -  AAO(  3  ,  2  )  »  3.  +  ATEHP( 

3 

.  2 

.  1 

) 

+ 

938 

939 

186 

ATEMP(  3,2.2)+  ATEHP( 

3 

,  2 

.  3 

) 

939 

940 

187 

AA(  3  .  3  )  -  AAO(  3  .  3  )  *  3.  +  ATEMP( 

3 

.  3 

.  1 

) 

+ 

940 

941 

188 

ATEHP(  3,3,2)+  ATEHP( 

3 

.  3 

.  3 

) 

941 

ga 

189 

c 

942 

9 

190 

BB(  1  ,  1  )  .  BBO(  1  .  1  )  *  3.  +  BTEHP( 

1 

.  1 

.  1 

) 

+ 

943 

p 

191 

BTEMP(  1,1,2)+  BTEMP( 

1 

.  1 

.  3 

) 

944 

192 

B8(  1  ,  2  )  -  BBO{  1  .  2  )  *  3.  +  BTEHP( 

1 

.  2 

.  1 

) 

945 

193 

BTEHP(  1,2,2)+  BTEMP( 

1 

,  2 

.  3 

) 

946 

947 

194 
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VOL(  3  )  -  VVOL 
POL(  3  )  »  PPOL 

ROR(  3  )  -  RROR 
UOR(  3  )  -  UUOR 
VOR(  3  )  -  VVOR 
POR(  3  )  -  PPOR 

—  FIND  MAXIMA  IN  THE  NEIGHBORHOOD  OF  A  TRIANGLE 


RMAX(  KS  ) 
UMAX(  KS  ) 


AHAXK  ROL{  1  ) 
ROR(  1  ) 
AMAXK  UOL(  1  ) 
UOR(  1  ) 


ROL(  2  ) 
ROR(  2  ) 
UOL(  2  ) 
UOR(  2  ) 


ROL{  3  )  . 
ROR{  3  )  ) 
UOL(  3  )  , 
UOR(  3  )  ) 
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Thu  Jul 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 
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204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 


VMAX(  KS  )  -  AMAXK  m{  1  )  ,  V0L{  2  )  ,  VOL{  3  )  . 

VOR(  1  )  .  VOR(  2  )  ,  V0R{  3  )  ) 

PMAX{  KS  )  *  AMAXK  POL(  1  )  .  P0L{  2  )  .  POL(  3  )  . 

^  •  POR(  1  )  ,  POR(  2  )  ,  POR(  3  )  ) 

C  —  FIND  MINIMA  IN  THE  NEIGH80RH000  OF  A  TRIANGLE  . 

C 


RM1N( 

KS  ) 

-  AMINK 

ROL( 

1 

) 

.  ROL( 

2  ) 

.  ROL( 

3 

UMIN{ 

KS  ) 

ROR( 

1 

) 

,  ROfi( 

2  } 

,  fiOR( 

3 

) 

) 

>  AMINK 

UOL( 

1 

) 

,  UOL( 

2  ) 

,  UOL( 

3 

) 

WIM( 

UOR( 

1 

) 

,  UOR( 

2  ) 

.  UOR( 

3 

) 

) 

KS  ) 

=  AMINK 

VOL( 

1 

) 

,  VOL( 

2  ) 

,  VOL( 

3 

) 

PM1N( 

VOR( 

1 

) 

,  VOR( 

2  ) 

,  VOR( 

3 

) 

) 

KS  ) 

-  AMINK 

POL( 

1 

) 

,  POL( 

2  ) 

,  POL( 

3 

) 

POR( 

1 

) 

,  POR( 

2  ) 

.  POR( 

3 

) 

j 

150  CONTINUE 
C 

C  —  FIND  DIFFERENCES  BETWEEN  EXTREHA  AND  THE  TRIANGLE  CENTERED 
C  QUANTITIES 
C 

DO  180  IS  -  NSl  .  NS2 
KS  -  IS  -  NSl  +  1 
C 


RRR(  KS  )  -  RMAX(  KS 
RRL(  KS  )  -  RHIN(  KS 
UUR(  KS  )  »  UMAX(  KS 
UUL(  KS  )  -  UH!N(  KS 
VVR{  KS  )  -  VHAX(  KS 
VVL(  KS  )  -  VMIN(  KS 
PPR(  KS  )  *  PMAX(  KS 
PPL(  KS  )  -  PM1N(  KS 


) 

-  HYDV{ 

IS  , 

1 

) 

) 

-  HYOV( 

IS  , 

1 

) 

) 

-  HYDV( 

IS  . 

2 

) 

) 

-  HYDV( 

IS  . 

2 

) 

) 

-  HYOV( 

IS  , 

3 

) 

) 

-  HYOV( 

IS  . 

3 

) 

) 

-  '  DV( 

IS  . 

4 

) 

) 

HYOV( 

IS . 

4 

) 

180  CONTINUE 
C 

C  —  FIND  THE  PROJECTED  IHCRAMENTS  FOR  INTERFACE  BASED  QUANTITIES 
C 


DO  170  IS  -  NSl  ,  NS2 
KS  -  IS  -  NSl  ♦  I 
C 

C  —  FIRST  TRIANGLE  EDGE  . 

C 

IE  -  IABS(  JS(  4  .  IS  )  ) 
C 

ISL  -  JE(  3  ,  IE  ) 

ISR  -  JE(  4  ,  IE  ) 


XML 

-  XHIOLI  IE 

)  - 

XS(  1 

ISL 

) 

YML 

-  YMIOLI  IE 

)  - 

XS(  2 

- 

ISL 

) 

RROL 

*  l.E-12  ♦ 

RGRAO( 

ISL 

.  1  ) 

* 

XML 

4 

RGRAD( 

ISL 

9 

»  L 

) 

« 

YML 

UUOL 

*  l.E-12  + 

UGRAOI 

ISL 

.  1  ) 

* 

XML 

4 

UGRAD{ 

ISL 

.  2 

) 

* 

YML 

VVOL 

-  l.E-12  * 

VGRAD( 

ISL 

.  1  ) 

* 

XML 

4 

VGRADI 

ISL  , 

,  2 

) 

* 

YML 

PPOL 

>=  l.E-12  * 

PGRAO( 

ISL 

.  i  ) 

* 

XML 

4 

PGRADI 

ISL 

.  2 

) 

• 

YML 

IJE5 

■  JE(  5  .  : 

IE  ) 

IF{ 

IJE5  .  EQ  . 

0  ) 

THEN 

XMR  < 

■  XM1DL(  IE 

)  - 

XS{  1 

ISR 

) 

YMR  ■ 

•  YMIDL(  IE 

)  - 

XS(  2 

ISR 

) 

RROR 

-  l.E-12  * 

RGRADI 

ISR 

.  1  ) 

* 

XMR 

4 

RGRADI 

ISR  , 

,  2 

) 

* 

YMR 

UUOR 

=  l.E-12  * 

UGRAD( 

ISR 

.  !  ) 

* 

XMR 

4 

UGRAOI 

ISR  , 

.  2 

) 

* 

YMR 

VVOR 

*  l.E-12  * 

VGRAO( 

ISR 

.  1  ) 

* 

XMR 

4 

S/GRAO( 

ISR 

2 

) 

• 

YMR 

PPOR 

-  l.E-12  * 

PGRADI 

ISR 

.  1  ) 

* 

XMR 

4 

PGRADI 

ISR  . 

2 

) 

4 

VMR 

1245 

1246 

1247 

1248 

1249 

1250 

1251 
'P52 

1253 

1254 

1255 
12 

125/ 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 
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1319 

278 

ELSE 

1319 

1320 

279 

C 

1320 

1321 

280 

RROR  -  RROL 

1321 

1322 

281 

UUOR  •  UUOL 

1322 

1323 

282 

VVOR  -  VVOL 

1323 

1324 

283 

PPOR  -  PPOL 

1324 

1325 

284 

C 

1325 

1326 

285 

END  IF 

1326 

1327 

286 

C 

1327 

1328 

287 

ROL(  1  )  -  1.  /  RROL 

1328 

1329 

288 

UOL(  1  )  -  1.  /  UUOL 

1329 

1330 

289 

VOL(  1  )  -  1.  /  VVOL 

1330 

1331 

290 

POL(  1  )  -  1.  /  PPOL 

1331 

1332 

291 

C 

1332 

1333 

292 

ROR(  1  )  -  1.  /  RROR 

1333 

1334 

293 

UOR{  1  )  -  1.  /  UUOR 

1334 

1335 

294 

VOR(  1  )  -  1.  /  WOR 

1335 

1336 

295 

POR(  1  )  -  1.  /  PPOR 

1336 

1337 

296 

C 

1337 

1338 

297 

C  - 

-  SECOND  TRIANGLE  EDGE  — • 

..... 

... 

... 

1338 

1339 

298 

c 

1339 

1340 

299 

IE  -  IABS(  JS(  5  .  IS  ) 

) 

1340 

1341 

300 

c 

1341 

1342 

301 

ISL  -  JE(  3  .  IE  ) 

1342 

1343 

302 

ISR  -  JE(  4  ,  IE  ) 

1343 

1344 

303 

c 

1344 

1345 

304 

XHL  -  XHIDL(  IE  )  -  XS( 

1 

ISL 

) 

1345 

1346 

305 

YHL  -  YMIDLC  IE  )  -  XS( 

2 

ISL 

) 

1346 

1347 

306 

c 

1347 

1348 

307 

RROL  -  I.E-12  + 

1348 

1349 

308 

RGRM)(  ISL  ,  1 

) 

* 

XML 

RGRAO( 

ISL 

.  2  ) 

« 

YML 

1349 

1350 

309 

UUOL  -  l.E-12  ♦ 

1350 

1351 

310 

UGRAO(  ISL  .  1 

) 

* 

XML 

+ 

UGRAO( 

ISL 

.  2  ) 

YML 

1351 

1352 

311 

WOL  -  l.E-12  * 

1352 

1353 

312 

VGRAD(  ISL  .  1 

) 

* 

XML 

4> 

VGRAO( 

ISL 

.  2  ) 

* 

YML 

1353 

1354 

313 

PPOL  -  1,E-12  * 

1354 

1355 

314 

PGRAD(  ISL  .  1 

) 

• 

XML 

PGRAO( 

ISL 

.  2  ) 

YML 

1355 

1356 

315 

c 

1356 

1357 

316 

IJE5  ■  JE(  5  ,  IE  ) 

1357 

1358 

317 

IF{  IJE5  .  EQ  .  0  )  THEN 

1358 

1359 

318 

c 

1359 

1360 

319 

XMR  -  XM1DL(  IE  )  -  XS(  1 

ISR 

) 

1360 

1361 

320 

YHR  -  YNIDL(  IE  )  -  XS(  2 

ISR 

) 

1361 

1362 

321 

c 

1362 

1363 

322 

RROR  »  l.E-12  ♦ 

1363 

1364 

323 

RGRAD(  ISR  .  1 

) 

* 

XHR 

+ 

RGRAO( 

ISR 

.  2  ) 

* 

YHR 

1364 

1365 

324 

UUOR  •  l.E-12  * 

1365 

1366 

325 

UGRAD(  ISR  ,  1 

) 

* 

XHR 

+ 

UGRAO( 

ISR 

.  2  ) 

* 

YHR 

1366 

1367 

326 

VVOR  -  l.E-12  + 

1367 

1368 

327 

VGRAD(  ISR  ,  1 

) 

* 

XMR 

VGRADI 

ISR 

.  2  ) 

* 

YHR 

1368 

1369 

328 

PPOR  -  l.E-12  ♦ 

1369 

1370 

329 

PGRADI  ISR  .  1 

) 

• 

XHR 

+ 

PGRAD( 

ISR 

.  2  ) 

* 

YMR 

1370 

1371 

330 

c 

1371 

1372 

331 

ELSE 

1372 

1373 

332 

c 

1373 

1374 

333 

RROR  •  RROL 

1374 

1375 

334 

UUOR  •  UUOL 

1375 

1376 

335 

VVOR  -  VVOL 

1376 

1377 

336 

PPOR  -  PPOL 

1377 

1378 

337 

c 

1378 

1379 

338 

END  IF 

1379 

1380 

339 

c 

1380 

1381 

340 

ROL{  2  )  -  1.  /  RROL 

1381 

1382 

341 

UOL(  2  )  .  1.  /  UUOL 

1382 

13E.T 

342 

VOL(  2  )  »  1.  /  VVOL 

1383 

13!.-i 

343 

POL(  2  )  -  1.  /  PPOL 

1384 

i3i;5 

344 

c 

1385 

1385 

345 

ROR(  2  )  =  1.  /  RROR 

1386 

1387 

346 

UOR(  2  )  •  1.  /  UUOR 

1387 

1388 

347 

VOR(  2  )  -  1.  /  VVOR 

1388 

1389 

348 

POR(  2  )  •  1.  /  PPOR 

1389 

1390 

349 

c 

1390 

1391 

350 

c  — 

-  THIRD  TRIANGLE  EDGE  - 

.... 

.... 

1391 

1392 

351 

c 

1392 
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1393 

352 

IE  .  IABS(  JS(  6  ,  IS  )  ) 

1393 

1394 

353 

C 

1394 

1395 

354 

ISL  •  JE(  3  ,  IE  ) 

1395 

1396 

355 

ISR  -  JE(  4  .  IE  ) 

1396 

1397 

356 

C 

1397 

1398 

357 

XML  -  XM1DL(  IE  )  -  XS(  1  ,  ISL  ) 

1398 

1399 

358 

YML  -  YMIOL(  IE  )  -  XS(  2  ,  ISL  ) 

1399 

1400 

359 

c 

1400 

1401 

360 

RROL  -  l.E-12  + 

1401 

1402 

361 

RGRAD(  ISL  .  1  )  *  XML  +  R6RAD( 

ISL  , 

2  )  *  YHL 

1402 

1403 

362 

UUOL  -  l.E-12  + 

1403 

1404 

363 

UGRAO(  ISL  .  1  )  •  XHL  +  UGRAD{ 

ISL  , 

2  )  *  YML 

1404 

1405 

364 

WOL  -  l.E-12  + 

1405 

1406 

365 

VGRAD(  ISL  .  1  )  *  XHL  +  VGRADI  ISL  . 

2  )  *  YML 

1406 

1407 

366 

PPOL  -  l.E-12  + 

1407 

1408 

367 

PGRAD(  ISL  .  1  )  •  XHL  +  PGRAD( 

ISL  , 

2  )  *  YHL 

1408 

1409 

368 

c 

1409 

1410 

369 

IJE5  -  JE(  5  .  IE  ) 

i410 

1411 

370 

IF(  IJE5  .  EQ  .  0  )  THEN 

1411 

1412 

371 

c 

1412 

1413 

372 

XMR  .  XHIDL(  IE  )  -  XS(  1  .  ISR  ) 

1413 

1414 

373 

YHR  -  YHIOL(  IE  )  -  XS(  2  .  ISR  ) 

1414 

1415 

374 

c 

1415 

1416 

375 

RROR  -  l.E-12  + 

1416 

1417 

376 

RGRAD{  ISR  .  1  )  *  XMR  +  RGRADI 

ISR  . 

2  )  *  YHR 

1417 

1418 

377 

UUOR  -  l.E-12  + 

1418 

1419 

378 

UGRAD(  ISR  .  1  )  *  XMR  +  UGRAD{ 

ISR  . 

2  )  *  YHR 

1419 

1420 

379 

WOR  -  l.E-12  + 

1420 

1421 

380 

VGRAO(  ISR  ,  1  )  *  XMR  +  VGRAO( 

ISR  , 

2  )  *  YMR 

1421 

1422 

381 

PPOR  -  l.E-12  + 

1422 

1423 

382 

PGRAD(  ISR  ,  1  )  *  XMR  +  PGRAD( 

ISR  . 

2  )  *  YMR 

1423 

1424 

383 

c 

1424 

1425 

384 

ELSE 

1425 

1426 

385 

c 

1426 

1427 

386 

RROR  -  RROL 

1427 

1428 

387 

UUOR  •  UUOL 

1428 

1429 

388 

WOR  -  WOL 

1429 

1430 

389 

PPOR  -  PPOL 

1430 

1431 

390 

c 

1431 

1432 

391 

END  IF 

1432 

1433 

392 

c 

1433 

1434 

393 

ROL(  3  )  -  1.  /  RROL 

1434 

1435 

394 

UOL(  3  }  -  1.  /  UUOL 

1435 

1436 

395 

VOL(  3  )  -  1.  /  WOL 

1436 

1437 

396 

POL(  3  )  >  1.  /  PPOL 

1437 

1438 

397 

c 

1438 

1439 

398 

ROR(  3  )  =  1.  /  RROR 

1439 

1440 

399 

UOR(  3  )  -  1.  /  UUOR 

1440 

1441 

400 

VOR(  3  )  -  1.  /  WOR 

1441 

1442 

401 

POR(  3  )  *  1.  /  PPOR 

1442 

1443 

402 

c 

1443 

1444 

403 

ISNR  -  SIGH(  1.  ,  ROR(  1  )  ) 

1444 

1445 

404 

ISNL  =  SIGN!  1.  .  ROL(  1  )  ) 

1445 

1446 

405 

c 

1446 

1447 

406 

c  — 

■  PERFORM  THE  LIMITING  ON  THE  INCRAMENTS  — 

1447 

1448 

407 

c 

1448 

1449 

408 

TEMPR  -  (  1  *  ISNR  )  »  RRR(  KS  )  + 

1449 

1450 

409 

(  1  -  ISNR  )  *  RRL(  KS  ) 

1450 

1451 

410 

RUVPRl  •  0.5  *  TEMPR  *  ROR(  1  ) 

1451 

1452 

411 

c 

1452 

1453 

412 

TEHPL  -  (  1  +  ISNL  )  *  RRR(  KS  )  * 

1453 

1454 

413 

(  1  -  ISNL  )  *  RRL(  KS  ) 

1454 

1455 

414 

RUVPLl  -  0.5  *  TEHPL  *  ROL{  1  ) 

1455 

1456 

415 

c 

1456 

1457 

416 

ISNR  -  SIGN(  1.  ,  ROR(  2  )  ) 

1457 

1458 

417 

ISNL  -  SIGN(  1.  ,  ROL(  2  )  ) 

1458 

1459 

418 

c 

1459 

1460 

419 

TEMPR  -(It  ISNR  )  *  RRR(  KS  )  + 

1460 

1461 

420 

(  1  -  ISNR  )  •  RRL(  KS  ) 

1461 

1462 

421 

RUVPR2  -  0.5  *  TEMPR  ‘  ROR(  2  ) 

1462 

1463 

422 

c 

1463 

1464 

423 

TEHPL  -(It  ISNL  )  t  RRR(  K$  )  t 

1464 

1465 

424 

(  1  -  ISNL  )  *  RRL(  KS  ) 

1465 

1466 

425 

RUVPL2  -  0.5  *  TEHPL  *  ROL(  2  ) 

1466 
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1462 

426 

C 

1467 

1468 

427 

ISNR  -  S1GN{  1.  ,  ROR(  3  )  ) 

1468 

1469 

428 

ISNL  -  SIGN(  1.  .  ROL(  3  )  ) 

1469 

1470 

429 

c 

1470 

1471 

430 

TEHPR  -  (  1  +  ISNR  )  ^  RRR(  KS  )  + 

1471 

1472 

431 

(  1  -  ISNR  )  •  RRL(  KS  ) 

1472 

1473 

432 

RUVPR3  -  0.5  *  TEHPR  •  ROR{  3  ) 

1473 

1474 

433 

c 

1474 

1475 

434 

TEHPL  >  {  1  +  ISNL  )  •  RRR(  KS  )  + 

1475 

1476 

435 

(  1  -  ISNL  )  •  RRL(  KS  ) 

1476 

1477 

436 

RUVPL3  -  0.5  *  TEMPI  •  ROL(  3  ) 

1477 

1478 

437 

c 

1478 

1479 

438 

RHIN(  KS  )  •  AMINK  1.  ,  RUVPRl  .  RUVPLl 

.  RUVPR2  ,  RUVPL2  . 

1479 

1480 

439 

« 

RUVPR3  .  RUVPL3  ) 

1480 

1481 

440 

c 

1481 

1482 

441 

ISNR  -  SIGN(  1.  .  UOR(  1  )  ) 

1482 

1483 

442 

ISNL  -  SIGN(  1.  ,  U0L(  1  )  ) 

1483 

1484 

443 

c 

1484 

1485 

444 

TEHPR  -  (  1  +  ISNR  )  •  OUR(  KS  )  + 

1485 

1486 

445 

(  1  -  ISNR  )  •  00L(  KS  ) 

1486 

1487 

446 

RUVPRl  -  0.5  •  TEHPR  *  UOR(  1  ) 

1487 

1488 

447 

c 

1488 

1489 

448 

TEHPL  -  (  1  *  ISNL  )  •  0UR(  KS  )  + 

1489 

1490 

449 

(  1  -  ISNL  )  *  UUL(  KS  ) 

1490 

1491 

450 

RUVPLl  ■  0.5  *  TEHPL  •  U0L(  1  ) 

1491 

1492 

451 

c 

1492 

1493 

452 

ISNR  -  SIGN!  1.  .  U0R(  2  )  ) 

1493 

1494 

453 

ISNL  -  S1GN(  1,  .  UOL{  2  )  ) 

1494 

1495 

454 

c 

1495 

1496 

455 

TEHPR  »  (  1  +  ISNR  )  *  UUR(  KS  )  + 

1496 

1497 

456 

(  1  -  ISNR  )  *  U0L(  KS  ) 

1497 

1498 

457 

RUVPR2  -  0.5  •  TEHPR  •  U0R(  2  ) 

1498 

1499 

458 

c 

1499 

1500 

459 

TEHPL  •  (  1  +  ISNL  )  •  0UR(  KS  )  + 

1500 

ISOl 

460 

(  1  .  ISNL  )  »  UUL(  KS  ) 

1501 

1502 

461 

RUVPL2  '  0.5  *  TEHPL  •  00L(  2  ) 

1502 

1503 

462 

c 

1503 

1504 

463 

ISNR  -  SIGN(  1.  ,  UOR{  3  )  ) 

1504 

1505 

464 

ISNL  -  SIGH(  1.  .  UOL(  3  )  ) 

1505 

1506 

465 

c 

1506 

1507 

466 

TEHPR  -  (  1  +  ISNR  }  •  UUR(  KS  )  + 

1507 

1508 

467 

(  1  -  ISNR  )  *  UUL(  KS  ) 

1*^8 

1509 

468 

RUVPR3  •  0.5  *  TEHPR  •  UOR(  3  ) 

15  > 

1510 

469 

c 

15i0 

1511 

470 

TEWL  •  (  1  +  ISNL  )  •  UUR(  KS  )  *• 

1511 

1512 

471 

(  1  -  ISNL  )  *  UUL(  KS  ) 

1512 

1513 

472 

RUVPL3  «  0.5  *  TEHPL  *  U0L(  3  ) 

1513 

1514 

473 

c 

1514 

1515 

474 

UHIN(  KS  )  -  AMINK  1.  ,  RUVPRl  .  RUVPLl  . 

RUVPR2  .  RUVPLZ  , 

1515 

1516 

475 

. 

RUVPR3  ,  RUVPL3  ) 

1516 

1517 

476 

c 

1517 

1518 

477 

ISNR  -  SIGN!  1.  .  VOR(  1  )  ) 

1518 

1519 

478 

ISNL  -  SIGN(  1.  .  VOL(  1  )  ) 

1519 

1520 

479 

c 

1520 

1521 

480 

TEHPR  -  (  1  t  ISNR  )  *  VVR{  KS  )  + 

1521 

1522 

481 

(  1  -  ISNR  )  •  VVL(  KS  ) 

1522 

1523 

482 

RUVPRl  -  O.S  *  TEHPR  •  VOR(  1  ) 

1523 

1524 

483 

c 

1524 

1525 

484 

TEHPL  -  (  1  +  ISNL  )  •  VVR(  KS  )  + 

1525 

1526 

485 

(  1  -  ISNL  )  *  VVL(  KS  ) 

1526 

1527 

486 

RUVPLl  -  0.5  *  TEHPL  '  V0L(  1  ) 

1527 

1528 

487 

c 

1528 

1529 

488 

ISNR  -  SIGN(  1.  ,  VOR(  2  )  ) 

1529 

1530 

489 

ISNL  -  SIGN!  1.  .  VOL(  2  )  ) 

1530 

1531 

490 

c 

1531 

1532 

491 

TEHPR  -  (  1  ^  ISNR  )  *  VVR(  KS  )  + 

1532 

1533 

492 

(  1  -  ISNR  )  *  VVL(  KS  ) 

1533 

1534 

493 

RUVPR2  -  0.5  *  TEHPR  •  VOR(  2  ) 

1534 

1535 

494 

c 

1535 

1536 

495 

TEHPL  -  (  1  +  ISNL  )  ♦  VVR(  KS  )  » 

1536 

1537 

496 

(  1  -  ISNL  )  *  VVL(  KS  ) 

1537 

1538 

497 

RUVPL2  -  0.5  *  TEHPL  •  VOL(  2  ) 

1538 

1539 

498 

c 

1539 

1540 

499 

ISNR  -  S1GN(  1.  .  VOR(  3  )  ) 

1540 
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1541 

500 

ISNL  -  SIGH(  1.  .  VOL(  3  )  ) 

1541 

1542 

501 

C 

1542 

1543 

502 

TEMPR  •  (  1  +  ISNR  )  •  VVR(  KS  )  + 

1543 

1544 

503 

(  1  -  ISNR  1  *  VVL(  KS  ) 

1544 

1545 

504 

RUVPR3  -  0.5  •  TEMPR  *  V0R(  3  ) 

1545 

1546 

505 

C 

1546 

1547 

506 

TEMPI  -  (  1  +  ISNL  )  *  VVR(  KS  )  + 

1547 

1548 

507 

(  1  -  ISNL  )  •  VVL{  KS  ) 

1548 

1549 

508 

RUWPL3  =  0.5  *  TEHPL  »  V0L(  3  ) 

1549 

1550 

509 

C 

1550 

1551 

510 

VI11N{  KS  )  »  AMIHK  1.  ,  RUVPRl  .  RUVPLl  ,  KUVPR2  ,  RUVPL2  , 

1551 

1552 

511 

RUVPR3  ,  RUVPL3  ) 

1552 

1553 

512 

c 

1553 

1554 

513 

ISNR  -  SIGN(  1.  ,  POR(  1  )  ) 

1554 

1555 

514 

ISNL  -  S1GN(  1.  .  POL{  1  )  ) 

1555 

1556 

515 

c 

1556 

1557 

516 

TEMPR  -  (  I  >  ISNR  )  *  PPR(  KS  )  ♦ 

1557 

1558 

517 

(  1  -  ISNR  )  •  PPL(  KS  ) 

1558 

1559 

518 

RUVPRl  -  0.5  *  TEMPR  •  P0R(  1  ) 

1559 

1560 

519 

c 

1560 

1561 

520 

TEMPL  -  (  1  +  ISNL  )  *  PPR(  KS  )  ♦ 

1561 

1562 

521 

(  1  -  ISNL  )  *  PPL(  KS  ) 

1562 

1563 

522 

RUVPLl  -  0.5  *  TEHPL  *  POL(  1  ) 

1563 

1564 

523 

c 

1564 

1565 

524 

ISNR  -  SIGN{  1.  .  P0R(  2  )  ) 

1565 

1566 

525 

ISNL  -  SIGN(  1.  ,  POL(  2  )  ) 

1566 

1567 

526 

c 

1567 

1568 

527 

TEMPR  -  (  1  +  ISNR  )  *  PPR(  KS  )  + 

1568 

1569 

528 

(  1  -  ISNR  )  *  PPL(  KS  ) 

1569 

1570 

529 

RUVPR2  -  0.5  *  TEMPR  •  POR(  2  ) 

1570 

1571 

530 

c 

1571 

1572 

531 

TEHPL  -  {  1  +  ISNL  )  •  PPR(  KS  )  + 

1572 

1573 

532 

(  I  -  ISNL  )  *  PPL(  KS  ) 

1573 

1574 

533 

RUVPL2  -  0.5  *  TEHPL  •  POL(  2  ) 

1574 

1575 

534 

c 

1575 

1576 

535 

ISNR  >  SIGN(  1.  ,  POR(  3  )  ) 

1576 

1577 

536 

ISNL  >  SIGN(  1.  ,  POL(  3  )  ) 

1577 

1578 

537 

c 

1578 

1579 

538 

TEMPR  -  (  1  +  ISNR  )  •  PPR(  KS  )  + 

1579 

1580 

539 

(  1  -  ISNR  )  •  PPL{  KS  ) 

1580 

1581 

540 

RUVPR3  *  0.5  *  TEMPR  *  POR(  3  ) 

1581 

1582 

541 

c 

1582 

1583 

542 

TEHPL  *  (  1  +  ISNL  )  •  PPR(  KS  )  ♦ 

1583 

1584 

543 

(  1  -  ISNL  )  •  PPL(  KS  ) 

1584 

1585 

544 

RUVPL3  -  0.5  *  TEMPL  *  POL{  3  ) 

1585 

1586 

545 

c 

1586 

1587 

546 

PHIN(  KS  )  -  AMINK  1.  .  RUVPRl  ,  RUVPLl  ,  RUVPR2  .  RUVPL2  , 

1587 

1588 

547 

RUVPR3  ,  RUVPL3  ) 

1588 

1589 

548 

c 

1589 

1590 

549 

170 

CONTINUE 

1590 

1591 

550 

c 

1591 

1592 

551 

c  - 

-  LIMIT  THE  ACTUAL  GRADIENTS  . 

1592 

1593 

552 

c 

1593 

1594 

553 

DO  330  IH  -  1  .  2 

1594 

1595 

554 

c 

1595 

1596 

555 

DO  330  IS  -  NSl  .  NS2 

1596 

1597 

556 

KS  -  IS  -  NSl  +  1 

1597 

1598 

557 

c 

1598 

1599 

558 

RGRAD(  IS  ,  IH  )  -  RGRAD(  IS  ,  IH  )  •  RHIN(  KS  )  *  FLATOR 

1599 

1600 

559 

UGRAD(  IS  ,  IH  )  -  UGRAO(  IS  .  IH  )  *  UM1N(  KS  )  •  FLATDR 

1600 

1601 

560 

VGRAO(  IS  ,  IH  )  .  VGRAD(  IS  .  IH  )  *  VHIN{  KS  )  *  FLATOR 

1601 

1602 

561 

PGRAO(  IS  ,  IH  )  =  PGRAO(  IS  .  IH  )  *  PM1H(  KS  )  *  FLATDR 

1602 

1603 

562 

j" 

1603 

1604 

563 

330 

CONTINUE 

1604 

1605 

564 

c 

1605 

1606 

565 

NSl  -  NS2  +  1 

1606 

1607 

566 

NS2  -  NS2  +  NOFVES(  INS  ♦  1  ) 

1607 

1608 

567 

80 

CONTINUE 

1608 

1609 

1 A1A 

568 

CCQ 

C 

1609 

1610 

1611 

570 

C 

1611 

1612 

571 

c  - 

-  CALL  THE  CHARECTERISTIC  LIMITER  . . 

1612 

1613 

572 

c 

1613 

1614 

573 

CALL  FCHART 

1614 
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1615 

lAIA 

574 

c 

1615 

1617 

576 

C 

1617 

1618 

577 

C 

1618 

1619 

578 

c  - 

-  EXIT  POINT  FROM  SU8ROUTINE  . 

1619 

1620 

579 

c 

1620 

1621 

580 

c 

1621 

1622 

581 

RETURN 

1622 

1623 

582 

c 

1623 

1624 

583 

c 

1624 

1625 

584 

c 

1625 

1626 

585 

END 

1626 

Thu  Jul 
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1627 

1 

SUBROUTINE  GRAONG 

1627 

1628 

2 

c 

1628 

1629 

3 

c— 

1629 

1630 

4 

c 

I 

1630 

1631 

5 

c 

GRAONG  COMPUTE  THE  GRADIENT  FOR  SECOND  ORDER  CALCULATION  I 

1631 

1632 

6 

c 

USING  THE  INFORMATION  STORED  ASSOCIATED  WITH  THE  I 

1632 

1633 

7 

c 

VERTICIES  OF  THE  TRIANGLE  TO  COMPUTE  THE  GRADIENT  I 

1633 

1634 

8 

c 

1 

1634 

1635 

9 

c— 

1635 

1636 

10 

c 

1636 

1637 

11 

include  ‘cmshOO.h’ 

1637 

1638 

12 

include  'chydOO.h* 

1638 

1639 

13 

include  'cintOO.h' 

1639 

1640 

14 

include  'cphslO.h' 

1640 

1641 

15 

include  'cphs20.h' 

1641 

1642 

16 

c 

1642 

17 

1644 

18 

c 

1644 

1645 

19 

c  - 

-  BEGIN  LOOP  OVER  ALL  CELLS  IN  THE  DOMAIN  . 

1645 

1646 

20 

c 

1646 

1647 

21 

NSl  •  1 

1647 

1648 

22 

NS2  -  NOFVES(  1  ) 

1648 

1649 

23 

00  90  INS  -  1  .  NVEES 

1649 

1650 

24 

c 

1650 

1651 

25 

c  - 

-  FETCH  HYDRO  QUANTITIES  . 

1651 

1652 

26 

c 

1652 

1653 

27 

DO  105  IS  -  NSl  ,  NS2 

1653 

1654 

28 

KS  -  IS  -  NSl  +  1 

1654 

1655 

29 

c 

1655 

1656 

30 

IVl  -  JS(  1  .  IS  ) 

1656 

1657 

31 

IV2  -  JS(  2  .  IS  ) 

1657 

1656 

32 

IV3  -  JS(  3  .  IS  ) 

1658 

1659 

33 

XVI  •  XV(  1  .  IVI  ) 

1659 

1660 

34 

XV2  -  XV(  1  ,  IV2  ) 

1660 

1661 

35 

XV3  •  XV(  1  .  IV3  ) 

1661 

1662 

36 

YVl  -  XV(  2  .  IVl  ) 

1662 

1663 

37 

YV2  -  XV{  2  ,  IV2  ) 

1663 

1664 

38 

YV3  -  XV(  2  .  IV3  ) 

1664 

1665 

39 

C  «  (  XV2  -  XVI  )  *  (  YV3  -  YV2  )  -  (  XV3  -  XV2  )  *  (  YV2  -  YVl  ) 

1665 

1666 

40 

CINV  -  1.  /  C 

1666 

1667 

41 

c 

1667 

1668 

42 

RRMDLl  »  HYDVVV(  IVl  ,  1  ) 

1668 

1669 

43 

UUMDLl  =  HYOVVV(  IVl  .  2  )  /  RRMDLl 

1669 

1670 

44 

VVMDLl  -  HYDVVV(  IVl  ,  3  )  /  RRMDLl 

1670 

1671 

45 

PPICLI  -  (  HYDVVV(  IVl  .  4  )  -  .5  *  RRMDLl  *  (  UUMDLl  *  UUMDLl  + 

1671 

1672 

46 

VVlfflLl  •  VVMDLl  )  )  *  (  HYDVVV(  IVl  .  5  )  -  1.  ) 

1672 

1673 

47 

c 

1673 

1674 

48 

RRHDL2  -  HYDVVVI  1V2  ,  1  ) 

1674 

1675 

49 

UUHDL2  -  HYOVVV(  1V2  .  2  )  /  RRMDL2 

1675 

1676 

50 

VVM0L2  «  HYOVVVI  IV2  ,  3  )  /  RRM0L2 

1676 

1677 

51 

PPW)L2  =  (  HYOVVVI  IV2  ,  4  )  -  .5  *  RRMDL2  *  (  UUHDL2  *  UUH0L2  * 

1677 

1678 

52 

VVH0L2  «  VVH0L2  )  )  *  (  HYDVVV(  IV2  .  5  )  -  1.  ) 

1678 

1679 

53 

c 

1679 

1680 

54 

RRMDL3  «  HYDVVVI  iV3  .  1  ) 

1680 

1681 

55 

UU1®L3  -  HY0VVV(  IV3  ,  2  )  /  RRHDL3 

1681 

1682 

56 

VVMDL3  -  HYOVWI  IV3  ,  3  )  /  RRMDL3 

1682 

1683 

57 

PPITOLS  *  (  HYDVVVI  IV3  ,  4  )  -  .5  •  RRMDL3  *  (  UUM0L3  •  UUH0L3  + 

1683 

1684 

58 

VVM0L3  *  VVM0L3  )  )  *  (  HYDVVV(  1U3  .  5  )  -  1.  ) 

1664 

1685 

59 

c 

1685 
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1686 

60 

ZVl  -  RRHOLl 

1686 

1687 

61 

ZV2  -  RRI«)L2 

1687 

1688 

62 

ZV3  -  RRMDL3 

1688 

1689 

63 

A  -  (  YV2  -  YVl  )  *  (  ZV3  -  ZV2 

)  -  ( 

YV3 

-  YV2 

) 

* 

(  ZVZ 

-  ZVl  ) 

1689 

1690 

64 

B  -  (  ZV2  -  ZVl  )  *  (  XV3  -  XV2 

)  -  ( 

ZV3 

-  ZV2 

) 

* 

(  xvz 

-  XVI  ) 

1690 

1691 

65 

C 

1691 

1692 

66 

RGRAD(  IS  .  1  )  -  -  A  *  CINV 

1692 

1693 

67 

RGRAD{  IS  .  2  )  -  -  8  *  CINV 

1693 

1694 

68 

C 

1694 

1695 

69 

ZVl  -  UUMDLl 

1695 

1696 

70 

ZV2  -  UUMDL2 

1696 

1697 

71 

ZV3  -  UUM0L3 

1697 

1698 

72 

A  -  (  YV2  -  YVl  )  *  (  ZV3  -  ZV2 

)  -  ( 

YV3 

-  YV2 

) 

(  ZV2 

-  ZVl  ) 

1698 

1699 

73 

B  -  (  ZV2  -  ZVl  )  *  (  XV3  -  XV2 

)  -  ( 

ZV3 

-  ZVZ 

) 

(  XVZ 

-  XVI  ) 

1699 

1700 

74 

c 

1700 

1701 

75 

UGRAD(  IS  .  1  )  >  -  A  •  CINV 

1701 

1702 

76 

UGRAO(  IS  .  2  )  «  -  B  •  CINV 

1702 

1703 

77 

c 

1703 

1704 

78 

ZVl  -  VVHDLl 

1704 

1705 

79 

ZV2  -  VVH0L2 

1705 

1706 

80 

ZV3  -  VVHDL3 

1706 

1707 

81 

A  -  (  YV2  -  YVl  )  *  (  ZV3  -  ZV2 

)  -  ( 

YV3 

-  YV2 

) 

« 

(  ZVZ 

-  ZVl  ) 

1707 

1708 

82 

8  •  (  ZV2  -  ZVl  )  •  (  XV3  -  XV2 

)  -  ( 

ZV3 

-  ZV2 

) 

* 

{  XVZ 

-  XVI  ) 

1708 

1709 

83 

c 

1709 

1710 

84 

VGRAO(  IS  .  1  )  -  -  A  *  CINV 

1710 

1711 

85 

VGRAD(  IS  .  2  )  >  -  B  •  CINV 

1711 

1712 

86 

c 

1712 

1713 

87 

ZVl  -  PPMOLl 

1713 

1714 

88 

ZV2  -  PPM0L2 

1714 

1715 

39 

ZV3  «  PPM0L3 

1715 

1716 

90 

A  -  (  YV2  -  YVl  )  *  (  ZV3  -  ZV2 

)  -  ( 

YV3 

-  YV2 

) 

* 

(  ZVZ 

-  ZVl  ) 

1716 

1717 

91 

B  -  {  ZV2  -  ZVl  )  *  (  XV3  -  XV2 

)  -  (  ZV3 

-  ZV2 

) 

* 

(  xvz 

-  XVI  ) 

1717 

1718 

92 

c 

1718 

1719 

93 

PGRAD(  IS  .  1  )  =  ♦  A  *  CINV 

1719 

1720 

94 

PGRAO(  IS  ,  2  )  >  -  B  •  CINV 

1720 

1721 

95 

c 

1721 

1722 

96 

105 

CONTINUE 

1722 

1723 

97 

C 

1723 

1724 

98 

HSl  .  HS2  +  1 

1724 

1725 

99 

NS2  «  NS2  +  NOFVES(  INS  +  1  ) 

1725 

1726 

100 

90 

CONTINUE 

1726 

1727 

101 

C 

1727 

1728 

1728 

“ 

1729 

103 

c 

1729 

1730 

104 

c  - 

-  CALL  THE  MONOTONICITY  LIMITER  — 

..... 

... 

1730 

1731 

105 

c 

1731 

1732 

106 

CALL  MONOTN 

1732 

1733 

1  7*14 

107 

inn 

c 

1733 

1735 

109 

c 

1735 

1736 

no 

c 

1736 

1737 

111 

c  - 

-  EXIT  POINT  FROM  SUBROUTINE  - 

... 

1737 

1738 

112 

c 

1738 

1739 

113 

c 

1739 

1740 

114 

RETURN 

1740 

1741 

115 

c 

1741 

1742 

116 

c 

1742 

1743 

117 

c 

1743 

1744 

118 

END 

1744 
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1745 

1 

SUBROUTINE  GRADNO 

1745 

1746 

2 

C 

1746 

1747 

3 

C — 

. I 

1747 

1748 

4 

C 

I 

1748 

1749 

5 

C 

GRADNO  COMPUTE  THE  GRADIENT  FOR  SECOND  ORDER  CALCULATION  I 

1749 

1750 

6 

C 

USING  THE  INFORMATION  STORED  ASSOCIATED  WITH  THE  1 

1750 

1751 

7 

C 

VERTICIES  OF  THE  TRIANGLE  TO  COMPUTE  THE  GRADIENT  1 

1751 

1752 

8 

C 

APPLYING  THE  GRADIENT  THEOREM  1 

1752 

1753 

9 

C 

I 

1753 

1754 

10 

C— 

1754 

1755 

11 

C 

1755 

1756 

12 

include  'cmshOO.h' 

1756 

1757 

13 

include  'chydOO.h' 

1757 

1758 

14 

include  'cintOO.h* 

1758 

1759 

15 

include  'cphslO.h' 

1759 

1760 

16 

include  'cphs20.h' 

1760 

1761 

17 

C 

1761 

1762 

18 

r»mm 

1  7«9 

1763 

19 

C 

1763 

1764 

20 

REAL  RRHIDL(MBP).PPM!DL(MBP),UUMIOL(MBP).VVHIDL(MBP) 

1764 

1765 

21 

REAL  RIGRAO(MBP) .PIGRAD(HBP) ,U1&RA0(MBP) , VIGRAO(MBP) 

1765 

1766 

22 

REAL  RJGRADIMBP) , PJGRAD(MBP) , UJGRAO(MBP) . VJGRAO(MBP) 

1766 

1767 

23 

REAL  RHAX{MBP) .PHAX(HBP) . UHAX(MBP) . VMAX(HBP) 

1767 

1768 

24 

REAL  RMIN(MBP),PHIN(MBP).UHIN(HBP).VMIN(MBP) 

1768 

1769 

25 

REAL  RLEFTT(MBP),ULEFTT(MBP).VLEFTT{MBP).PLEFTT(MBP) 

1769 

1770 

26 

REAL  RR1GHT(MBP),URIGHT(MBP).VRIGHT(MBP).PR1GHT(MBP) 

1770 

1771 

27 

REAL  ROR{3).UOR(3).VOR(3).POR(3) 

1771 

1772 

28 

REAL  R0L(3),U0L(3).V0L(3).P0L(3) 

1772 

1773 

29 

REAL  AA(3,3),B8(3,4),B(3),IN0X(3).ATEMP(3,3.3),8TEMP(3.4.3) 

1773 

1774 

30 

REAL  AA0{3.3).BB0(3.4) 

1774 

1775 

31 

c 

1775 

177fi 

taam 

1777 

33 

C 

1777 

1778 

34 

C  - 

•-  BEGIN  LOOP  OVER  ALL  CELLS  IN  THE  DOMAIN  . 

1778 

1779 

35 

c 

1779 

1780 

36 

DO  120  IH  .  1  .  2 

1780 

1781 

37 

DO  120  IS  «  1  .  NS 

1781 

1782 

38 

R6RA0(  IS  .  IH  )  «  0. 

1782 

1783 

39 

UGRAD(  IS  .  IH  )  •  0. 

1783 

1784 

40 

VGRAO(  IS  .  IH  )  >  0. 

1784 

1785 

41 

PGRAO(  IS  .  IH  )  •  0. 

1785 

1786 

42 

120 

CONTINUE 

1786 

1787 

43 

c 

1787 

1788 

44 

NEl  -  1 

1788 

1789 

45 

NE2  =■  NOFVEE(  1  ) 

1789 

1790 

46 

DO  90  INE  -  1  .  NVEEE 

1790 

1791 

47 

c 

1791 

1792 

48 

c  - 

-  FETCH  HYDRO  QUANTITIES  . 

1792 

1793 

49 

c 

1793 

1794 

50 

DO  105  IE  .  NEl  .  NE2 

1794 

1795 

51 

KE  -  IE  -  NEl  ♦  1 

1795 

1796 

52 

c 

1796 

1797 

53 

IVl  «=  JE(  1  ,  IE  ) 

1797 

1798 

54 

IV2  -  JE(  2  .  IE  ) 

1798 

1799 

55 

RRMOL  =  {  HYDVVV(  IVl  ,  1  )  +  HYDVVV(  IV2  ,  1  )  )  •  .5 

1799 

1800 

56 

UUMDL  =  (  HYOVVV(  IVl  ,  2  )  +  HYOVVV(  IV2  ,  2  )  )  »  .5  /  RRMOL 

1800 

1801 

57 

VVMIL  =  (  HYDVVV(  IVl  .  3  )  +  HYDVVV(  1V2  .  3  )  )  *  .5  /  RRMOL 

1801 

1802 

58 

PPMOL  >  (  HYDVVV{  IVl  ,  4  )  +  HYOVVV(  IV2  ,  4  )  )  •  .5 

1802 

1803 

59 

GGMOL  -  {  HYDVVVI  IVl  ,  5  )  ♦  HYDVVV(  IV2  ,  5  )  )  *  .5 

1803 

1804 

60 

PPMOL  -  (  PPMOL  -  .5  *  RRMOL  * 

1804 

1805 

61 

(  UUMDL  *  UUMDL  ♦  VVMOL  *  VVMOL  )  )  *(  GGMDL  -  1.  ) 

1805 

1806 

62 

c 

1806 

1807 

63 

RTMIDLi  KE  )  *  RRMOL 

1807 

1808 

64 

UUMIDL(  KE  )  *  UUMDL 

1808 

1809 

65 

VVMIDL(  KE  )  -  VViWL 

1809 

1810 

66 

PPMIDL{  KE  )  =■  PPMOL 

1810 

1811 

67 

c 

1811 

1812 

68 

105 

CONTINUE 

1812 

1813 

69 

C 

1813 

1814 

70 

00  no  IE  -  NEl  .  NE2 

1814 

1815 

71 

KE  -  IE  -  NEl  +  1 

1815 

1816 

72 

C 

1816 

1817 

73 

XEXN  -  XE(  1  .  IE  )  *  XN(  IE  ) 

1817 

1818 

74 

XEYN  -  XE(  1  ,  IE  )  *  YN(  IE  ) 

1818 
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1819 

75 

C 

1819 

1820 

76 

RIGRAD(  K£  )  '  RRM1DL{  KE  )  *  XEXN 

1820 

1821 

77 

UIGRAD(  KE  )  •  UUniDK  KE  )  *  XEXN 

1821 

1822 

78 

VIGRAD{  KE  )  •  VVHIDL(  KE  )  *  XEXN 

1822 

1823 

79 

P1GRAD(  KE  )  -  PPH1DL(  KE  )  *  XEXN 

1823 

1824 

80 

C 

1824 

1825 

81 

RJGRW)(  KE  )  -  RRHIDL{  KE  )  *  XEYN 

1825 

1826 

82 

UJGRAD{  KE  )  -  UUMIDL(  KE  )  *  XEYN 

1826 

1827 

83 

VJGRAO(  KE  )  «  VVMIDL(  KE  )  *  XEYN 

1827 

1828 

84 

PJGRAD(  KE  )  -  PPMIDL(  KE  )  *  XEYN 

1828 

1829 

85 

C 

1829 

1830 

86 

no 

CONTINUE 

1830 

1831 

87 

c 

1831 

1832 

88 

DO  130  IE  -  NEl  ,  NE2 

KE  -  IE  -  NEl  +  1 

1832 

1833 

89 

1833 

1834 

90 

c 

1834 

1835 

91 

ISL  -  JE(  3  .  IE  ) 

1835 

1836 

92 

ISR  -  JE(  4  .  IE  ) 

1836 

1837 

93 

IJE5  -  JE(  5  .  IE  ) 

1837 

1838 

94 

c 

1838 

1839 

95 

IF(  IJE5  .  EQ  .  0  )  THEN 

1839 

1840 

96 

c 

1840 

1841 

97 

RGRAO(  ISL  .  1  )  -  RGRAD(  ISL  ,  1  ) 

RIGRAOI  KE  ) 

1841 

1842 

98 

RGRAO(  ISR  ,  1  )  -  RGRAD{  ISR  .  1  ) 

- 

RIGRAO(  KE  ) 

1842 

1843 

99 

RGRAO(  ISL  ,  2  )  •  RGRAD(  ISL  .  2  ) 

+ 

RJGRAO(  KE  ) 

1843 

1844 

100 

RGRAD(  ISR  ,  2  )  -  RGRAO(  ISR  ,  2  ) 

RJGRAO(  KE  ) 

1844 

1845 

101 

UGRAO(  ISL  ,  1  )  =  UGRAD(  ISL  .  1  ) 

•f 

UIGRAO(  KE  ) 

1845 

1846 

102 

UGRAD(  ISR  .  1  )  -  UGRAO(  ISR  .  1  ) 

- 

UIGRAD(  KE  ) 

1846 

1847 

103 

UGRAD(  ISL  .  2  )  -  UGRAO(  ISL  .  2  ) 

+ 

UJGRAO(  KE  ) 

1847 

1848 

104 

UGRAO(  ISR  ,  2  )  -  UGRAD{  ISR  .  2  ) 

- 

UJGRAO(  KE  } 

1848 

1849 

105 

VGRAD(  ISL  .  1  )  -  VGRAD{  ISL  .  1  ) 

4- 

VIGRAD(  KE  ) 

1849 

1850 

106 

VGRAD(  ISR  ,  1  )  •  VGRAO(  ISR  ,  I  ) 

. 

VIGRAO(  KE  ) 

1850 

1851 

107 

VGRAD(  ISL  .  2  )  -  VGRAD(  ISL  .  2  ) 

4- 

VJGRAO(  KE  ) 

1651 

1852 

108 

VGRAO(  ISR  .  2  )  •  VGRAO(  ISR  ,  2  ) 

• 

VJGRAO(  KE  ) 

1852 

1853 

109 

PGRAD(  ISL  ,  1  )  -  PGR«)(  ISL  .  1  ) 

+ 

PIGRAOl  KE  ) 

1853 

1854 

110 

PGRAO(  ISR  ,  1  )  -  PGRAD(  ISR  .  1  ) 

• 

PIGRM)(  KE  ) 

1854 

1855 

111 

PGRAD(  ISL  .  2  )  -  PGRAD(  ISL  .  2  ) 

4“ 

PJGRAO(  KE  ) 

1855 

1856 

112 

PGRADf  ISR  .  2  )  -  PGRAD{  ISR  ,  2  ) 

• 

PJGRAO(  KE  ) 

1856 

1857 

113 

c 

1857 

1858 

114 

ELSE 

1858 

1859 

115 

c 

1859 

1860 

116 

RGRAO(  ISL  .  1  )  •  RGRAO(  ISL  ,  1  } 

+ 

R!GRAO(  KE  ) 

1860 

1661 

117 

RGRAO(  ISL  ,  2  )  •  RGRAD(  ISL  ,  2  ) 

4- 

RJGRAO(  KE  ) 

1861 

1862 

118 

UGRAO(  ISL  .  1  )  -  UGRAO(  ISL  .  1  ) 

4 

U1GRA0{  KE  ) 

1862 

1863 

119 

UGRAD(  ISL  .  2  )  -  UGRAO(  ISL  .  2  ) 

4 

UJGRAD(  KE  ) 

1863 

1864 

120 

VGRAD(  ISL  ,  1  )  •  VGRAO(  ISL  .  1  ) 

4 

VIGRAO(  KE  ) 

1864 

1865 

121 

VGRAO(  ISL  .  2  )  -  VGRAD(  ISL  .  2  ) 

4 

VJGRAO(  KE  ) 

1865 

1866 

122 

PGRADI  ISL  ,  1  )  =  PGRAO(  ISL  .  1  ) 

4 

PIGRAD(  KE  ) 

1866 

1867 

123 

PGRAD(  ISL  ,  2  )  •  PGRAD(  ISL  .  2  ) 

4 

PJGRAD(  KE  ) 

1867 

1868 

124 

c 

1668 

1869 

125 

END  IF 

1869 

1870 

126 

c 

1870 

1871 

127 

130 

CONTINUE 

1871 

1872 

128 

NEl  -  NE2  +  1 

1872 

1873 

129 

NE2  -  NE2  *  NOFVEE(  INE  +  1  ) 

1873 

1874 

130 

90 

CONTINUE 

1874 

1875 

131 

c 

1875 

1876 

132 

DO  140  IH  .  1  ,  2 

1876 

1877 

133 

DO  140  IS  •  1  ,  NS 

1877 

1878 

134 

RGRAD(  IS  ,  IH  )  .  RGRAD(  IS  .  IH  ) 

* 

SAREA(  IS  ) 

1878 

1879 

135 

UGRAD(  IS  ,  IH  )  -  UGRAO(  IS  .  IH  ) 

* 

SAREA(  IS  ) 

1879 

1880 

136 

VGRAD(  IS  ,  IH  )  -  VGRAO(  IS  .  IH  ) 

* 

SAREA(  IS  ) 

1880 

1881 

137 

PGRAD(  IS  ,  IH  )  .  PGRAD(  IS  .  IH  ) 

* 

SAREA(  IS  ) 

1881 

1882 

138 

140 

CONTINUE 

1882 

1883 

139 

C 

1883 

lAAA 

idn 

1885 

141 

c 

1885 

1886 

142 

c  — 

CALL  THE  HOHOTONICITY  LIHITER  . 

1886 

1887 

143 

c 

1887 

1888 

144 

CALL  MONOTN 

1888 

1889 

145 

c 

1889 

ffton 

r  1  ■ 

1891 

147 

c 

1891 

1892 

148 

c 

1892 
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1893 

149 

C  - 

■-  EXIT  POINT  FROM  SUBROUTINE . - . 

1893 

1894 

150 

C 

1894 

1895 

151 

C 

1895 

1896 

152 

RETURN 

1896 

1897 

153 

C 

1897 

1898 

154 

C 

1898 

1899 

155 

C 

1899 

1900 

156 

END 

1900 
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1901 

1 

SUBROUTINE  GRAONS 

1901 

1902 

2 

C 

1902 

1903 

3 

C— 

’903 

1904 

4 

C 

I 

m 

1905 

5 

c 

GRAONS  COMPUTE  THE  GRAOIEHT  FOR  SECONO  OROER  CALCULATION  I 

1905 

1906 

6 

c 

USING  THE  INFORMATION  ASSOCIATE  WITH  THE  BARICENTER  I 

1906 

1907 

7 

c 

OF  THE  TWO  TRIANGLES  FROM  THE  TWO  SIDE  OF  EACH  | 

1907 

1908 

8 

c 

EDGE  COMPUTING  THE  VALUE  FOR  THE  EDGE  AND  APPLYING  I 

1908 

1909 

9 

c 

THE  GRADIENT  THEOREM  TO  COMPUTE  THE  GRADIENT  I 

1909 

1910 

10 

c 

I 

1910 

1911 

11 

c— 

1911 

1912 

12 

c 

1912 

1913 

13 

include  'anshOO.h' 

1913 

1914 

14 

include  'chydOO.h' 

1914 

1915 

15 

include  'cintOO.h* 

1915 

1916 

16 

include  'cphslO.h' 

include  'cphs20.h' 

1916 

1917 

17 

1917 

1918 

18 

c 

1918 

1010 

10 

r-« 

1Q1Q 

1920 

20 

c 

1920 

1921 

21 

REAL  RRMIDL(HBP),PPMIDL(M8P).UUMIDL(MBP).VVMIDL(MBP) 

1921 

1922 

22 

REAL  RIGRAD(HSP),PI6RAD(MBP).U1GRAD(MBP).VI6RAD(MBP) 

1922 

1923 

23 

REAL  RJGRAO(MBP) , PJGRAD(MBP) .UJGRAO(HBP) . VJGRAO(MBP) 

1923 

1924 

24 

REAL  RMAX(HBP).PMAX(HBP),UHAX(MBP),VMAX(MBP) 

1924 

1925 

25 

REAL  RMIM(MBP).PHIN(MBP).UM1N(MBP).VMIH(HBP) 

1925 

1926 

26 

REAL  RLEFTT(MBP) , ULEFTT{MBP) . VLEFTT{MBP) , PLEFTT(M8P) 

1926 

1927 

27 

REAL  RRIGHT(MBP).URIGHT(MBP).VRIGHT(MBP).PRIGHT{HBP) 

1927 

1928 

28 

REAL  ROR(3),UOR(3).VOR(3).POR(3) 

1928 

1929 

29 

REAL  ROL(3),UOL(3).VOL(3),POL(3) 

1929 

1930 

30 

REAL  AA(3,3).BB(3.4),B(3).1NDX(3),ATEHP(3.3.3),8TEMP{3.4,3) 

1930 

1931 

31 

REAL  AA0(3.3).8B0(3.4) 

1931 

1932 

32 

c 

1932 

toil 

C^mm 

. 

10^1 

1934 

34 

c 

1934 

1935 

35 

c  - 

-  BEGIN  LOOP  OVER  ALL  CELLS  IN  THE  DOMAIN . - . 

1935 

1936 

36 

c 

1936 

1937 

37 

DO  120  IH  -  1  ,  2 

1937 

1938 

38 

00  120  IS  >  1  .  NS 

1938 

1939 

39 

RGRAD(  IS  ,  IH  )  "  0. 

1939 

1940 

40 

UGRAD(  IS  ,  IH  )  =  0. 

1940 

1941 

41 

VGRAD(  IS  ,  IH  )  »  0. 

1941 

1942 

42 

PGRA0(  IS  ,  IH  )  -  0. 

1942 

1943 

43 

120 

CONTINUE 

1943 

1944 

44 

C 

1944 

1945 

45 

NEl  -  1 

1945 

1946 

46 

NE2  •  N0FVEE{  1  ) 

1946 

1947 

47 

DO  90  INE  -  1  ,  NVEEE 

1947 

1948 

48 

C 

1948 

1949 

49 

C  - 

-  FETCH  HYDRO  QUANTITIES  . 

1949 

1950 

50 

c 

1950 

1951 

51 

DO  105  IE  -  NEl  ,  NE2 

1951 

1952 

52 

KE  -  IE  -  NEl  +  1 

1952 

1953 

53 

c 

1953 

1954 

54 

ISL  -  JE(  3  ,  IE  ) 

1954 

1955 

55 

ISR  -  JE(  4  ,  IE  ) 

1955 

1956 

56 

1JE5  -  JE(  5  ,  IE  ) 

1956 

1957 

57 

c 

1957 

1958 

58 

IF(  IJE5  .  EQ  .  0  )  THEN 

1958 

1959 

59 

1959 

1960 

60 

RR«)L  =  XYH1DL(  IE  )  *  (  HYOV(  ISR  .  1  )  - 

1960 

1961 

61 

HYOV(  ISL  .  1  )  )  +  HYDV(  ISL  .  1  ) 

1961 

1962 

62 

UUMDL  =  XYMIDL(  IE  )  *  (  HYDV(  ISR  .  2  )  - 

1962 

1963 

63 

HYOV(  ISL  .  2  )  )  +  HYDV(  ISL  ,  2  ) 

1963 
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1964 

64 

VVHDL  -  XYMIDL(  IE  )  *  (  HYOV(  ISR  .  3  )  - 

1965 

65 

HYOV(  ISL  .  3  )  )  +  HYOV( 

1966 

66 

PPMDL  -  XYHIDK  IE  )  *  (  HYOV(  ISR  .  4  )  - 

1967 

67 

HYDV(  ISL  ,  4  )  )  *  HYOV( 

1968 

68 

C 

1969 

69 

ELSE 

1970 

70 

C 

1971 

71 

RRWL  -  HYDV(  ISL  .  1  ) 

1972 

72 

UUMDL  -  HYOV(  ISL  .  2  ) 

1973 

73 

VVHDL  -  HYOV(  ISL  .  3  ) 

1974 

74 

PPHDL  »  HYDV(  ISL  ,  4  ) 

1975 

75 

C 

1976 

76 

END  IF 

1977 

77 

C 

1978 

78- 

RRMIDL(  KE  )  >  RRMDL 

1979 

79 

UUHIDL(  KE  )  •  UUMDL 

1980 

80 

VVHIDL(  KE  )  «  VVHDL 

1981 

81 

PPMIDL(  KE  )  >  PPMDL 

1982 

82 

C 

1983 

83 

105 

CONTINUE 

1984 

84 

C 

1985 

85 

00  no  IE  -  NEl  .  NE2 

1986 

86 

KE  -  IE  -  NEI  +  1 

1987 

87 

C 

1988 

88 

XEXN  -  XE(  1  .  IE  )  *  XN(  IE  ) 

1989 

89 

XEYN  -  XE(  1  .  IE  )  •  YN(  IE  ) 

1990 

90 

C 

1991 

91 

RIGRAD(  KE  )  =  RRMIOL{  KE  )  »  XEXN 

1992 

92 

UIGRAD(  KE  )  -  UUMIDL(  KE  )  •  XEXN 

1993 

93 

VIGRAD(  KE  )  -  VVHIOL(  KE  )  •  XEXN 

1994 

94 

PIGRAD(  KE  )  -  PPMI0L(  KE  )  •  XEXN 

1995 

95 

C 

1996 

96 

RJGRAD(  KE  )  .  RRHI0L(  KE  >  *  XEYN 

1997 

97 

UJGRAD(  KE  )  -  UUHI0L(  KE  )  •  XEYN 

1998 

98 

VJGRAD(  KE  )  -  VVMIDL(  KE  )  •  XEYN 

1999 

99 

PJGRAD(  KE  )  -  PPMIDL(  KE  )  •  XEYN 

2000 

100 

C 

2001 

101 

no 

CONTINUE 

2002 

102 

c 

2003 

103 

DO  130  IE  -  NEl  .  NE2 

2004 

104 

KE  -  IE  -  NEl  +  1 

2005 

105 

c 

2006 

106 

ISL  -  JE(  3  ,  IE  ) 

2007 

107 

ISR  -  JE(  4  .  IE  ) 

2008 

108 

1JE5  -  JE(  5  ,  IE  ) 

2009 

109 

c 

2010 

110 

IF(  IJE5  .  EQ  .  0  )  THEN 

2011 

111 

c 

2012 

112 

RGRA0(  ISL  .  1  )  -  RGRAD(  ISL  ,  1  )  *  RIGRAD(  KE  ) 

2013 

113 

RGRAD(  ISR  ,  I  )  ’  RGRAO(  ISR  .  1  )  -  RIGRA0(  KE  ) 

2014 

114 

RGRAD(  ISL  .  2  )  =  RGRAO(  ISL  ,  2  )  +  RJGRAD(  KE  ) 

2015 

115 

RGRAO(  ISR  ,  2  )  >  RGRA0{  ISR  ,  2  )  -  RJGRAD(  KE  ) 

2016 

116 

UGRAD(  ISL  ,  1  )  •  UGRAO(  ISL  .  1  )  ♦  UIGRAD(  KE  ) 

2017 

117 

UGRAD(  ISR  ,  1  )  -  UGRAO(  ISR  .  1  )  -  UIGRW)(  KE  ) 

2018 

118 

UGRAD(  ISL  ,  2  )  -  UGRAD(  ISL  .  2  )  +  UJGRAO(  KE  ) 

2019 

119 

UGRAD(  ISR  ,  2  )  -  UGRA0(  ISR  ,  2  )  -  UJGRAD(  KE  ) 

2020 

120 

VGRAD(  ISL  ,  1  )  -  VGRADI  ISL  .  1  )  +  V1GRAD(  KE  ) 

2021 

121 

VGRAD(  ISR  .  1  )  -  VGRA0(  ISR  ,  1  )  -  VIGRAO(  KE  ) 

2022 

122 

VGRAD(  ISL  ,  2  )  >  VGRAO(  ISL  .  2  )  +  VJGRAD(  KE  ) 

2023 

123 

VGRA0(  ISR  ,  2  )  -  VGRAD(  ISR  ,  2  )  -  VJGRA0(  KE  ) 

2024 

124 

PGRAD(  ISL  ,  1  )  >  PGRAD(  ISL  ,  1  )  +  PIGRAD(  KE  ) 

2025 

125 

PGRAD(  ISR  ,  1  )  -  PGRAD(  ISR  .  1  )  -  PIGRAD(  KE  ) 

2026 

126 

PGRAD(  ISL  ,  2  )  -  PGRAD(  ISL  ,  2  )  <■  PJGRAD(  KE  ) 

2027 

127 

PGRAD(  ISR  ,  2  )  -  PGRAD(  ISR  ,  2  )  -  PJGRAD(  KE  ) 

2028 

128 

c 

2029 

129 

ELSE 

2030 

130 

c 

2031 

131 

RGRAD(  ISL  .  1  )  •  RGRAO(  ISL  .  1  )  >  RIGRAD(  KE  ) 

2032 

132 

RGRAO(  ISL  ,  2  )  -  RGRAD(  ISL  .  2  )  +  RJGRAD{  KE  ) 

2033 

133 

UGRAD(  ISL  ,  1  )  -  UGRAD(  ISL  ,  1  )  *  U1GRAD{  KE  ) 

2034 

134 

UGRAO(  ISL  .  2  )  -  UGRAO{  ISL  ,  2  )  +  UJGRAO(  KE  ) 

2035 

135 

VGR/«)(  ISL  .  1  )  -  VGRAD(  ISL  ,  1  )  +  VIGRADI  KE  ) 

2036 

136 

VGRAO{  ISL  ,  2  )  -  VGRAO{  ISL  .  2  )  +  VJGRAD{  KE  ) 

2037 

137 

PGRAD(  ISL  .  1  )  >  PGRADI  ISL  .  1  )  +  PIGRAD(  KE  ) 

SUBROUTINE  GRAONS 


page  29 


Thu  Jul  1  14:15:55  1993  gradhd.f 


2038 

138 

PGRAD(  ISL  .  2  )  -  PGRA0(  ISL  .  2  )  +  PJGRA0(  KE  ) 

2038 

2039 

139 

C 

2039 

2040 

140 

END  IF 

2040 

2041 

141 

C 

2041 

2042 

142 

130 

CONTINUE 

2042 

2043 

143 

NEl  -  NE2  +  1 

2043 

2044 

144 

NE2  -  NE2  +  N0FVEE(  INE  +  1  ) 

2044 

2045 

145 

90 

CONTINUE 

2045 

2046 

146 

C 

2046 

2047 

147 

DO  140  IH  .  1  .  2 

2047 

2048 

148 

00  140  IS  -  1  .  NS 

2046 

2049 

149 

RGRAD(  IS  ,  IH  )  *  RGRAD(  IS  .  IH  )  ••  SAREA(  IS  ) 

2049 

2050 

150 

UGRAD(  IS  .  IH  )  -  U6RAD(  IS  ,  IH  )  *  SAfi£A(  IS  ) 

2050 

2051 

151 

VGRAD(  IS  .  IH  )  =  VGRAO{  IS  .  IH  )  •  SAREA(  IS  ) 

2051 

2052 

152 

PGRAD(  IS  .  IH  )  =  PGRAD(  IS  ,  IH  )  *  SAREA(  IS  ) 

2052 

2053 

153 

140 

CONTINUE 

2053 

2054 

154 

C 

2054 

2055 

IKA 

Cm. 

9ACC 

2056 

156 

C 

2056 

2057 

157 

c  - 

-  CALL  THE  HONOTONICITY  LIHITER  . 

2057 

2058 

158 

c 

2058 

2059 

159 

CALL  MONOTN 

2059 

2060 

160 

c 

2060 

2061 

161 

2062 

162 

c 

2062 

2063 

163 

c 

2063 

2064 

164 

c  - 

-  EXIT  POINT  FROM  SUBROUTINE  . 

2064 

2065 

165 

c 

2065 

2066 

166 

c 

2066 

2067 

167 

RETURN 

2067 

2068 

168 

c 

2068 

2069 

169 

c 

2069 

2070 

170 

c 

... 

2070 

2071 

171 

END 

2071 

Thu  Jul 

1  14: 

15:55 

1993  gradhd.f  SUBROUTINE  LUDCHP 

2072 

1 

SUBROUTINE  LUDCMP(A,H.NP,INDX,0) 

2072 

2073 

2 

C 

2073 

2074 

3 

c— 

. I 

2074 

2075 

4 

c 

1 

2075 

2076 

5 

c 

PERFORM  AN  L  U  DECOMPOSITION  OF  THE  A  MATRIX  I 

2076 

2077 

6 

c 

I 

2077 

2078 

7 

c— 

. 1 

2078 

2079 

8 

c 

2079 

2080 

9 

PARAMETER  (NHAX-lOO.TINY.l.OE-20) 

2080 

2081 

10 

DIMENSION  A(NP.NP),INDX(N),VV(NHAX) 

2081 

2082 

11 

0.1. 

2082 

2083 

12 

DO  12  I.l.N 

2083 

2084 

13 

AAMAX-O. 

2084 

2085 

14 

DO  11  J-1,N 

2085 

2086 

15 

IF  (A8S(A(I.J)).GT.AA«AX)  AAMAX=ABS{A(I. J)) 

2086 

2087 

16 

11 

CONTINUE 

2087 

2088 

17 

IF  (AAMAX.EQ.O.)  PAUSE  'Singular  matrix.' 

2088 

2089 

18 

VV(I)-1./AAMAX 

2089 

2090 

19 

12 

CONTINUE 

2090 

2091 

20 

DO  19  J-l.N 

2091 

2092 

21 

IF  (J.GT.l)  THEN 

2092 

2093 

22 

DO  14  I-lJ-l 

2093 

2094 

23 

SUH.A(I,J) 

2094 

2095' 

24 

IF  (I.GT.l)THEN 

2095 

2096 

25 

DO  13  K=l,l-1 

2096 

2097 

26 

SUH.SUM-A(I,K)*A(K.J) 

2097 

2098 

27 

13 

CONTINUE 

2098 

2099 

28 

A(1,J).SUM 

2099 

2100 

29 

ENDIF 

2100 

2101 

30 

14 

CONTINUE 

2101 

2102 

31 

ENDIF 

2102 

2103 

32 

AAHAX-0. 

2103 

2104 

33 

00  16  1-J.N 

2104 

2105 

34 

SUH.A(I.J) 

2105 

2106 

35 

IF  (J.GT.l)THEN 

2106 

2107 

36 

DO  15  K.1,J-1 

2107 

2108 

37 

SUM-SUM-A(I,K)*A{K.J) 

2108 

« 
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2109 

2110 
2111 
2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 
2121 
2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 


38  15 

39 

40 

41 

42 

43 

44 

45 

46  16 

47 

48 

49 

50 

51 

52  17 

53 

54 

55 

56 

57 

58 

59 

60 
cl 

62  18 

63 

64  19 

65 

66 

67 

68  c 


CONTINUE 

A(I.J)-SUM 

ENDIF 

DUM-VV(I)*ABS{SUM) 

IF  (DUM.GE.AAMAX)  THEN 
IMAX«I 
AAMAX-DUM 
ENDIF 
CONTINUE 

IF  (J.NE.IMAX)THEN 
DO  17  K>1,N 
DUH-A(IHAX.K) 
A(IMAX,K)-A{J.K) 
A(J,K)-OUM 
CONTINUE 
0-0 

VV(IMAX)»VV(J) 

ENDIF 

INDXf ])-IHAX 
IF(J.NE.N)THEN 
IF(A(J.J).EQ.O.)A(J.J)-TlNy 
DUH-1./A(J.J) 

00  18  1-J+l.N 
A{I.J)-A(I.J)*OU« 

CONTINUE 

ENDIF 

CONTINUE 

IF(A(N.N).EQ.O.)A(N,N).TINY 

RETURN 

END 


Thu  Jul  1  14:15:55  1993  gradhd.f 


SUBROUTINE  LUBKSB 


2140 

1 

SUBROUTINE  LUBKSB(A,N,NP,INOX.B) 

2141 

2 

DIMENSION  A(NP,NP).INOX(N),B(N) 

2142 

3 

II-O 

2143 

4 

DO  12  I-l.N 

2144 

5 

LL-INOX(I) 

2145 

6 

SUM-B(LL) 

2146 

7 

B(LL).B(I) 

2147 

8 

IF  (II.NE.O)THEN 

2148 

9 

DO  11  J-II,I-1 

2149 

10 

SUH-SUH-A{I.J)*8(0) 

2150 

11  11 

CONTINUE 

2151 

12 

ELSE  IF  (SUM. HE. 0.)  THEN 

2152 

13 

II-I 

2153  14  ENDIF 

2154  15  B(I)=SUH 

2155  16  12  CONTINUE 

2156  17  00  14  1=N,1.-1 

2157  18  SUH-B(I) 

2158  19  IF(I.LT.N)THEN 

2159  20  00  13  J-I+l.N 

2160  21  SUM-SUM-A(I.J)‘B(J) 

2161  22  13  CONTINUE 

2162  23  ENDIF 

2163  24  B(I)-SUM/A{I.I) 

2164  25  14  CONTINUE 


2167  1  SUBROUTINE  FIRST 

2168  2  C 

2169  3  C . I 

2170  4  C  I 

2171  5  C  FIRST  IS  USED  TO  FIND  THE  LEFT  AND  RIGHT  INTERFACE  I 

2172  6  C  QUANTITIES  TO  FIRST  ORDER  WITHOUT  USING  EITHER  THE  I 

2173  7  C  GRADIENT  OR  THE  CHARACTERISTICS.  I 

2174  8  C  I 

2175  9  C . I 


2176 

2177 

2178 

2179 

2180 
2181 
2182 

10 

11 

12 

13 

14 

15 

16 

1 7 

C 

C 

include  'cmshOO.h' 
include  'chydOO.h’ 
include  'cintOO.h' 
include  'cphslO.h' 
include  'cphs20.h’ 

2184 

18 

C 

2185 

19 

DO  no  IE  •  1  .  NE 

2186 

20 

ISL  -  JE(  3  ,  IE  ) 

2187 

21 

ISR  -  JE(  4  .  IE  ) 

IJE5  =  JE(  5  .  IE  ) 

2188 

22 

2189 

23 

RL(  IE  )  =  HYDV(  ISL  .  1  ) 

2190 

24 

UL(  IE  )  =  HYDV(  ISL  ,  2  )  »  XN(  IE  ) 

2191 

25 

+  HY0V(  ISL  .  3  )  *  YH{  IE  ) 

2192 

26 

VL(  IE  )  =  -  HY0V(  ISL  ,  2  )  •  YH(  IE  ) 

2193 

27 

+  HY0V(  ISL  ,  3  )  •  XN(  IE  ) 

2194 

28 

PL(  IE  )  =  HYDV(  ISL  .  4  ) 

2195 

29 

C 

2196 

30 

C  — 

EDGES  IN  THE  COMPUTATIONAL  DOMAIN  . 

2197 

31 

C 

2198 

32 

IF(  IJE5  .  EQ  .  0  )  THEN 

2199 

33 

RR(  IE  )  =  HYDV(  ISR  ,  1  ) 

2200 

34 

UR(  IE  )  -  HYDV(  ISR  .  2  )  •  XN(  IE  ) 

2201 

35 

+  HYOV(  ISR  .  3  )  •  YH(  IE  ) 

2202 

36 

VR{  IE  )  =  -  HYOV(  ISR  .  2  >  •  YN(  IE  ) 

2203 

37 

+  HYOV(  ISR  .  3  )  *  XN(  IE  ) 

2204 

38 

Pfi(  IE  )  =  HYOV(  ISR  .  4  ) 

2205 

39 

C 

2206 

40 

c  — 

EDGES  ON  THE  BOUNDARY  WITH  ENFORCED  CONDITIONS  . 

2207 

41 

c 

2208 

42 

c 

IJE5  -  6  A  HALL  WITH  REFLECTING  NORMAL  COMPONENTS 

2209 

43 

c 

=  7  SUPERSONIC  OUTFLOW  ZERO  NORMAL  DERIVATIVE 

2210 

44 

c 

-  8  INFLOW  WITH  PRESPECIFIEO  VALUES  (RIN.UIN.VIN.PIN) 

2211 

45 

c 

2212 

46 

ELSEIFI  IJE5  .  EQ  .  8  )  THEN 

2213 

47 

RR{  IE  )  =  RIN 

2214 

48 

UR(  IE  )  =  UIN  •  XN(  IE  )  1-  VIN  •  YN(  IE  ) 

2215 

49 

VR(  IE  )  -  -  UIN  *  YN(  IE  )  +  VIN  •  XN(  IE  ) 

2216 

50 

PR(  IE  )  =  PIN 

2217 

51 

c 

2218 

52 

ELSEIFI  IJE5  .  EQ  .  7  )  THEN 

??19 

53 

RR(  IE  )  =  RL(  IE  ) 

i;220 

54 

UR(  IE  )  -  UL(  IE  ) 

2221 

55 

VR{  IE  )  -  VL(  IE  ) 

2222 

56 

PR(  IE  )  >  PL(  IE  ) 

2223 

57 

c 

2224 

58 

ELSEIF(  IJE5  .  EQ  .  6  .  OR  .  l.'ES  .  EQ  .  5  )  THEN 

2225 

59 

RR(  IE  )  =  RL(  IE  ) 

2226 

60 

UR(  IE  )  =  -  UL(  IE  ) 

2227 

61 

VR(  IE  )  =  VL(  IE  ) 

2228 

62 

PR(  IE  )  =  PL(  IE  ) 

2229 

63 

c 

2230 

64 

END  IF 

2231 

65 

110 

CONTINUE 

2232 

66 

fi7 

c 

2234 

68 

c 

2235 

69 

c  — 

EXIT  POINT  FROM  SUBROUTINE . - . 

2236 

70 

c 

2237 

71 

c 

2238 

72 

RETURN 

2239 

73 

c 

2240 

74 

c 

page  31 


Thu  Jul 

1  14: 

15:55 

1993  gradhd.f  SUBROUTINE  FIRST 

page  32 

2241 

75 

C 

-  -- 

2241 

2242 

76 

END 

2242 

Thu  Jul 

1  14: 
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1993  gradhd.f  SUBROUTINE  ECHART 

2243 

SUBROUTINE  ECHART 

2243 

2244 

2 

C 

2244 

2245 

3 

c— 

. - . - . I 

2245 

2246 

4 

c 

I 

2246 

2247 

5 

c 

ECHART  LIMITS  THE  PROJECTED  INTERFACE  VALUES  ACCORDING  TO  1 

2247 

2248 

6 

c 

CHARACTERISTICS.  I 

2248 

2249 

7 

c 

1 

2249 

2250 

8 

c— 

— . - . 1 

2250 

2251 

9 

c 

2251 

2252 

10 

include  'cmshOO.h' 

2252 

2253 

11 

include  'chydOO.h' 

2253 

2254 

12 

include  'cintOO.h' 

2254 

2255 

13 

include  'cphslO.h' 

2255 

2256 

14 

include  'cphs20.h’ 

2256 

2257 

15 

c 

2257 

Ifi 

c**— 

2259 

17 

c 

2259 

2260 

18 

RE AL  ZZ LEFT ( MBP ) . ZOLE FT (HBP ) . ZMLE F T { MBP ) 

2260 

2261 

19 

REAL  ZZRIGT(MBP),ZORIGT(MBP),ZPRIGT(HBP) 

2261 

2262 

20 

REAL  UPLEET(MBP).UMLEFT(HBP).URLEFT(M8P),S0GHTL(MBP) 

2262 

2263 

21 

REAL  UPRIGT(MBP) . UMRIGT(H8P) . URRTGTTHBP ) . SQGHTR(MBP1 

2263 

2264 

22 

REAL  UVLEFT(HBP),UVR1GT(HBP).CNLEFT(HBP),CNR1GT(MBP) 

2264 

2265 

23 

REAL  RLEFTT(MBP).ULEFTT{MBP),VLEFTT{HBP),PLEFTT(MBP) 

2265 

2266 

24 

REAL  RRIGHT(HBP),URIGHT(MBP),VRiGHT(H8P),PRIGHT(MBP) 

2266 

2267 

25 

c 

2267 

2268 

26 

Cm»m 

2269 

27 

c 

2269 

2270 

28 

NEl  -  1 

2270 

2271 

29 

NE2  -  NOFVEE(  1  ) 

2271 

2272 

30 

DO  90  INE  -  1  ,  NVEEE 

227’ 

2273 

31 

c 

2273 

2274 

32 

DO  110  IE  -  NEl  ,  HE2 

2274 

2275 

33 

KE  -  IE  -  NEl  ♦  1 

2275 

2276 

34 

c 

2276 

2277 

35 

ISL  .  JE{  3  .  IE  ) 

2277 

2278 

36 

ISR  -  J£(  4  .  IE  ) 

2278 

2279 

37 

GAMAL(  KE  j  -  HYOV(  ISL  .  5  ) 

2279 

2280 

38 

c 

2280 

2281 

39 

CNLFT3  -  GAMALI  KE  )  *  HyDV{  ISL  .  4  )  /  HYDVI  ISL  ,  1  ) 

2281 

2282 

40 

CNLFT  =■  SQRT(  CNLFTS  } 

2282 

2283 

41 

UVLFT  =■  HYOV(  ISL  .  2  )  *  XXN(  IE  )  * 

2283 

2284 

42 

HYDVI  ISL  .  3  )  *  YYN(  IE  ) 

2284 

2285 

43 

c 

2285 

2286 

44 

IJE5  "  JE(  5  .  IE  ) 

2286 

2287 

45 

IF(  IJE5  .  EQ  .  0  )  THEN 

2287 

2288 

46 

c 

2288 

2289 

47 

GAMARI  KE  )  ■  HYDVI  ISR  ,  5  ) 

2289 

2290 

48 

CNRGTS  >  GAMARI  KE  )  •  HYDVI  ISR  ,  4  )  /  HYDVI  ISR  .  1  ) 

2290 

2291 

49 

CNRGT  -  SQRTI  CNRGTS  ) 

2291 

2292 

50 

c 

2292 

2293 

51 

UVRGT  -  HYDVI  ISR  .  2  )  *  XXNI  IE  )  ‘ 

2293 

2294 

52 

HYDVI  ISR  .  3  )  *  YYNI  IE  ) 

2294 

2295 

53 

c 

2295 

2296 

54 

ELSE 

2296 

2297 

55 

c 

2297 

2298 

56 

GAMARI  K[  )  .  GAMALI  KE  ) 

2298 

2299 

57 

CNRGT  -  CNLET 

2299 

2300 

58 

UVRG;  -  UVLFT 

230C 

2301 

59 

c 

2301 

2302 

00 

END  IF 

2302 

2303 

61 

c 

2303 

2304 

62 

CNIEETI  KE  )  >  CNLET 

2304 

2305 

63 

CNRIGTI  KE  )  '  CNRGT 

2305 

2306 

64 

c 

2306 

2207 

55 

UVLEFTI  KE  )  -  UVLFT 

2307 

2208 

66 

UVRIGTI  KF  )  -  UVRGT 

2308 

2309 

6/ 

c 

2309 

2310 

68 

)10 

CONTINUE 

2310 

2311 

69 

c 

2311 

paqe  1? 
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2312 

70 

DO  130  KE  -  I  ,  NOFVEEl  INE  ) 

2312 

2313 

71 

C 

2313 

2314 

72 

2ZIEFT(  KE  )  «  .5  *  (  UVLEFT(  KE  )  *  CNLEFT(  KE  )  )  *  OTT 

2314 

2315 

73 

ZZR1GT(  KE  )  -  -  .5  *  (  UVRIGT(  KE  )  -  CNRIGT(  K£  )  )  •  DTT 

2315 

2316 

74 

C 

2316 

2317 

75 

130  CONTINUE 

2317 

2318 

76 

C 

2318 

2319 

77 

c 

CHARACTERISTICS  LOCATIONS 

2319 

2320 

78 

c 

2320 

2321 

79 

DO  140  KE  -  1  .  NOFVEE(  INE  ) 

232 1 

2322 

60 

c 

2322 

2323 

81 

1F(  Z2LEFT(  KE  )  .  LT  .  0.  )  Z2LEFT(  KE  )  »  0. 

2323 

2324 

82 

1F(  ZZRIGT(  KE  )  .  LT  .  0.  )  2ZRIGT(  KE  )  ■=  0. 

2324 

2325 

83 

c 

2325 

2326 

84 

140  CONTINUE 

2326 

2327 

85 

C 

2327 

2328 

86 

C 

DO  150  KE  •  1  .  NOFVEE(  INE  ) 

2328 

2329 

87 

C 

2329 

2330 

88 

C 

ZOLEFT(  KE  )  »  .5  •  UWLEFT(  KE  )  *  DTT 

2330 

2331 

89 

C 

ZORIGT(  KE  )  •  -  .5  •  UVR1GT(  KE  )  *  OTT 

2331 

2332 

90 

c 

ZPRIGK  KE  )  -  -  .5  •  (  UVRIGTI  KE  )  +  CNR1GT(  KE  )  )  *  OTT 

2332 

2333 

91 

c 

ZMLEFK  KE  )  »  .5  *  (  UVLEFT{  KE  )  -  CNLEFTI  KE  )  )  *  DTT 

2333 

2334 

92 

c 

2334 

2335 

93 

c 

150  CONTINUE 

2335 

2336 

94 

c 

2336 

2337 

95 

c 

FIRST  GUESS  LEFT  AND  RIGHT  VARIABLES.  LINEAR  INTERPOUTON 

2337 

2338 

96 

c 

2338 

2339 

97 

DO  160  IE  -  NEl  ,  NE2 

2339 

2340 

98 

KE  -  IE  *  NEl  +  1 

2340 

2341 

99 

c 

2341 

2342 

100 

ISL  -  JE(  3  ,  IE  ) 

2342 

2343 

101 

ISR  .  JE(  4  .  IE  ) 

2343 

2344 

102 

c 

2344 

2345 

103 

XX  •  XMIDLI  IE  )  -  2ZLEFT(  KE  )  *  XXN{  IE  )  -  XS(  1  .  ISL  ) 

2345 

2346 

104 

YY  •  YMIOL(  IE  )  -  ZZLEFT(  KE  )  »  YYN(  IE  )  -  XS{  2  ,  ISL  ) 

2346 

2347 

105 

c 

2347 

2348 

106 

HRRL  •  HYOV(  ISL  .  1  )  ♦ 

2348 

2349 

107 

RGRAOI  ISL  .  1  )  •  XX  t  RGRAO(  ISL  ,  2  )  •  YY 

2349 

2350 

108 

HUUL  >  HYDV(  ISL  ,  2  )  ♦ 

2350 

2351 

109 

UGRAD(  ISL  .  1  )  *  XX  ♦  UGRAO(  ISL  ,  2  )  •  YY 

HWL  -  !1YDV(  ISL  .  3  )  * 

2351 

2352 

110 

2352 

2353 

111 

VGRAD(  ISL  .  1  )  *  XX  ♦  VGRAD(  ISL  .  2  )  *  YY 

2353 

2354 

112 

HPPL  »  HYOV(  ISL  ,  4  )  + 

2354 

2355 

113 

PGRAD(  ISL  .  1  )  •  XX  ♦  PGRAO(  ISL  ,  2  )  *  YY 

2355 

2356 

U4 

c 

2356 

2357 

115 

GHTLFT  -  GAMAL(  KE  )  •  HRRL  *  HPPL 

2357 

2358 

116 

SOCHTLI  KE  )  -  SQRT(  GHTLFT  ) 

2358 

2359 

117 

c 

2359 

2360 

118 

c 

UMIFT  .  0. 

2360 

2361 

119 

c 

IF(  UVLEFTI  KE  )  -  CNLEFTI  KE  )  .  GT  .  0.  )  THEN 

2361 

2362 

120 

c 

XX  -  (  ZhLEFK  KE  )  -  ZZLEFK  KE  )  )  •  XXNl  IE  ) 

2362 

2363 

121 

c 

YY  .  (  ZMLEFTI  KE  )  -  ZZLEFTl  KE  )  )  *  YYN(  IE  ) 

2363 

2364 

122 

c 

UUU  •  UGRAD(  ISL  ,  1  )  *  XX  ♦  UGRAD{  ISL  ,  2  )  *  YY 

2364 

2365 

123 

c 

VVV  -  VGRADl  ISL  ,  1  )  *  XX  ♦  VGRAD(  ISL  ,  2  )  *  YY 

2365 

2366 

124 

c 

UVU  -  UUU  *  XXN(  IE  )  ♦  VVV  *  YYN(  IE  ) 

2366 

2367 

125 

c 

PPP  -  PGRAO(  ISL  ,  1  )  •  XX  *  PGRAO{  ISL  .  2  )  *  YY 

2367 

2368 

126 

c 

UHLFT  .  .5  *  (  UVU  -  PPP  /  SQGHTK  KE  )  )  /  SOGMTL(  KE  ) 

2368 

2369 

127 

c 

END  IF 

2369 

2370 

128 

c 

2370 

2371 

129 

c 

URLFT  -  0. 

2371 

2372 

130 

c 

IF(  UVLEFTl  KE  )  .  GT  .  0.  )  THEN 

2372 

2373 

131 

c 

XX  -  (  ZQLEFTC  KE  )  -  ZZLEFTl  KE  )  )  •  XXN{  IE  ) 

2373 

2374 

132 

c 

YY  .  {  ZOLEFTI  KE  )  -  ZZLEFT{  KE  )  )  *  YYH(  IE  ) 

2374 

2375 

133 

c 

PPP  -  PGRAO(  ISL  .  1  )  •  XX  *  PGRAOI  ISL  .  2  )  *  YY 

2375 

2376 

134 

c 

XX  .  XHIOLl  IE  )  -  ZOLEFTl  KE  )  *  XXN(  IE  )  -  XS(  1  .  ISL  ) 

2376 

2377 

135 

c 

YY  -  YMIOLl  IE  )  -  Z0LEF7(  KF  )  *  YYN(  IE  )  -  XS{  2  ,  ISl  ) 

2377 

2378 

136 

c 

RRRR  -  HYOV(  ISL  .  1  )  * 

2378 

2379 

137 

c 

RGRAOI  ISL  .  1  )  *  XT  ♦  RGRADI  iSL  .  2  )  *  YY 

2379 

2380 

138 

c 

URLFT  -  PPP  /  GHTLFT  ♦  I .  /  HRRL  -  1 .  /  RRRR 

2380 

2381 

139 

c 

END  IF 

2381 

2382 

140 

c 

2382 

2383 

141 

IJE5  «  J£(  5  ,  IE  ) 

2383 

2384 

142 

1F{  IJE5  .  EO  .  0  )  THEN 

2384 

2385 

143 

c 

2385 
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2386 

144 

XX  -  X«1DL(  IE  )  +  2ZR1GT(  KE  )  *  XXN(  IE  )  -  XS(  1  ,  ISR  ) 

2386 

2387 

145 

YY  -  YMI0L(  IE  )  +  Z2RIGT(  KE  )  *  YYN{  IE  )  -  XS(  2  ,  ISR  ) 

2387 

2388 

146 

C 

2388 

2389 

147 

HRRR  -  HYOV(  ISR  .  1  )  + 

2389 

2390 

148 

RGRAD(  ISR  .  1  )  *  XX  +  RGRAD{  ISR  .  2  )  •  YY 

2390 

2391 

149 

HUUR  -  HYDVI  ISR  .  2  )  ♦ 

2391 

2392 

150 

UGRAO(  ISR  .  1  )  *  XX  t  U6RAD(  ISR  .  2  )  *  YY 

2392 

2393 

151 

HVVR  *  HYDV(  ISR  .  3  )  + 

2393 

2394 

152 

VGRAD(  ISR  .  1  )  *  XX  +  VGRAO(  ISR  .  2  )  ‘  YY 

2394 

2395 

153 

HPPR  -  HYDV(  ISR  ,  4  )  + 

2395 

2396 

154 

PGRAD(  ISR  .  1  )  *  XX  +  PGRAO(  ISR  .  2  )  *  YY 

2396 

2397 

155 

C 

2397 

2398 

156 

GHTRGT  -  GAMAR(  KE  )  *  HRRR  •  HPPR 

2398 

2399 

157 

SQGMTR(  KE  )  -  SQRT(  GHTRGT  ) 

2399 

2400 

158 

c 

2400 

2401 

159 

c 

UPRGT  -  0. 

2401 

2402 

160 

c 

IF(  UVRIGT(  KE  )  +  CNRIGT(  KE  )  .  LT  .  0.  )  THEN 

2402 

2403 

161 

c 

XX  -  (  ZZRIGT(  KE  )  -  ZPRIGT(  KE  )  )  *  XXN{  IE  ) 

2403 

2404 

162 

c 

YY  -  (  ZZRJOU'  KE  )  -  ZPRIGT(  KE  )  )  •  YYN{  IE  ) 

2404 

2405 

163 

c 

UUU  -  UGRAD(  ISR  .  1  )  •  XX  +  UGRAD{  ISR  ,  2  )  *  YY 

2405 

2406 

164 

c 

VVV  -  VGRAD(  ISR  .  1  )  *  XX  ♦  VGRAO(  ISR  .  2  )  *  YY 

2406 

2407 

165 

c 

UVU  -  UUU  •  XXN(  IE  )  +  VVV  *  YYN(  IE  ) 

2407 

2408 

166 

c 

PPP  -  PGRAO{  ISR  .  1  )  *  XX  +  PGRAD(  ISR  ,  2  )  *  YY 

2408 

2409 

167 

c 

UPRGT  -  -  .5  *  (  UVU  +  PPP  /  SQGMTRI  KE  )  )  /  SQGMTR(  KE  ) 

2409 

2410 

168 

c 

END  IF 

2410 

2411 

169 

c 

2411 

2412 

170 

c 

URRGT  *  0. 

2412 

2413 

171 

c 

1F(  UVRIGT(  KE  )  .  LT  .  0.  )  THEN 

2413 

2414 

172 

c 

XX  .  (  ZZRIGT(  KE  )  -  Z0RIGT(  KE  )  )  •  XXN(  IE  ) 

2414 

2415 

173 

c 

YY  -  (  ZZRIGT(  KE  )  -  Z0RIGT(  KE  )  )  •  YYN(  IE  ) 

2415 

2416 

174 

c 

PPP  -  PGRAD{  ISR  ,  1  )  »  XX  ♦  PGRAD(  ISR  .  2  )  *  YY 

2416 

2417 

175 

c 

XX  .  X«IOL(  IE  )  +  ZORIGT(  KE  )  *  XXN{  IE  )  -  XS(  1  ,  ISR  ) 

2417 

2418 

176 

c 

YY  .  YHIOL(  IE  )  +  Z0RIGT(  KE  )  *  YYN(  IE  )  -  XS(  2  ,  ISR  ) 

2418 

2419 

177 

c 

RRRR  «  HYDV(  ISR  .  1  )  ♦ 

2419 

2420 

178 

c 

RGIIAD{  ISR  ,  1  )  •  XX  +  RGRAD(  ISR  ,  2  )  •  YY 

2420 

2421 

179 

c 

URRGT  -  PPP  /  GHTRGT  +  1,  /  HRRR  -  1.  /  RRRR 

2421 

2422 

180 

c 

ENO  IF 

2422 

2423 

181 

c 

2423 

2424 

182 

ELSE 

2424 

2425 

183 

c 

2425 

2426 

184 

HRRR  -  HRRl 

2426 

2427 

185 

HUUR  -  HUUL 

2427 

2428 

186 

HVVR  •  HVVL 

2428 

2429 

187 

HPPR  -  HPPL 

2429 

2430 

188 

c 

2430 

2431 

189 

c 

UPRGT  »  UHLFT 

2431 

2432 

190 

c 

URRGT  -  URLFT 

2432 

2433 

191 

c 

2433 

2434 

192 

END  IF 

2434 

2435 

193 

c 

2435 

2436 

194 

RRL(  KE  )  -  HRRL 

2436 

2437 

195 

UUL(  KE  )  "  HUUL  *  XN(  IE  )  *  HVVL  *  YN(  IE  ) 

2437 

2438 

196 

VVL(  KE  )  =  -  HUUL  *  YN(  IE  )  HVVL  *  XN(  IE  ) 

2438 

2439 

197 

PPL{  KE  )  -  HPPL 

2439 

2440 

198 

c 

2440 

2441 

199 

RRR(  KE  )  >  HRRR 

2441 

2442 

200 

UUR{  KE  )  =  HUUR  *  XN(  IE  )  «  HVVR  *  YN(  IE  ) 

2442 

2443 

201 

VVR(  KE  )  «  -  HUUR  *  YN{  IE  )  +  HVVR  »  XN(  IE  ) 

2443 

2444 

202 

PPR(  KE  )  •  HPPR 

2444 

2445 

203 

c 

2445 

2446 

204 

c 

UHLEFT{  KE  )  -  UHLFT 

2446 

2447 

205 

c 

URLEFT(  KE  )  -  URLFT 

2447 

2448 

206 

c 

2448 

2449 

207 

c 

UPRIGT(  KE  )  •  UPRGT 

2449 

2450 

208 

c 

URR1GT{  KE  )  -  URRGT 

2450 

2451 

209 

c 

2451 

2452 

210 

160 

CONTINUE 

2452 

2453 

211 

c 

2453 

2454 

212 

C  FINAL  VALUES  FOR  RIGHT  ANO  LEFT  STATES 

2454 

2455 

213 

C 

2455 

2456 

214 

C 

00  180  KE  -  1  ,  NOFVEE{  INE  ) 

2456 

2457 

215 

c 

2457 

2458 

216 

c 

GHTLFT  •  SOGHTK  KE  )  *  SOGHTL{  KE  ) 

2458 

2459 

217 

c 

GHTRGT  -  SOGHTRT  KE  )  *  S0GHTR(  KE  ) 

2459 
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2460 

218 

C 

2460 

2461 

219 

C 

RRL(  KE  )  -  1.  /  (  1.  /  RRL(  KE  )  -  (  UHLEFT(  KE  )  * 

2461 

2462 

220 

C 

URL£FT(  KE  )  )  ) 

2462 

2463 

221 

C 

UUL(  KE  )  •  UUL(  KE  )  -  S0GHTL(  KE  )  *  UMLEFT(  KE  ) 

2463 

2464 

222 

C 

PPL(  KE  )  -  PPL(  KE  )  +  GMTLFT  *  UMLEFT(  KE  ) 

2464 

2465 

223 

C 

2465 

2466 

224 

C 

RRR(  KE  )  »  1.  /  {  1.  /  RRR(  KE  )  -  (  UPR1GT(  KE  )  + 

2466 

2467 

225 

C 

URRIGT(  KE  )  )  ) 

2467 

2468 

226 

C 

UUR(  KE  )  -  UUR(  KE  )  +  SQGKTR(  KE  )  •  UPRIGT(  KE  ) 

2468 

2469 

227 

C 

PPR(  KE  )  -  PPR(  KE  )  GMTRGT  *  UPRIGT(  KE  ) 

2469 

2470 

228 

C 

2470 

2471 

229 

C  180 

CONTINUE 

2471 

2472 

230 

C 

2472 

2473 

231 

DO  200  IE  -  NEl  ,  NE2 

2473 

2474 

232 

KE  -  IE  -  NEl  t  1 

2474 

2475 

233 

c 

2475 

2476 

234 

fSL  -  J£{  3  .  IE  ) 

2476 

2477 

235 

ISR  -  JE(  4  ,  IE  ) 

2477 

2478 

236 

c 

2478 

2479 

237 

IJE5  -  JE(  5  .  IE  ) 

2479 

2480 

238 

c 

2480 

2481 

239 

c  — 

PROJECTED  VALUES  ON  THE  LEFT  SIDE  OF  THE  INTERFACE  . 

2481 

2482 

240 

c 

2482 

2483 

241 

RL(  IE  )  -  RRL{  KE  ) 

2483 

2484 

242 

UL(  IE  )  -  UUL(  KE  ) 

2484 

2485 

243 

VL(  IE  )  =  VVL(  KE  ) 

2485 

2486 

244 

PL(  IE  )  -  PPL(  KE  ) 

2486 

2487 

245 

c 

2487 

2488 

246 

c  — 

PROJECTED  VALUES  ON  THE  RIGHT  SIDE  OF  THE  INTERFACE  . 

2488 

2489 

247 

c 

2489 

2490 

248 

c  — 

EDGES  IN  THE  COMPUTATIONAL  DOMAIN  . 

2490 

2491 

249 

c 

2491 

2492 

250 

IF(  IJE5  .  EO  .  0  )  THEN 

2492 

2493 

251 

RR(  IE  )  -  RRR(  KE  ) 

2493 

2494 

252 

UR(  IE  )  -  UUR{  KE  ) 

2494 

2495 

253 

VR(  IE  )  -  VVR(  KE  ) 

2495 

2496 

254 

PR(  IE  )  -  PPR(  KE  ) 

2496 

2497 

255 

c 

2497 

2498 

256 

c  — 

EDGES  ON  THE  BOUNDARY  . 

2498 

2499 

257 

c 

2499 

2500 

258 

ELSEIF(  1JE5  .  £Q  .  8  )  THEN 

2500 

2501 

259 

RR(  IE  )  •  RIN 

2501 

2502 

260 

UR(  IE  )  -  UIN  *  XN(  IE  )  *  VIN  •  YN(  IE  ) 

2502 

2503 

261 

VR(  IE  )  -  -  UIN  *  YN(  IE  )  ♦  VIN  *  XN(  IE  ) 

2503 

2504 

262 

PR(  IE  )  =  PIN 

2504 

2505 

263 

c 

2505 

2506 

264 

ELSEIF(  IJE5  .  EQ  .  7  )  THEN 

2506 

2507 

265 

RR(  IE  )  -  RL(  IE  ) 

2507 

2508 

266 

UR{  IE  )  -  UL{  IE  ) 

2508 

2509 

267 

VR(  IE  )  -  VL(  IE  ) 

2509 

2510 

268 

PR(  IE  )  -  PL(  IE  ) 

2510 

2511 

269 

c 

2511 

2512 

270 

ELSEIFI  IJE5  .  EO  .  6  .  OR  .  IJE5  .  EQ  .  5  )  THEN 

2512 

2513 

271 

RR(  IE  )  -  RL(  IE  ) 

2513 

2514 

272 

UR(  IE  )  '  -  UL(  IE  ) 

2514 

2515 

273 

VR(  IE  )  -  VL(  IE  ) 

2515 

2516 

274 

PR(  IE  )  >  PL(  IE  ) 

2516 

2517 

275 

c 

2517 

2518 

276 

END  IF 

2518 

2519 

277 

200 

CONTINUE 

2519 

2520 

278 

c 

2520 

2521 

279 

NEl  -  NE2  ♦  1 

2521 

2522 

280 

NE2  -  NE2  ^  NOFVEEI  INE  ♦  1  ) 

2522 

2523 

281 

90 

CONTINUE 

2523 

2524 

282 

c 

2524 

ocoi: 

-  7  VS 

2526 

284 

c 

2526 

2527 

285 

c  — 

EXIT  POINT  FROM  SUBROUTINE  . 

2527 

2528 

286 

c 

2528 

2529 

287 

c 

2529 

2530 

288 

RETURN 

2530 

2531 

289 

c 

2531 

2532 

290 

c 

2532 

2533 

291 

c 

2533 
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2534 

292 

END 

2634 

Thu  Jul 

1  14: 

15:55 
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2535 

1 

SUBROUTINE  PRLCTN 

2535 

2536 

2 

C 

2536 

2537 

3 

C— 

-I 

2537 

2538 

4 

C 

1 

2538 

2539 

5 

C 

PRLCTN  INITIALIZE  PARTICLES  LOCATION  IN  THE  COMPUTATION 

1 

2539 

2540 

6 

C 

DOMAIN  FOR  THE  FIRST  TIME 

I 

2540 

2541 

7 

C 

I 

2541 

2542 

8 

C— 

-I 

2542 

2543 

9 

C 

2543 

2544 

10 

include  'cmshOO.h' 

2544 

2545 

11 

include  'chydOO.h' 

2545 

2546 

12 

include  'cintOO.h' 

2546 

2547 

13 

include  'cphslO.h' 

2547 

2548 

14 

include  'cphs20.h' 

2548 

2549 

OCCA 

15 

ifi 

c 

r _ 

2549 

2551 

17 

c 

2551 

2552 

18 

IPT  -  0 

2552 

2553 

19 

DO  110  IPRTCL  .  1  .  NPT 

2553 

2554 

20 

c 

2554 

2555 

21 

IDUH  •  0 

2555 

2556 

22 

00  130  IS  =  1  .  NS 

2556 

2557 

23 

IF(  lOUM  .  £Q  .  0  )  THEN 

2557 

2558 

24 

c 

2558 

2559 

25 

IVl  =  JS(  1  ,  IS  ) 

2559 

2560 

26 

IV2  -  JS(  2  .  IS  ) 

2560 

2561 

27 

IV3  -  JS(  3  ,  IS  ) 

2561 

2562 

28 

c 

2562 

2563 

29 

XI  -  XV(  1  ,  IVl  ) 

2563 

2564 

30 

Y1  -  XV(  2  ,  IVl  ) 

2564 

2565 

31 

X2  -  XV(  1  .  IV2  ) 

2565 

2566 

32 

Y2  -  XV(  2  ,  IV2  ) 

2566 

2567 

33 

c 

2567 

2568 

34 

XX  -  (  X2  -  XI  ) 

2568 

2569 

35 

XXP  -  (  XPRTCL(  1  ,  IPRTCL  )  -  XI  ) 

2569 

2570 

36 

c 

2570 

2571 

37 

YY  •  (  Y2  -  Y1  ) 

2571 

2572 

38 

YYP  -  (  XPRTCL(  2  .  IPRTCL  )  -  Y1  ) 

2572 

2573 

39 

c 

2573 

2574 

40 

A1  -  XX  •  YYP  -  YY  *  XXP 

2574 

2575 

41 

c 

2575 

2576 

42 

XI  -  XV(  1  ,  IV2  ) 

2576 

2577 

43 

Y1  -  XV(  2  .  IV2  ) 

2577 

2578 

44 

X2  •  XV(  I  ,  IV3  ) 

2578 

2579 

45 

Y2  -  XV(  2  ,  IV3  ) 

2579 

2580 

46 

c 

2580 

2581 

47 

XX  •  (  X2  -  XI  ) 

2581 

2582 

48 

XXP  -  (  XPRTCL{  1  .  IPRTCL  )  -  XI  ) 

2582 

2583 

49 

c 

2583 

2584 

50 

YY  -  (  Y2  -  Y1  ) 

2584 

2585 

51 

YYP  -  (  XPRTCL(  2  .  IPRTCL  )  -  Y1  ) 

2585 

2586 

52 

c 

2586 

2587 

53 

A2  -  XX  *  YYP  -  YY  •  XXP 

2587 

2588 

54 

c 

2588 

2589 

55 

XI  -  XV(  1  .  IV3  ) 

2589 

2590 

56 

Y1  -  XV(  2  ,  IV3  ) 

2590 

2591 

57 

X2  -  XV(  1  ,  IVl  ) 

2591 

2592 

58 

Y2  -  XV(  2  ,  IVl  ) 

2592 

2593 

59 

c 

2593 

2594 

60 

XX  -  (  X2  -  XI  ) 

2594 

2595 

61 

XXP  -  (  XPRTCL(  1  .  IPRTCL  )  -  XI  ) 

2595 

2596 

62 

c 

2596 

2597 

63 

YY  -  (  Y2  -  Y1  ) 

2597 

2598 

64 

YYP  -  (  XPRTCLI  2  ,  IPRTCL  )  -  Y1  ) 

2598 

2599 

65 

c 

2599 

2600 

66 

A3  -  XX  *  YYP  -  YY  •  XXP 

2600 

2601 

67 

c 

2601 

2602 

68 

lAl  -  INTI  SIGN!  1.1  .  A1  )  ) 

2602 

2603 

69 

IA2  .  INTI  SIGN!  1.1  .  A2  )  ) 

2603 

2604 

70 

1A3  -  INTI  SIGNI  1.1  .  A3  )  ) 

2604 
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2605 

71 

lAJ  -  lAl  +  IA2  ♦  1A3 

2605 

2606 

72 

C 

2606 

2607 

73 

IF(  lAJ  .  EQ  .  3  )  THEN 

2607 

2608 

74 

IPT  -  IPT  +  1 

2608 

2609 

75 

IJKPRT(  IPT  )  •  IS 

2609 

2610 

76 

XPRTCL{  1  .  IPT  )  -  XPRTCL(  1  ,  IPRTCL  ) 

2610 

2611 

77 

XPRTCL(  2  ,  IPT  )  -  XPRTCLI  2  .  IPRTCL  ) 

2611 

2612 

78 

C 

PRINT  *,  XPRTCL(1.1PT),XPRTCL(2,IPT),IJKPRT(IPT) 

2612 

2613 

79 

lOUH  -  1 

2613 

2614 

80 

END  IE 

2614 

2615 

81 

END  IF 

2615 

2616 

82 

C 

2616 

2617 

83 

130 

CONTINUE 

2617 

2618 

84 

110 

CONTINUE 

2618 

2619 

85 

NPT  -  IPT 

2619 

2620 

86 

C 

PRINT  *,  NPT,(XPRTCL(1.IPT),XPRTCL{2.1PT).IPT-1.NPT) 
WRITE  (10.*)  NPT.(XPRTCL(l.IPT),XPRTCL(2.IPT).IPT-l.NPT) 

2620 

2621 

87 

C 

2621 

2622 

88 

C 

2622 

2623 

89 

C 

2623 

2624 

90 

C  - 

-  EXIT  POINT  FROM  SUBROUTINE . . 

2624 

2625 

91 

c 

2625 

2626 

92 

c 

2626 

2627 

93 

RETURN 

2627 

2628 

94 

c 

2628 

2629 

95 

c 

2629 

2630 

96 

c 

... 
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■1 

2634 

2635 

4 

C 

I 

2635 

2636 

5 

C 

PRPTHC  TRACE  PARTICLES  PATH  IN  THE  COMPUTATION  DOMAIN 

I 

2636 

2637 

6 

C 

I 

2637 

2638 

7 

c — 

-I 

2638 

2639 

8 

C 

2639 

2640 

9 

Include  'cmshOO.h' 

2640 

2641 

10 

include  'chydOO.h' 

include  'cintOO.h' 

2641 

2642 

11 

2642 

2643 

12 

include  ‘cphslO.h* 

2643 

2644 

13 

include  'cphs20.h' 

2644 

2645 

14 

c 

2645 

2646 

15 

DO  110  IPRTCL  >  I  ,  NPT 

2646 

2647 

16 

KFIND  -  0 

2647 

2648 

17 

c 

2648 

2649 

18 

DO  110  IK  =.  1  ,  3 

2649 

2650 

19 

KFIND  -  0 

2650 

2651 

20 

IJE5  •  0 

2651 

2652 

21 

IS  •  IJKPRTI  IPRTCL  ) 

2652 

2653 

22 

XP  -  XPRTCL(  1  ,  IPRTCL  ) 

2653 

2654 

23 

YP  -  XPRTCLI  2  ,  IPRTCL  ) 

2654 

2655 

24 

c 

2655 

2656 

25 

00  120  IJ  *  1  .  3 

2656 

2657 

26 

IE  -  JS(  IJ  +  3  ,  IS  ) 

2657 

2658 

27 

c 

2658 

2659 

28 

IF(  IE  .  GT  .  0  )  THEN 

2659 

2660 

29 

c 

2660 

2661 

30 

IVl  -  JE(  1  ,  IE  ) 

2661 

2662 

31 

1V2  .  JE(  2  ,  IE  ) 

2662 

2663 

32 

c 

2663 

2664 

33 

XI  -  XV(  1  ,  IVl  ) 

2664 

2665 

34 

Y1  -  XV(  2  .  IVl  ) 

2665 

266' 

35 

X2  -  XV(  1  ,  1V2  ) 

2666 

26;' 

36 

Y2  -  XV(  2  ,  IV2  ) 

2667 

2663 

37 

c 

2668 

2669 

38 

XX  -  (  X2  -  XI  ) 

2669 

2670 

39 

XXP  -  (  XP  -  XI  ) 

2670 

2671 

40 

c 

2671 

2672 

41 

YY  -  (  Y2  -  Y1  ) 

2672 

2673 

42 

YYP  -  (  YP  -  Y1  ) 

2673 

2674 

43 

c 

2674 

2675 

44 

A  -  XX  *  YYP  -  YY  •  XXP 

2675 
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2693 

2694 
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2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 
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2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 
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2749 


45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 
36 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 


IF(  A  .  LT  .  0.  )  THEN 
IJKPRT(  IPRTCL  )  .  JE(  4  .  IE  ) 

IJE5  -  JE(  5  ,  IE  ) 

XREV  -  1.  /  XE(  1  ,  IE  } 

KFIHD  -  KFINO  +  1 
END  IF 
C 

ELSE 

C 

IVl  -  JE(  2  ,  -  IE  ) 

IV2  -  JE(  1  ,  -  IE  ) 

C 

XI  -  XV(  1  .  IVl  ) 

Yl  -  XV(  2  ,  IVl  ) 

X2  -  XV(  1  .  1V2  ) 

Y2  -  XV(  2  ,  IV2  ) 

C 

XX  -  (  X2  -  XI  ) 

XXP  -  (  XP  -  XI  ) 

c 

YY  -  {  Y2  -  Yl  ) 

YYP  -  (  YP  -  Yl  ) 

C 

A  -  XX  *  YYP  -  YY  •  XXP 
IF(  A  .  LT  .  0.  )  THEN 
IJKPRT(  IPRTCL  )  >  JE(  3  .  -  IE  ) 

IJE5  -  JE(  5  .  -  IE  ) 

XREV  -  1.  /  XE{  1  ,  -  IE  ) 

KFINO  -  KFIND  +  1 
END  IF 
END  IF 
C 

120  CONTINUE 
C 

IF(  KFINO  .  GT  .  0  .  AND  .  IJE5  .  NE  .  0  )  THEN 
IJKPRT(  IPRTCL  )  =  IS 
C 

AA  •  X2  -  XI 
BB  -  Y2  -  Yl 
CC  -  XP  -  XI 
DO  •  YP  -  Yl 

TREV  •  (  CC  •  AA  +  00  *  BB  )  *  XREV  »  XREV 
IF(  BB  .  NE  .  0.  )  THEN 
XPRTCP  ■=  XI  +  TREV  *  AA 

XPRTCL(  1  ,  IPRTCL  )  >  XP  ♦  1.1  *  (  XPRTCP  -  XP  ) 
END  IF 

IF(  AA  ,  HE  .  0.  )  THEN 
YPRTCP  =  Yl  +  TREV  *  BB 

XPRTCL(  2  ,  IPRTCL  )  >  YP  ♦  1.1  •  (  YPRTCP  -  YP  ) 
END  IF 
C 

END  IF 

110  CONTINUE 
C 

00  180  IPRTCL  -  1  .  NPT 
C 

IS  -  IJKPRT(  IPRTCL  ) 

UPRTCL  -  HYOV(  IS  ,  2  ) 

VPRTCL  .  HYDV(  IS  .  3  ) 

C 

XPRTCL(  1  ,  IPRTCL  )  XPRTCL(  1  .  IPRTCL  )  +  UPRTCL 

XPRTCL(  2  ,  IPRTCL  )  -  XPRTCL(  2  ,  IPRTCL  )  *  VPRTCL 

WPRTCL(  1  ,  IPRTCL  )  -  UPRTCL 

HPRTCL(  2  ,  IPRTCL  )  »  VPRTCL 

C 

DO  180  IK  -  1  ,  3 
IS  -  1JKPRT(  IPRTCL  ) 

XP  -  XPRTCL(  1  ,  IPRTCL  ) 

YP  -  XPRTCLI  2  ,  IPRTCL  ) 

KFIND  -  0 
IJE5  -  0 
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IE  -  JS{  IJ  +  3  ,  IS  ) 
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2750 

119 

C 

2750 

2751 

120 

IF{  IE  .  GT  .  0  )  THEN 

2751 

2752 

121 

C 

2752 

2753 

122 

IVl  -  JE(  1  ,  IE  ) 

2753 

2754 

123 

1V2  •  J£(  2  .  IE  ) 

2754 

2755 

124 

c 

2755 

2756 

125 

XI  -  XV{  1  .  IVl  ) 

2756 

2757 

126 

Y1  -  XV(  2  .  IVl  ) 

2757 

2758 

127 

X2  -  XV(  1  ,  IV2  ) 

2758 

2759 

128 

Y2  -  XV(  2  ,  IV2  ) 

2759 

2760 

129 

c 

2760 

2761 

130 

XX  -  (  X2  -  XI  ) 

2761 

2762 

131 

XXP  -  (  XP  -  XI  ) 

2762 

2763 

132 

c 

2763 

2764 

133 

YY  -  {  Y2  -  Y1  ) 

2764 

2765 

134 

YYP  .  (  YP  -  Y1  ) 

2765 

2766 

135 

c 

2766 

2767 

136 

A  -  XX  *  YYP  -  YY  *  XXP 

2767 

2768 

137 

1F(  A  .  LT  .  0.  )  THEN 

2768 

2769 

138 

IJKPRT(  IPRTCL  )  •  JE(  4  .  IE  ) 

2769 

2770 

139 

IJE5  -  JE(  5  ,  IE  ) 

XREV  -  1.  /  XE(  1  .  IE  ) 

2770 

2771 

140 

2771 

2772 

141 

KFINO  -  KFINO  +  1 

2772 

2773 

142 

END  IF 

2773 

2774 

143 

c 

2774 

2775 

144 

ELSE 

2775 

2776 

145 

c 

2776 

2777 

146 

IVl  -  JE(  2  ,  -  IE  ) 

2777 

2778 

147 

IV2  -  JE(  1  .  -  IE  ) 

2778 

2779 

148 

c 

2779 

2780 

149 

XI  -  XV(  1  .  IVl  ) 

2780 

2781 

150 

Y1  -  XV{  2  ,  IVl  ) 

2781 

2782 

151 

X2  -  XV(  1  .  IV2  ) 

2782 

2783 

152 

Y2  -  XV(  2  .  IV2  ) 

2783 

2784 

153 

c 

2784 

2785 

154 

XX  -  (  X2  -  XI  ) 

2785 

2786 

155 

XXP  -  (  XP  -  XI  ) 

2786 

2787 

156 

c 

2787 

2788 

157 

YY  -  (  Y2  -  Y1  ) 

2788 

2789 

158 

YYP  -  (  YP  -  Y1  ) 

2789 

2790 

159 

c 

2790 

2791 

160 

A  -  XX  •  YYP  -  YY  •  XXP 

2791 

2792 

161 

IF(  A  .  LT  .  0.  )  THEN 

2792 

2793 

162 

IJKPRT(  IPRTCL  )  =  JE(  3  .  -  IE  ) 

2793 

2794 

163 

IJE5  .  JE(  5  ,  -  IE  ) 

XREV  -  1.  /  XE(  1  ,  -  IE  ) 

2794 

2795 

164 

2795 

2796 

165 

KFIHD  -  KFINO  +  1 

2796 

2797 

166 

END  IF 

2797 

2798 

167 

c 

2798 

2799 

168 

END  IF 

2799 

2800 

169 

170 

CONTINUE 

2800 

2801 

170 

c 

2801 

2802 

171 

IF(  KFINO  .  GT  .  0  .  AND  .  IJE5  . 

NE  .  0  )  THEN 

2802 

2803 

172 

IJKPRT(  IPRTCL  )  =  IS 

2803 

2804 

173 

c 

2804 

2805 

174 

AA  -  X2  -  XI 

2805 

2806 

175 

BB  -  Y2  -  Y1 

2806 

2807 

176 

CC  -  XP  -  XI 

2807 

2808 

177 

00  -  YP  -  Y1 

2808 

2809 

178 

TREV  »  (  CC  *  AA  +  DO  •  BB  )  *  XREV  *  XREV 

2809 

2810 

179 

IF(  BB  .  NE  .  0.  )  THEN 

2810 

2811 

180 

XPRTCP  -  XI  +  TREV  *  AA 

2811 

2812 

181 

XPRTCL(  1  .  IPRTCL  )  -  XP  ♦  1.1  * 

(  XPRTCP  -  XP  ) 

2812 

2813 

182 

END  IF 

2813 

2814 

183 

IF(  AA  .  NE  .  0.  )  THEN 

2814 

2815 

184 

YPRTCP  -  Y1  +  TREV  •  BB 

2815 

2816 

185 

XPRTCL(  2  ,  IPRTCL  )  -  YP  ♦  l.I  * 

(  YPRTCP  -  YP  ) 

2816 

2817 

186 

END  IF 

2817 

2818 

187 

c 

2818 

2819 

188 

END  IF 

2819 

2820 

189 

180 

CONTINUE 

2820 

2821 

190 

C 

2821 

2822 

191 

C 

2822 

2823 

192 

c  — 
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RETURN 
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196 
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198 

c 
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199 
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1 

SUBROUTINE  VERCEN(  IT  ) 

I 

2 

2 

C 

2 

3 

3 

C— 

3 

4 

4 

C 

1 

4 

S 

5 

C 

VERCEN  ADD  A  VERTEX  IN  THE  IT  TRIANGLE.  THE  VE'^EX  I 

5 

6 

6 

C 

IS  ADDED  IN  THE  CENTROID  OF  THE  TRIANGLE.  I 

6 

7 

7 

C 

I 

7 

8 

8 

C— 

8 

9 

9 

C 

9 

10 

10 

IMPLICIT  REAL  (A-H,0-Z) 

10 

11 

11 

C 

11 

12 

12 

include  'cmshOO.h' 

12 

13 

13 

include  'chydOO.h' 

include  ‘cintOO.h’ 

13 

14 

14 

14 

15 

15 

include  'cphslO.h' 

15 

16 

16 

include  'cphs20.h' 

16 

17 

17 

c 

17 

18 

18 

c 

SET  UP  THE  NEW  TRIANGLE  BOOKKEEPING. 

18 

19 

19 

c 

19 

20 

20 

IVl  -  JS(  1  ,  IT  ) 

20 

21 

21 

IV2  .  JS{  2  ,  IT  ) 

21 

22 

22 

IV3  -  JS(  3  ,  IT  ) 

22 

23 

23 

c 

23 

24 

24 

lEl  -  JS(  4  .  IT  ) 

24 

25 

25 

IE2  -  JS(  5  .  IT  ) 

25 

26 

26 

IE3  =  JS{  6  .  IT  ) 

26 

27 

27 

lElA  -  lABSI  lEl  ) 

27 

28 

28 

IE2A  »  IABS(  IE2  ) 

28 

29 

29 

IE3A  •  IA8S(  IE3  ) 

29 

30 

30 

c 

30 

31 

31 

c 

PUT  IN  NEW  TRIANGLES 

31 

32 

32 

c 

32 

33 

33 

MW  -  NV  +  1 

33 

34 

34 

XV(  1  ,  NV  )  =  (  XV(  1  .  IVl  )  *  KV(  1  .  1V2  )  * 

34 

35 

35 

.  XV{  1  ,  1W3  )  )  *  THIRD 

35 

36 

36 

XW(  2  ,  NV  )  >  (  XV(  2  .  IVl  )  ♦  XV(  2  ,  IV2  )  ♦ 

36 

37 

37 

XV(  2  ,  IV3  )  )  •  THIRD 

37 

38 

38 

JV(  1  .  NV  )  -  0 

38 

39 

39 

c 

39 

40 

40 

DO  no  IR  -  1  .  MHO 

40 

41 

41 

HYOVVV(  NV  .  IR  )  -  (  HYOWV(  IVl  .  IR  )  + 

41 

42 

42 

,  HVOWVI  IV2  ,  IR  )  + 

42 

43 

43 

HYOVWI  IV3  ,  IR  )  )  »  THIRD 

43 

44 

44 

110 

CONTINUE 

44 

45 

45 

c 

45 

46 

46 

NE  •  NE  +  1 

46 

47 

47 

JE(  1  .  NE  )  -  NV 

47 

48 

48 

JE(  2  ,  NE  )  -  IVl 

48 

49 

49 

JE(  5  ,  NE  )  -  0 

49 

SO 

50 

NE  -  NE  +  1 

SO 

51 

51 

JE(  1  ,  NE  )  «  NV 

51 

52 

52 

JE(  2  .  NE  )  =>  IV2 

52 

53 

53 

JE(  5  ,  NE  )  =  0 

53 

54 

54 

NE  -  NE  ♦  1 

54 

55 

55 

JE(  1  .  NE  )  -  NV 

55 

56 

56 

JE(  2  .  NE  )  -  IW3 

56 

57 

57 

JE(  5  ,  NE  )  -  0 

57 

58 

58 

NEHl  -  NE  -  1 

58 

59 

59 

NEH2  -  NE  -  2 

59 

60 

60 

c 

60 

61 

61 

c 

TRIANGLE  ONE.  THE  ORIGINAL  IT. 

61 

62 

62 

c 

62 

63 

63 

JS(  3  ,  IT  )  -  NV 

63 

64 

64 

JS{  5  .  IT  )  =  -  NEHl 

64 

65 

65 

JS(  6  ,  IT  )  -  NEM2 

65 

66 

66 

c 

66 

67 

67 

c 

TRIANGLE  TWO. 

67 

68 

68 

c 

68 

69 

69 

MS  -  NS  +  1 

69 

70 

70 

JS{  1  ,  NS  )  *  IV2 

70 

71 

71 

JS(  2  .  NS  )  -  IV3 

71 

72 

72 

JS(  3  ,  NS  )  -  NV 

72 

73 

73 

JS(  4  .  NS  )  -  lEZ 

73 
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74 

74 

JS(  5  .  NS  )  =  -  NE 

74 

75 

75 

JS(  6  ,  NS  )  =  NEMl 

75 

76 

76 

C 

76 

77 

77 

C 

TRIANGLE  THREE. 

77 

78 

78 

c 

78 

79 

79 

NS  -  NS  +  1 

79 

80 

80 

JS(  1  ,  NS  )  ■=  1V3 

80 

81 

81 

JS(  2  ,  NS  )  =  IVl 

81 

82 

62 

JS(  3  .  NS  )  =■  NV 

82 

83 

83 

JS{  4  ,  NS  )  -  IE3 

83 

84 

84 

JS(  5  .  NS  )  =  -  NEH2 

84 

85 

85 

JS(  6  .  NS  )  =  NE 

85 

86 

86 

c 

86 

87 

87 

c 

NOW  FIX  THE  LEFT  AND  RIGHT  FOR  EDGES. 

87 

88 

88 

c 

88 

89 

89 

NSHl  =  NS  .  1 

89 

90 

90 

IF(  JE(  4  .  IE2A  )  .  EQ  .  IT  )  JE(  4  ,  IE2A  )  =  NSHl 

90 

91 

91 

IF(  J£(  3  .  IE2A  )  .  EO  .  IT  )  J£(  3  ,  IE2A  )  =  NSHl 

91 

92 

92 

IF(  JE{  4  .  IE3A  )  .  EQ  .  IT  )  JE(  4  ,  1E3A  )  -  NS 

92 

93 

93 

IF(  JE(  3  ,  IE3A  )  .  £0  .  IT  )  JE(  3  ,  IE3A  )  •  NS 

93 

94 

94 

JE(  4  ,  NEH2  )  =  NS 

94 

95 

95 

JE(  3  ,  NEH2  )  =■  IT 

95 

96 

96 

JE(  4  ,  NEHl  )  >  IT 

96 

97 

97 

JE(  3  ,  NEMl  )  =  NSHl 

97 

98 

98 

JE(  4  ,  NE  )  =  NSHl 

98 

99 

99 

J£(  3  ,  NE  )  =  NS 

99 

100 

100 

c 

100 

101 

101 

JV(  2  .  NV  )  =  HE 

101 

102 

102 

c 

102 

103 

103 

XSAREA  =  XS(  3  .  IT  )  *  THIRD 

103 

104 

104 

XS(  3  ,  IT  )  -  XSAREA 

104 

105 

105 

XS(  3  ,  NSHl  )  =  XSAREA 

105 

106 

106 

XS(  3  ,  NS  )  -  XSAREA 

106 

107 

107 

c 

107 

108 

108 

XS(  1  ,  IT  )  »  (  XV(  1  ,  IVl  )  +  XV(  1  .  IV2  )  + 

108 

109 

109 

XV(  1  ,  NV  )  )  *  THIRD 

109 

110 

110 

XS(  1  .  NSHl  )  =  (  XV(  1  .  IV2  )  *  XV{  1  .  IV3  )  + 

110 

111 

111 

XV(  1  ,  NV  )  )  *  THIRD 

111 

112 

112 

XS(  1  ,  NS  )  =  (  XV(  1  .  IV3  )+XV(l,IVl)+ 

112 

113 

113 

XV(  1  ,  NV  )  )  *  THIRD 

113 

114 

114 

XS(  2  ,  IT  )  =■  (  XV(  2  ,  IVl  )  +  XV(  2  ,  IV2  )  + 

114 

115 

115 

XV(  2  ,  NV  )  )  •  THIRD 

115 

116 

116 

XS(  2  ,  NSHl  )  =  {  XV(  2  ,  1V2  )  +  XV(  2  ,  IV3  )  + 

116 

117 

117 

XV(  2  ,  NV  )  )  *  THIRD 

117 

118 

118 

XS(  2  .  NS  )  =  (  XV{  2  ,  1V3  )  +  XV(  2  ,  IVl  )  + 

118 

119 

119 

XV(  2  .  NV  )  )  *  THIRD 

119 

120 

120 

c 

120 

121 

121 

XSAREA  =■  1.  /  XS(  3  ,  IT  ) 

121 

122 

122 

5AREA{  IT  )  >  XSAREA 

122 

123 

123 

SAREA(  NS  )  =  XSAREA 

123 

124 

124 

SAR£A(  NSHl  )  =  XSAREA 

124 

125 

125 

c 

125 

126 

126 

DO  630  IR  -  1  ,  HHQ 

126 

127 

127 

HYDV(  IT  ,  IR  )  -  (  HYDVVV(  IVl  .  IR  )  + 

127 

128 

128 

HYDVVV(  IV2  .  IR  )  + 

128 

129 

129 

HYDVVV(  NV  ,  IR  )  )  *  THIRD 

129 

130 

130 

HYDV(  NS  .  IR  )  -  (  HYOVVV(  IV3  .  IR  )  + 

130 

131 

131 

HYOVVV(  IVl  .  IR  )  + 

131 

132 

132 

HYOVVV(  NV  ,  IR  )  )  *  THIRD 

132 

133 

133 

HYDV(  NSHl  .  IR  )  .  (  HYOVVV(  IV2  .  IR  )  + 

133 

134 

134 

HYOVVV(  IV3  ,  IR  )  + 

134 

135 

135 

HYDVVV(  NV  ,  IR  )  )  *  THIRD 

135 

136 

136 

630 

CONTINUE 

136 

137 

137 

c 

137 

138 

138 

HDUH  -  1.  /  (  HYDV{  IT  ,  1  )  +  l.E-12  ) 

138 

139 

139 

HYOV(  IT  ,  2  )  =  HYOV(  IT  ,  2  )  *  HDUH 

139 

140 

140 

HYOV(  IT  ,  3  )  =  H¥OV(  IT  ,  3  )  •  HDUH 

140 

141 

141 

HY0V(  IT  ,  4  )  -  {  HYOV(  IT  ,  4  )  - 

141 

142 

142 

. 

,5  •  HYOV(  IT  .  1  )  * 

142 

143 

143 

(  HYDV{  IT  ,  2  )  *  HYOV(  IT  ,  2  )  + 

143 

144 

144 

HYOV{  IT  ,  3  )  *  HYOV(  IT  .  3  )  )  )  * 

144 

145 

145 

, 

(  HYDV(  IT  ,  5  )  -  1.  ) 

145 

146 

146 

c 

146 

147 

147 

HDUH  ’  1.  /  {  HYOV(  NS  ,  1  )  +  l.E-12  ) 

147 
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148 

148 

HYDV{  NS  ,  2  )  -  HYDV(  NS  .  2  )  *  HDUH 

148 

149 

149 

HYDV(  NS  .  3  )  -  HYDV(  NS  .  3  )  •  HOUM 

149 

150 

150 

HYOV(  NS  .  4  )  -  (  HYOW(  NS  .  4  )  - 

150 

151 

151 

.5  *  HYOV(  NS  .  1  )  * 

151 

152 

152 

(  HYDV(  NS  ,  2  )  »  HYOV(  NS  .  2  )  + 

152 

153 

153 

HYDV(  NS  .  3  )  •  HYOV(  NS  .  3  )  )  )  * 

153 

154 

154 

(  HYOV(  NS  .  5  )  -  1.  ) 

154 

155 

155 

C 

155 

156 

156 

HDUH  -  1.  /  (  HYDV(  NSHl  ,  1  )  +  l.E-12  ) 

156 

157 

157 

HYDV(  NSMl  .  2  )  -  HYOV(  NSHl  .  2  )  •  HDUH 

157 

158 

158 

HYOV(  NSMl  ,  3  )  -  HYOV(  NSHl  ,  3  )  *  HDUH 

158 

159 

159 

HYDV(  NSMl  ,  4  )  =  {  HYDV(  NSHl  .  4  )  - 

159 

160 

160 

.5  *  HYDV(  NSHl  ,  1  )  » 

160 

161 

161 

{  HYOV(  NSMl  .  2  )  *  HYDW(  NSHl  .  2  )  + 

161 

162 

162 

HYOV(  NSMl  .  3  )  •  HYDV{  NSMl  ,  3  )  )  )  * 

162 

163 

163 

(  HYDV(  NSHl  ,  5  )  -  1.  ) 

163 

164 

164 

C 

164 

165 

165 

00  114  IR  •  1  ,  2 

165 

166 

166 

RGRAD(  NS  .  IR  )  -  RGRAO(  IT  .  IR  ) 

166 

167 

167 

RGRAD(  NSHl  ,  IR  )  =  RGRAD(  IT  .  IR  ) 

167 

168 

168 

c 

168 

169 

169 

UGRAD(  NS  ,  IR  )  »  UGRAO(  IT  .  IR  ) 

169 

170 

170 

UGRAD{  NSHl  .  IR  )  ’  UGRAO(  IT  ,  IR  ) 

170 

171 

171 

c 

171 

172 

172 

VGRAO(  NS  .  IR  )  =  VGRAOI  IT  ,  IR  ) 

172 

173 

173 

VGRAD(  NSMl  ,  IR  )  =  VGRAD(  IT  ,  IR  ) 

173 

174 

174 

c 

174 

175 

175 

PGRAD(  NS  ,  IR  )  =  PGRAOI  IT  .  IR  ) 

175 

176 

176 

PGRAD(  NSHl  ,  IR  )  -  PGRAO(  IT  ,  IR  ) 

176 

177 

177 

114 

CONTINUE 

177 

178 

178 

C 

178 

179 

179 

JEH(  1  )  =  lElA 

179 

180 

180 

JEN(  2  )  =  IE2A 

180 

181 

181 

JEN(  3  )  -  IE3A 

181 

182 

182 

JEN(  4  )  -  NEM2 

182 

183 

183 

JEN(  5  )  -  NEMl 

183 

184 

184 

JEH(  6  )  -  NE 

184 

185 

185 

C 

185 

186 

186 

DO  30  lENN  -1,6 

186 

187 

187 

lEN  -  JEN(  lENN  ) 

187 

188 

188 

JVl  •  JE(  1  ,  lEN  ) 

188 

189 

189 

JV2  •  J£(  2  .  lEN  ) 

189 

190 

190 

AX  -  XV(  1  .  JV2  )  -  XV(  1  .  JVl  ) 

190 

191 

191 

AY  -  XV(  2  ,  JV2  )  -  XV(  2  .  JVl  ) 

191 

192 

192 

XE(  1  ,  lEN  )  -  SQRT(  AX  •  AX  +  AY  *  AY  ) 

192 

193 

193 

XEREV  -  1.  /  XE(  1  ,  lEN  ) 

193 

194 

194 

XN(  lEN  )  -  AY  •  XEREV 

194 

195 

195 

YN(  lEN  )  -  -  AX  *  XEREV 

195 

196 

196 

ISSR  -  JE(  4  .  lEN  ) 

196 

197 

197 

ISSL  -  JE(  3  ,  lEN  ) 

197 

198 

198 

C 

198 

199 

199 

IJE5  =  JE(  5  .  lEN  ) 

199 

200 

200 

IF(  IJES  ,  NE  .  0  )  THEN 

200 

201 

201 

c 

201 

202 

202 

AA  -  XV(  1  .  JV2  )  -  XV{  1  ,  JVl  ) 

202 

203 

203 

88  •  XV(  2  .  JV2  )  -  XV(  2  ,  JVl  ) 

203 

204 

204 

XEL  -  XS{  1  .  ISSL  ) 

204 

205 

205 

YEL  -  XS(  2  .  ISSL  ) 

205 

206 

206 

CC  -  XEL  -  XV(  1  ,  JVl  ) 

206 

207 

207 

DO  -  YEL  -  XV(  2  ,  JVl  ) 

207 

208 

208 

EE  -  (  AA  *  CC  +  BB  •  00  )  •  XEREV  *  XEREV 

208 

209 

209 

XER  -  XV(  1  .  JVl  )  +  AA  •  EE 

209 

210 

210 

YER  -  XV(  2  .  JVl  )  *  BB  *  EE 

210 

211 

211 

AX  -  XER  -  XEL 

211 

212 

212 

AY  •  YER  -  YEL 

212 

213 

213 

XE(  2  .  lEN  )  •  SQRT(  AX  *  AX  ♦  AY  •  AY  ) 

213 

214 

214 

XEREV  >  1.  /  XE(  2  .  lEN  ) 

214 

215 

215 

XXN(  lEN  )  =  AX  •  XEREV 

215 

216 

216 

YYN(  lEN  )  -  AY  *  XEREV 

216 

217 

217 

XE(  2  ,  lEN  )  =  2.  *  XE(  2  ,  lEN  ) 

217 

218 

218 

XYMIDL(  lEN  )  =  .5 

218 

219 

219 

XMIDL(  lEN  )  -  XER 

219 

220 

220 

YMIDLI  lEN  )  -  YER 

220 

221 

221 

c 

221 
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222 

222 

ELSE 

222 

223 

223 

C 

223 

224 

224 

XER  =  XS(  1  ,  ISSR  ) 

224 

225 

225 

YER  »  XS(  2  ,  ISSR  ) 

225 

226 

226 

XEL  -  XS(  1  .  ISSL  ) 

226 

227 

227 

YEL  =  XS(  2  ,  ISSL  ) 

227 

228 

228 

C 

228 

229 

229 

AA  .  XV(  1  ,  JV2  )  -  XV(  1  .  JVl  ) 

229 

230 

230 

BB  -  XV{  2  ,  JV2  )  -  XV(  2  ,  JVl  ) 

230 

231 

231 

CC  *  XEL  -  XER 

231 

232 

232 

DD  -  YEL  -  YER 

232 

233 

233 

ACA  -  XER  -  XV(  1  ,  JVl  ) 

233 

234 

234 

D80  -  YER  -  XV(  2  ,  JVl  ) 

234 

235 

235 

EE  -  (  ACA  *  00  -  080  •  CC  )  /  (  AA  *  DD  -  BB  •  CC  ) 

235 

236 

236 

XMIDL(  lEN  )  »  XV(  1  .  JVl  )  +  AA  •  EE 

236 

237 

237 

YMIDL(  lEN  )  -  XV(  2  ,  JVl  )  +  BB  *  EE 

237 

238 

238 

C 

23E 

239 

239 

XEMID  -  XMIDL(  lEN  )  -  XEL 

239 

240 

240 

YEHID  =  YMIDLI  lEN  )  -  YEL 

240 

24! 

241 

C 

241 

242 

242 

AX  -  XER  -  XEL 

242 

243 

243 

AY  »  YER  -  YEL 

243 

244 

244 

XE(  2  ,  lEN  )  -  SQRT(  AX  »  AX  +  AY  *  AY  ) 

244 

245 

245 

XEREV  =  1.  /  X£(  2  .  lEN  ) 

245 

246 

246 

XXN(  lEN  )  =  AX  ♦  XEREV 

246 

247 

247 

YYN(  lEN  )  =  AY  •  XEREV 

247 

248 

248 

C 

248 

249 

249 

XYMIDLI  lEN  )  =  SORT(  XEMID  *  XEMID  +  YEMIO  *  YEMID  )  '  XEREV 

249 

250 

250 

C 

250 

251 

251 

END  IF 

251 

252 

252 

C 

252 

253 

253 

30 

CONTINUE 

253 

254 

254 

C 

254 

c 

«  FYTT  OniMT  POHM  <;ifRDnnTTNP  ---  _  _  _  -  _ -  . 

256 

256 

c 

256 

257 

257 

C 

257 

253 

258 

...TURN 

258 

259 

259 

c 

2SS 

260 

260 

c 

261 

261 

c 

... 

261 

262 

262 

END 
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1993  adaphd.f  SUBROUTINE  DISECT 

263 

1 

SUBROUTINE  OISECT  (  N  ,  lOONE  ,  IDUMP  ) 

263 

OISFCT  DISECTS  THE  LINE  N  TO  CREATE  TWO  NEW  TRIANGLES  AND 
A  NEW  VERTEX.  IF  THE  LINE  N  IS  ON  A  SOLID  BOUNDARY,  ONLY 
ONE  NEW  TRIANGLE  IS  CREATED. 

OISECT  CANNOT  BE  USED  FOR  PERIODIC  SIDES.  HOWEVER,  A 
CALL  TO  TSHIFT  CAN  BE  USED  TO  MAKE  THOSE  SIDES  INTERNAL 
BEFORE  CALLING  OISECT. 

INPUT:  N  -  the  SIDE  TO  BE  OISECTED. 

OUTPUT:  N3  -  THE  SECOND  HALF  OF  WHAT  HAS  N.  WHEN  N  IS 

OISECTED.  THE  INDEX  N  IS  RETAINED  FOR  ONE  OF 
THE  NEW  SIDES,  THE  OTHER  IS  N3. 

11  -  THE  STARTING  VERTEX  OF  THE  INPUT  LINE  N: 

12  -  THE  ENDING  VERTEX  OF  THE  INPUT  LINE  N: 

13  -  THE  THIRD  VERTEX  IN  THE  TRIANGLE  TO  THE  RIGHT; 

14  -  THE  THIRD  VERTEX  IN  THE  TRIANGLE  TO  THE  LEFT; 

15  -  THE  NEW  VERTEX. 


IMPLICIT  REAL  (A-H,0-Z) 

include  'cmshOO.h' 

include  'chydOO.h' 
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293 

31 

include  'cintOO.h' 

293 

294 

32 

include  'cphslO.h' 

294 

295 

33 

include  'cphs20.h' 

295 

296 

34 

C 

296 

297 

35 

INTEGER  1S(2).  IVS{2) 

297 

298 

36 

C 

298 

299 

37 

ITRIHG  •  0 

299 

300 

38 

IDOHE  -  0 

300 

301 

39 

1JE5  -  JE(  5  .  N  } 

301 

302 

40 

1F(  IJE5  .  NE  .  0  )  ITRING  -  1 

302 

303 

41 

15  «  0 

303 

304 

42 

lEROR  -  0 

304 

305 

43 

EROR  -  l.OE-3 

305 

306 

44 

C 

306 

307 

45 

C 

FIND  THE  VERTICES  OF  THE  LINE  N. 

307 

308 

46 

C 

308 

309 

47 

n  -  JE(  1  .  N  ) 

309 

310 

48 

12  -  JE(  2  ,  N  ) 

310 

311 

49 

ITl  >  JE(  4  .  N  ) 

311 

312 

50 

IT2  "  JE(  3  .  N  ) 

312 

313 

51 

C 

313 

314 

52 

C 

FIND  THE  TWO  VERTICES  TO  WHICH  THE  NEW  LINES  WILL  BE  DRAWN. 

314 

315 

53 

C 

THESE  ARE  THE  VERTICES  OTHER  THAN  11  AND  12  IN  THE 

315 

316 

54 

C 

TRIANGLES  TO  EITHER  SIDE  OF  N.  IVS  STORES  THE  INDEX  OF 

316 

317 

55 

C 

THESE  VERTICES  AND  IS  STORES  WHETHER  THEY  ARE  VERTEX  1,  2 

317 

318 

56 

C 

OR  3  IN  THE  TRIANGLE  IT. 

318 

319 

57 

C 

319 

320 

58 

00  10  I  «  1  ,  2 

320 

321 

59 

IVS(I)  -  0 

321 

322 

60 

IT  •  JE(  5-1  .  N  ) 

322 

323 

61 

IF{  IT  .  NE  .  0  )  THEN 

323 

324 

62 

DO  20  J  >  1  .  3 

324 

325 

63 

IV  -  JS(  J  .  IT  ) 

325 

326 

64 

IF(  IV  .  HE  .  11  .AND.  IV  .  NE  .  12  )  THEN 

326 

327 

65 

1VS(  I  )  .  IV 

327 

328 

66 

IS(  I  )  •  J 

328 

329 

67 

END  IF 

329 

330 

68 

20 

CONTINUE 

330 

331 

69 

END  IF 

331 

332 

70 

10 

CONTINUE 

332 

333 

71 

13  ■  IVS(l) 

333 

334 

72 

14  -  IVS(2) 

334 

335 

73 

ISl  -  IS(1) 

335 

336 

74 

IS2  -  IS(2) 

336 

337 

75 

C 

337 

338 

76 

C 

COMPARE  OPPOSING  ANGLE  PAIRS  IN  THE  QUADRILATERAL 

338 

339 

77 

C 

339 

340 

78 

1F(  ITRING  .  EQ  .  0  )  THEN 

340 

341 

79 

AX  -  XV(  1  .  13  )  -  XV(  1  ,  11  ) 

341 

342 

80 

AY  -  XV(  2  .  13  )  -  XV(  2  ,  11  ) 

342 

343 

81 

BX  -  XV(  1  ,  14  )  -  XV(  1  ,  11  ) 

343 

344 

82 

BY  -  XV(  2  .  14  )  -  XV(  2  .  11  ) 

344 

345 

83 

CX  -  XV(  1  .  14  )  -  XV(  1  .  12  ) 

345 

346 

84 

CY  -  XV(  2  .  14  )  -  XV(  2  .  12  ) 

346 

347 

85 

DX  -  XV(  1  .  13  )  -  XV(  1  .  12  ) 

347 

346 

86 

or  -  XV(  2  .  13  )  -  XV(  2  .  12  ) 

348 

349 

87 

AI2  -  AX  *  BY  -  AY  •  BX 

349 

350 

88 

All  -  CX  *  OY  -  CY  *  OX 

350 

351 

89 

XLN  -  XE(  1  .  N  ) 

351 

352 

90 

ROUNDF  -  EROR  •  XLN  *  XLN 

352 

353 

91 

IF(  A12  .  LT  .  ROUNDF  .  OR  .  All  .  LT  .  ROUNDF  )  RETURN 

353 

354 

92 

END  IF 

354 

355 

93 

c 

355 

356 

94 

c 

CREATE  A  NEW  VERTEX  MIDWAY  ON  LINE  N. 

356 

357 

95 

c 

357 

358 

96 

IDONE  -  1 

358 

359 

97 

HV  -  NV  ♦  1 

359 

360 

98 

IS  -  NV 

360 

361 

99 

c 

361 

362 

100 

c 

CHANGE  THE  LINE  N  SO  THAT  IT  STARTS  AT  THE  SAME  VERTEX, 

362 

363 

101 

c 

BUT  NOW  ENOS  AT  IS. 

363 

364 

102 

c 

364 

365 

103 

JE(  2  ,  N  )  .  15 

365 

366 

104 

c 

366 

< 
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367 

105 

C 

DRAW  THE  THREE  HEW  LIHES,  ALL  ENDING  AT  15. 

367 

368 

106 

C 

368 

369 

107 

00  30  !  •  1  .  2 

369 

370 

108 

IF(  JE(  5  -  I  ,  N  )  .  NE  .  0  )  THEM 

370 

371 

109 

NE  -  HE  ♦  1 

371 

372 

110 

JE(  1  .  NE  )  -  IVS(  I  ) 

372 

373 

111 

JE(  2  .  NE  )  =  15 

373 

374 

112 

C 

374 

375 

113 

JE(  5  .  NE  )  »  0 

375 

376 

114 

IFH  .  EQ  .  1  )  N1  -  HE 

376 

377 

115 

IF(  I  .  £0  .  2  )  N2  -  NE 

377 

378 

116 

END  IF 

378 

379 

117 

30 

CONTINUE 

379 

380 

118 

C 

380 

381 

119 

c 

HE  NEED  TO  HANDLE  THE  LINE  FROM  12  TO  15  SEPARATELY, 

381 

382 

120 

c 

SINCE  HE  ARE  NOT  ADDING  A  LINE  TO  12,  BUT  REPLACING 

382 

383 

121 

c 

THE  OLD  ONE. 

383 

384 

122 

c 

384 

385 

123 

NE  >  NE  +  1 

385 

386 

124 

c 

386 

387 

125 

JE(  5  ,  NE  )  =■  J£(  5  ,  N  ) 

387 

388 

126 

N3  -  NE 

388 

389 

127 

JE(  3  .  N3  )  =0 

389 

390 

128 

JE(  4  ,  N3  )  =0 

390 

391 

129 

c 

391 

392 

130 

c 

RESET  THE  OLD  TRIANGLES  AND  SET  UP  THE  NEW  TRIANGLES. 

392 

393 

131 

c 

393 

394 

132 

c 

N  HAS  ORIGINALLY  DRAWN  FROM  11  TO  12  -  HOW  FROM  11  TO  15. 

394 

395 

133 

c 

N1  IS  THE  NEW  LINE  FROM  13  TO  15. 

395 

396 

134 

c 

N2  IS  THE  NEW  LINE  FROM  14  TO  15. 

396 

397 

135 

c 

N3  IS  THE  NEW  LINE  FROM  12  TO  15. 

397 

398 

136 

c 

NAA  IS  THE  OLD  LINE  FROM  14  TO  11. 

398 

399 

137 

c 

NBB  IS  THE  OLD  LINE  FROM  11  TO  13. 

399 

400 

138 

c 

NCC  IS  THE  OLD  LINE  FROM  13  TO  12. 

400 

401 

139 

c 

NDD  IS  THE  OLD  LINE  FROM  !2  TO  14. 

401 

402 

140 

c 

THE  DIRECTIONS  OF  LIHES  NAA  THROUGH  NDD  ARE  NOT 

402 

403 

141 

c 

EXPLICITLY  USED. 

403 

404 

142 

c 

404 

405 

143 

IF(  ITl  .  NE  .  0  )  THEN 

405 

406 

144 

NCC  .  JS(  ISI  +  3  .  ITl  ) 

406 

407 

145 

JS(  ISW  3  ,  ITl  )  .  N1 

407 

408 

146 

J  .  MODE  ISl  .  3  )  +  1 

408 

409 

147 

IF(  JS{  J  .  ITl  )  .  NE  .  12  )  THEN 

409 

410 

148 

lEROR  -  2 

410 

411 

149 

J1  =  J 

411 

412 

150 

END  IF 

412 

413 

151 

JS{  J  ,  ITl  )  =  15 

413 

414 

152 

c 

414 

415 

153 

JJ  =  MODI  ISl  +  1  .  3  )  +  1 

415 

416 

154 

NBB  -  lABSI  JS(  JJ  ♦  3  .  ITl  )  ) 

416 

417 

155 

c 

417 

418 

156 

NS  =  NS  +  1 

418 

419 

157 

JS(  1  ,  NS  )  >  12 

419 

420 

158 

JS(  2  ,  NS  )  =  15 

420 

421 

159 

JS(  3  ,  NS  )  =  13 

421 

422 

160 

JS(  4  ,  NS  )  =  N3 

422 

423 

161 

JS(  5  .  NS  )  =  -  HI 

423 

424 

162 

JS(  6  ,  NS  )  =■  NCC 

424 

425 

163 

JE{  3  ,  N3  )  =  NS 

425 

426 

164 

JE(  4  ,  HI  )  =  NS 

426 

427 

165 

JE(  3  ,  N1  )  =  ITl 

427 

428 

166 

NCC  =  lABSI  NCC  ) 

428 

429 

167 

IF(  JE(  4  ,  NCC  )  .  EQ  .  ITl  )  JE(  4  .  NCC  )  =  NS 

429 

430 

168 

IF(  J£(  3  ,  NCC  )  .  EO  .  ITl  )  JE{  3  .  NCC  )  -  NS 

430 

431 

169 

c 

431 

432 

170 

END  IF 

432 

433 

171 

c 

433 

434 

172 

IF(  IT2  .  NE  .  0  )  THEN 

434 

435 

173 

J  =  MODI  1S2  +  1  .  3  )  *  1 

435 

436 

174 

NDD  =  JS(  J  f  3  .  IT2  ) 

436 

437 

175 

JS(  J  +  3  ,  IT2  )  •  -  N2 

437 

438 

176 

IF{  JS(  J  ,  IT2  )  .  NE  .  12  )  THEN 

438 

439 

177 

lEROR  •  3 

439 

440 

178 

J2  =  J 

440 
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441 

179 

END  IF 

441 

442 

180 

JS(  J  .  1T2  )  >  15 

442 

443 

181 

C 

443 

444 

182 

NAA  -  lAflS{  JS(  IS2  *  3  ,  1T2  )  ) 

444 

445 

183 

c 

445 

446 

184 

NS  »  NS  +  1 

446 

447 

185 

JS(  1  .  NS  )  -  12 

447 

448 

186 

JS(  2  ,  NS  )  *  14 

448 

449 

187 

JS(  3  .  NS  )  -  15 

449 

450 

188 

JS(  4  ,  NS  )  •  NOD 

450 

451 

189 

JS(  5  ,  NS  )  >  N2 

45! 

452 

190 

c 

452 

453 

191 

IF(  ITRING  .  £Q  .  0  )  THEN 

453 

454 

192 

c 

454 

455 

193 

JE(  1  ,  N3  )  -  12 

455 

456 

194 

JE(  2  .  N3  )  >  15 

456 

457 

195 

JS(  6  .  NS  )  -  -  N3 

457 

458 

196 

JE(  4  .  N3  )  =  NS 

458 

459 

197 

c 

459 

460 

198 

ELSE 

460 

461 

199 

c 

461 

462 

200 

JE(  1  .  N3  )  ’15 

462 

463 

201 

JE(  2  .  N3  )  =  12 

463 

464 

202 

JS{  6  ,  NS  )  =  N3 

464 

465 

203 

JE(  3  ,  N3  )  ’  NS 

465 

466 

204 

c 

466 

467 

205 

END  u 

467 

466 

206 

c 

468 

469 

207 

JE(  3  ,  N2  )  =  NS 

469 

470 

208 

JE(  4  .  N2  )  ’  1T2 

470 

471 

209 

NDO  =■  IABS(  m  ) 

471 

472 

210 

1F(  JE{  4  .  NDO  )  .  EQ  .  1T2  )  JE{  4  ,  HDD  )  -  NS 

472 

473 

211 

IF(  JE(  3  ,  HDD  )  .  EQ  .  1T2  )  JE(  3  .  NOD  )  =■  NS 

473 

474 

212 

c 

474 

475 

213 

END  IF 

475 

476 

214 

c 

476 

477 

215 

NSHl  •  NS  -  1 

477 

478 

216 

NEMl  -  HE  -  1 

478 

479 

217 

NEM2  =  NE  -  2 

479 

480 

218 

c 

480 

481 

219 

IF(  ITRING  .  EQ  .  0  )  THEN 

481 

482 

220 

XV(  1  ,  15  )  «  0.25  *  (  XW(  1  .  11  )  +  XV(  1  .  12  )  * 

482 

483 

221 

, 

XV(  1  .  13  )  +  XV(  1  ,  14  )  ) 

483 

484 

222 

XV(  2  ,  15  )  -  0.25  *  (  XV(  2  ,  11  )  +  XV(  2  .  12  )  ♦ 

484 

485 

223 

, 

XV(  2  ,  13  )  -  XV(  2  ,  14  )  ) 

485 

486 

224 

JV(  1  .  15  )  ■=  0 

486 

487 

225 

c 

487 

488 

226 

DO  85  IR  -  1  .  HHQ 

488 

489 

227 

HYOVVV(  15  .  IR  )  -  0.25  *  (  HYDVVV(  11  .  IR  )  ♦ 

489 

490 

228 

HYDVVVI  12  ,  IR  )  + 

490 

491 

229 

HYDVVV(  13  ,  IR  )  * 

491 

492 

230 

HYOWV(  14  ,  IR  )  ) 

492 

493 

231 

85 

CONTINUE 

493 

494 

232 

C 

494 

495 

233 

JV(  2  ,  NV  )  -  N 

495 

496 

234 

IF(  JV(  2  .  12  )  .  GT  .  0  )  JV(  2  .  12  )  ’  N3 

496 

497 

235 

C 

497 

498 

236 

OX  -  XV(  1  ,  13  )  -  XV(  1  .  11  ) 

498 

499 

237 

OXX  -  XV(  1  ,  15  )  -  XV(  1  .  11  ) 

499 

500 

238 

OY  -  XV(  2  ,  13  )  -  XV(  2  .  II  ) 

500 

501 

239 

OYY  -  XV(  2  ,  15  )  -  XV(  2  ,  II  ) 

501 

502 

240 

XS(  3  ,  ITl  )  ’  .5  *  {  DX  *  DYY  -  OXX  *  OY  ) 

502 

503 

241 

OX  -  XV(  1  ,  12  )  -  XV(  1  .  13  ) 

503 

504 

242 

OXX  -  XV(  1  .  15  )  -  XV(  1  .  13  ) 

504 

505 

243 

OY  -  XV(  2  ,  12  )  -  XV(  2  .  13  ) 

505 

506 

244 

DYY  -  XV(  2  ,  15  )  -  XV(  2  ,  13  ) 

506 

507 

245 

XS(  3  ,  NSMl  )’  .5  *  (  OX  *  OYY  -  OXX  •  OY  ) 

507 

508 

246 

OX  -  XV{  1  ,  14  )  -  XV(  1  ,  12  ) 

508 

509 

247 

OXX  -  XV(  1  ,  15  )  -  XV(  1  .  12  ) 

509 

510 

248 

OY  -  XV(  2  ,  14  )  -  XV(  2  ,  12  ) 

510 

511 

249 

OYY  -  XV(  2  ,  15  )  -  XV(  2  .  12  ) 

511 

512 

250 

XS{  3  .  NS  )  -  .5  *  (  OX  •  DYY  -  OXX  *  OY  ) 

512 

513 

251 

OX  -  XV(  1  .  n  )  -  XV(  1  ,  14  ) 

513 

514 

252 

OXX  -  XV(  1  .  15  )  -  XV(  1  .  14  ) 

514 
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515 

253 

OY  -  XV(  2  ,  11  )  -  XV(  2  ,  14  ) 

515 

516 

254 

OYY  .  XU(  2  ,  15  )  -  XV(  2  ,  14  ) 

516 

517 

255 

XS(  3  .  1T2  )  -  .5  *  (  OX  *  OYY  -  OXX  *  OY  ) 

517 

518 

256 

C 

518 

519 

257 

XS(  1  .  in  )  .  (  XV(  !  ,  !1  )  *  XV(  1  ,  13  )  * 

519 

5Z0 

258 

X\/(  1  .  NW  )  )  *  THIRD 

520 

521 

259 

XS(  1  ,  NSMl  )  -  {  XV(  1  .  13  )  ♦  XV{  1  .  12  )  * 

521 

522 

260 

XV(  1  ,  NV  )  )  '  THIRD 

522 

523 

261 

XS(  2  .  in  )  -  (  XV(  2  .  11  )  ♦  XV{  2  ,  13  )  ‘ 

523 

524 

262 

XV(  2  ,  NV  )  )  •  THIRD 

524 

525 

263 

XS(  2  .  NSHl  )  •  (  XV(  2  ,  13  )  +  XV{  2  .  12  )  ♦ 

525 

526 

264 

XV{  2  .  NV  )  )  *  THIRD 

526 

527 

265 

C 

527 

528 

266 

XS(  1  ,  NS  )  =  (  XV(  1  ,  12  )  +  XV(  1  ,  14  )  » 

528 

529 

267 

XV(  1  ,  NV  )  )  ‘  THIRD 

529 

530 

268 

XS(  1  ,  IT2  )  =  (  XV(  1  ,  14  )  +  XV(  1  ,  11  )  + 

530 

531 

269 

XV(  1  ,  NV  )  )  •  THIRD 

531 

532 

270 

XS(  2  ,  NS  )  •  (  XV(  2  ,  12  )  *  XV(  2  ,  14  )  * 

532 

533 

271 

XV(  2  .  NV  )  )  *  THIRD 

533 

534 

272 

XS(  2  ,  1T2  )  =  (  XV(  2  .  14  )  ♦  XV(  2  ,  11  ) 

534 

535 

273 

XV(  2  .  NV  )  )  *  THIRD 

535 

536 

274 

c 

536 

537 

275 

00  94  IR  -  1  ,  MHQ 

537 

538 

276 

HYDV(  ITl  ,  IR  )  -  (  HYOWVI  11  ,  IR  )  > 

538 

539 

277 

HYDVVV(  13  ,  IR  )  » 

539 

540 

278 

HYDVVVI  NV  ,  IR  )  )  *  THIRD 

540 

541 

279 

HYOV(  NSHl  ,  IR  )  =  (  HYDVVVI  13  ,  IR  )  * 

541 

542 

280 

HYDVVVI  12  ,  IR  )  * 

542 

543 

281 

HYDVVVI  NV  ,  IR  )  )  •  THIRD 

543 

544 

282 

HYDVI  IT2  .  IR  )  =  {  HYDVVVI  14  ,  IR  )  ♦ 

544 

545 

283 

HYOWVI  11  .  IR  )  ♦ 

545 

546 

284 

HYDVVVI  NV  .  !R  )  )  *  THIRD 

546 

547 

285 

HYDVI  NS  ,  IR  )  -  I  HYDVVVI  12  ,  IR  )  + 

547 

548 

286 

HYDVVVI  14  ,  IR  )  + 

548 

549 

287 

HYDVVVI  NV  ,  IR  )  )  *  third 

549 

550 

288 

94 

CONTINUE 

550 

551 

289 

C 

551 

552 

290 

HOUH  -  1.  /  I  HYDVI  ITl  ,  1  )  ♦  l.E-12  ) 

552 

553 

291 

HYDVI  in  .  2  )  -  HYDVI  ITl  .  2  )  •  HOUH 

553 

554 

292 

HYDVI  ITl  ,  3  )  •  HYDVI  ITI  .  3  )  •  HDUH 

554 

555 

293 

HYDVI  ITl  ,  4  )  -  I  HYDVI  ITl  .  4  )  - 

555 

556 

294 

.5  •  HYDVI  ITl  ,  1  )  * 

556 

557 

295 

I  HYDVI  ITl  ,  2  )  »  HYDVI  ITl  ,  2  )  + 

557 

558 

296 

HYDVI  ITl  .  3  )  •  HYDVI  ITl  ,  3  )  )  )  * 

558 

559 

297 

, 

I  HYDVI  ITl  ,  5  )  -  1.  ) 

559 

560 

298 

c 

560 

561 

299 

HDUH  ”  1.  /  I  HYDVI  NSMl  ,  1  )  *  l.E-12  ) 

561 

562 

300 

HYDVI  NSMl  ,  2  )  »  HYDVI  NSHl  .  2  )  *  HOUH 

562 

563 

301 

HYDVI  NSMl  ,  3  )  -  HYDVI  NSMl  .  3  )  *  HDUM 

563 

564 

302 

HYDVI  NSHl  ,  4  )  .  I  HYOVi  NSMl  ,  4  )  - 

564 

565 

303 

.5  »  HYOVI  NSHl  .  1  )  * 

565 

566 

304 

I  HYDVI  NSHl  .  2  )  *  HYDVI  NSMl  ,  1  )  * 

566 

567 

305 

HYDVI  NSMl  ,  3  )  »  HYOVI  NSMl  ,  3  )  )  )  * 

567 

568 

306 

I  HYOVI  NSMl  .  5  )  -  1.  ) 

568 

569 

307 

c 

569 

570 

308 

HOUH  ’  1.  /  I  HYOVI  1T2  .  1  )  +  I.E-IZ  ) 

570 

571 

309 

HYDVI  IT2  ,  2  )  -  HYDVI  1T2  ,  2  )  *  HDUM 

571 

572 

310 

HYOVI  IT2  .  3  )  -  HYDVI  IT2  .  3  )  •  HDUM 

572 

573 

311 

HYOVI  IT2  ,  4  )  *  I  HYOVI  IT2  .  4  )  - 

573 

574 

312 

.5  *  HYDVI  IT2  .  1  )  * 

574 

575 

313 

I  HYDVI  IT2  ,  2  )  •  HYOVI  IT2  .  2  )  * 

575 

576 

314 

HYDVI  ITZ  ,  3  )  *  HYOVI  IT2  ,  3  )  )  )  * 

576 

577 

ji5 

, 

I  HYOVI  IT2  .  5  )  -  1.  ) 

577 

578 

316 

c 

578 

579 

317 

HDUM  =  1.  /  I  HYOVI  NS  .  '  )  *■  I-E-IZ  ) 

579 

580 

318 

HYDVI  NS  ,  2  )  «  HYDVI  NS  .  2  )  *  HDUM 

580 

581 

319 

HYOVI  NS  ,  3  )  -  HYDVI  NS  .  3  )  •  HDUH 

581 

582 

320 

HYOVI  NS  ,  4  )  -  I  HYOVI  NS  ,  4  )  - 

582 

583 

321 

.5  *  HYDVI  NS  ,  1  )  * 

583 

584 

322 

T  HYOUf  NS  ,  7  )  *  Mynyf  wc  _  ?  )  * 

584 

585 

323 

HYDVI  NS  ,  3  j  •  HYDVI  NS  .  3  )  )  )  • 

585 

586 

324 

I  HYOVI  NS  ,  5  )  -  1.  ) 

586 

587 

325 

c 

587 

588 

326 

SAREAI  in  )  =  1.  /  XSI  3  .  ITl  ) 

588 

8 


page 


Thu  Jul 

1  14:16:08 

1993  adaphd.f  SUBROUTINE  OISECT 

589 

327 

SAREA(  NSHl  )  -  1.  /  XS{  3  ,  HSMl  ) 

590 

328 

SAREA(  IT2  )  ’■  1.  /  XS(  3  .  IT2  ) 

591 

329 

SAREA{  NS  )  -  1.  /  XS{  3  ,  NS  ) 

592 

330 

C 

593 

331 

DO  112  IR  -  1  .  2 

594 

332 

RGRAD(  NS  .  IR  )  >  RGRAD(  IT2  ,  IR  ) 

595 

333 

RGRAD(  NSHl  .  IR  )  -  RGRAD(  ITl  .  IR  ) 

596 

334 

UGRAO(  NS  .  IR  )  =  UGRAP(  IT2  .  IR  ) 

597 

335 

UGRAD(  NSHl  ,  IR  )  •  UGRAO(  ITl  ,  IR  ) 

598 

336 

VGRAD(  NS  .  IR  )  ■  yGRA0(  1T2  ,  IR  ) 

599 

337 

VGRAO(  NSHl  ,  IR  )  =■  VGRAD(  ITl  .  IR  ) 

600 

338 

PGRAD(  NS  .  IR  )  -  PGRAO(  IT2  .  IR  ) 

601 

339 

PGRAO(  NSHl  .  IR  )  *  PGRAD(  ITl  .  IR  ) 

602 

340 

112 

CONTINUE 

603 

341 

C 

604 

342 

KSDELK  NS  )  ’  IDUHP 

605 

343 

KSOELT(  NSHl  )  -  IDUHP 

606 

344 

KSDELK  ITl  )  »  IDUHP 

607 

345 

KSOELT(  IT2  )  =  IDUHP 

608 

346 

C 

609 

347 

JEH(  1  )  -  NAA 

610 

348 

JEN(  2  )  =  NflB 

611 

349 

J£N(  3  )  *  NCC 

612 

350 

JEN{  4  )  =  NDO 

613 

351 

JEN(  5  )  -  N 

614 

352 

JEN(  6  )  -  N1 

615 

353 

JEH(  7  )  =  N2 

616 

354 

JEN(  8  )  =  N3 

617 

355 

JENN  -  8 

618 

356 

C 

619 

357 

ELSE 

620 

358 

c 

621 

359 

XV(  1  ,  15  )  =  0.5  *  (  XV(  1  ,  11  )  +  XV(  1  ,  12 

622 

360 

XV(  2  .  IS  )  -  0.5  *  (  XV{  2  .  11  )  ♦  XV(  2  .  12 

623 

361 

JV(  1  .  15  )  =  0 

624 

362 

c 

625 

363 

IF(  lOSPCL  .  EQ  .  1  .  AND  .  IJE5  ,  EQ  .  6  )  THEN 

626 

364 

AN6L  «  1.570796327 

627 

365 

DXX  -  XV(  1  ,  15  )  -  1.5 

628 

366 

IF(  DXX  .  N£  .  0.  )  ANGL  =  ATAN2(  XV(  2  ,  15  )  , 

629 

367 

XV(  1  ,  15  )  =  COS(  ANGL  )  *  1.5 

630 

368 

XV<  2  .  15  )  =  SIN(  ANGL  ) 

631 

369 

END  IF 

632 

370 

c 

633 

371 

DO  80  IR  *  1  ,  HHQ 

634 

372 

HYDVVV(  15  .  IR  )  =  0.5  *  (  HYDVVV(  11  ,  IR  )  + 

635 

373 

HY0VVV(  12  ,  IR  )  ) 

636 

374 

80 

CONTINUE 

637 

375 

C 

638 

376 

JV(  2  ,  11  )  -  -  N 

639 

377 

JV(  2  .  NV  )  =  -  N3 

640 

378 

C 

641 

379 

XSAREA  -  .5  *  XS(  3  .  IT2  ) 

642 

380 

XS(  3  ,  IT2  )  »  XSAREA 

643 

381 

XS(  3  ,  NS  )  -  XSAREA 

644 

382 

c 

645 

383 

XS(  1  .  NS  )  >  (  XV(  1  ,  12  )  ♦  XV(  1  .  14  )  + 

646 

384 

XV(  1  .  NV  )  )  *  THIRD 

647 

385 

XS{  1  ,  IT2  )  ’  (  XV(  1  .  14  )  +  XV(  1  ,  11  )  ♦ 

648 

386 

XV{  1  .  NV  )  )  •  THIRD 

649 

387 

XS(  2  ,  NS  )  -  (  XV(  2  ,  12  )  +  XV(  2  .  14  )  * 

630 

388 

XV(  2  ,  NV  )  )  *  THIRD 

651 

389 

XS(  2  ,  IT2  )  -  (  XV(  2  .  14  )  >  XV(  2  .  11  )  * 

652 

390 

XV(  2  ,  NV  )  )  *  THIRD 

653 

391 

c 

654 

392 

DO  92  IR  »  1  ,  HHQ 

655 

393 

HYDV(  IT2  ,  IR  )  -  (  HYDVVV(  14  .  IR  )  + 

656 

394 

HYDVVV(  11  .  IR  )  + 

657 

395 

HYOVVVI  NV  .  IR  >  )  •  THIRD 

658 

396 

HYOV(  NS  ,  IR  )  -  {  HYOVVV(  12  .  IR  )  t 

639 

397 

HYDVVV(  14  ,  IR  )  + 

660 

398 

HYOVVV(  NV  .  IR  )  )  *  THIRD 

661 

399 

92 

CONTINUE 

662 

400 

C 
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663 

401 

HDUM  -  1.  /  (  HYDV(  IT2  ,  1  )  »  l.E-12  ) 

664 

402 

HY0V(  1T2  .  2  )  -  HYOV(  1T2  ,  2  )  *  HDUM 

665 

403 

HYDV(  IT2  .  3  )  .  HYOV(  IT2  ,  3  )  *  HDUM 

666 

404 

HYOV(  IT2  ,  4  )  -  (  HYDV(  IT2  ,  4  )  - 

667 

405 

.5  *  HYOV(  1T2  ,  1  )  • 

668 

406 

(  HY0V(  IT2  ,  2  )  *  HY0V(  IT2  ,  2  )  ♦ 

669 

407 

HYDV(  IT2  .  3  )  *  HYOV(  1T2  .  3  )  )  )  * 

670 

408 

(  HYOV(  IT2  .  5  )  -  1.  ) 

671 

409 

C 

672 

410 

HOUM  ■  1.  7  (  HY0V(  ns  ,  i  )  +  l.E-12  ) 

673 

411 

HYDV{  NS  .  2  )  >  HYDV(  NS  ,  2  )  *  HDUM 

674 

412 

HYDV(  NS  ,  3  )  -  HYDV{  NS  ,  3  )  •  HOUM 

675 

413 

HYDV(  NS  .  4  )  .  (  HYOV(  NS  .  4  )  - 

676 

414 

.5  *  HYDV(  NS  .  1  )  • 

677 

415 

(  HYOV(  NS  .  2  )  *  HYOV(  NS  .  2  )  » 

678 

416 

HYDV(  NS  .  3  )  *  HYOV(  NS  ,  3  )  )  )  • 

679 

417 

(  HYOV{  NS  ,  5  )  -  1.  ) 

680 

418 

C 

681 

419 

XSYREA  .  1.  /  XSAREA 

632 

420 

SAREA(  IT2  )  -  XSYREA 

683 

421 

SAREA(  NS  )  -  XSYREA 

684 

422 

C 

685 

423 

DO  122  IR  -  1  .  2 

686 

424 

RGRAD(  NS  ,  IR  )  =  RGRAO(  IT2  ,  IR  ) 

687 

425 

UGRAD(  NS  ,  IR  )  «  UGRAD(  IT2  ,  IR  ) 

688 

426 

VGRAD(  NS  .  IR  )  =  VGRAO(  1 12  ,  IR  ) 

689 

427 

PGRAD(  NS  ,  IR  )  =  PGRAD(  IT2  ,  IR  ) 

690 

428 

122 

CONTINUE 

691 

429 

C 

692 

430 

KSDELT(  NS  )  =■  I  DUMP 

693 

431 

KSO£LT(  rT2  )  =  I DUMP 

694 

432 

C 

695 

433 

JEN(  1  )  =  NAA 

696 

434 

JEN(  2  )  •  NOO 

697 

435 

JEN(  3  )  *  H2 

698 

436 

JEN(  4  )  -  N3 

699 

437 

JEN(  5  )  «  N 

700 

438 

JENN  •  5 

701 

439 

C 

702 

440 

END  IF 

703 

441 

C 

704 

442 

00  90  lENN  -  1  ,  JENN 

705 

443 

lEN  •  JEN(  lENN  ) 

706 

444 

JVl  -  JE(  1  ,  lEN  ) 

707 

445 

JV2  *  J£(  2  .  lEN  ) 

708 

446 

AX  •  XV{  1  ,  JV2  )  -  XV(  1  ,  JVl  ) 

709 

447 

AY  -  XV(  2  ,  JV2  )  -  XV(  2  ,  JVl  ) 

710 

448 

XE(  1  ,  lEN  )  =  SQRT(  AX  *  AX  +  AY  •  AY  ) 

711 

449 

XEREV  -  1.  /  XE(  1  .  lEN  ) 

712 

450 

XN(  lEN  )  .  AY  »  XEREV 

713 

451 

YN(  lEN  )  =  -  AX  •  XEREV 

714 

452 

ISSR  -  JE(  4  ,  lEN  ) 

715 

453 

ISSL  -  JE(  3  ,  lEN  ) 

716 

454 

C 

717 

455 

IJE5  -  JE(  5  .  lEN  ) 

718 

456 

IF(  IJE5  .  NE  .  0  )  THEM 

719 

457 

C 

720 

458 

AA  -  XV(  1  ,  JV2  )  -  XV(  1  ,  JVl  ) 

721 

459 

BB  -  XV(  2  ,  JV2  )  -  XV{  2  ,  JVl  ) 

722 

460 

XEL  -  XS(  1  .  ISSL  ) 

723 

461 

YEL  =  XS(  2  ,  ISSL  ) 

724 

462 

CC  -  XEL  -  XV(  1  ,  JVl  ) 

725 

463 

DO  -  YEL  -  XV(  2  ,  JVl  ) 

726 

464 

EE  -  {  AA  *  CC  t  BB  •  DD  )  *  XEREV  *  XEREV 

727 

465 

XER  >  XV(  1  ,  JVl  )  t  AA  *  EE 

728 

466 

YER  -  XU(  2  ,  JVl  )  +  BB  *  EE 

729 

467 

AX  -  XER  -  XEL 

730 

468 

AY  -  YER  -  YEL 

731 

469 

XE(  2  .  lEN  )  -  SQRT{  AX  *  AX  t  AY  *  AY  ) 

732 

470 

XEREV  .  1.  /  XE(  2  ,  lEN  ) 

733 

471 

XXN(  lEN  )  =  AX  •  XEREV 

734 

472 

YYN(  lEN  )  >  AY  *  XEREV 

735 

473 

XE(  2  .  lEN  )  -  2.  *  XE(  2  .  lEN  ) 

736 

474 

XYMIOL(  lEN  )  -  .5 
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737 

475 

XMI0L(  lEN  )  -  XER 

737 

738 

476 

YH!OL{  lEN  )  =  YER 

738 

739 

477 

C 

739 

740 

478 

ELSE 

740 

741 

479 

c 

741 

742 

480 

XER  >  XS(  1  ,  ISSR  ) 

742 

743 

481 

YER  -  XS(  2  ,  ISSR  ) 

743 

744 

482 

XEL  »  XS{  1  .  ISSL  ) 

744 

745 

483 

YEL  -  XS(  2  ,  ISSL  ) 

745 

746 

484 

c 

746 

747 

485 

AA  -  XV(  1  .  JV2  )  -  XV(  1  ,  JVl  ) 

747 

748 

486 

88  -  XV(  2  .  JV2  )  -  XV(  2  .  JUl  ) 

748 

749 

487 

CC  =  XEL  -  XER 

749 

750 

488 

00  •  YEL  -  YER 

750 

751 

489 

ACA  -  XER  -  XV(  1  ,  JVl  ) 

751 

752 

-.90 

DBO  -  YER  -  XV(  2  .  JVl  ) 

752 

753 

491 

EE  -  {  ACA  »  DO  -  OBO  *  CC  )  /  (  AA  *  DO  -  H8  *  CC  ) 

753 

754 

492 

XMIDL(  lEN  )  *  XV(  1  .  JVl  )  *  AA  •  EE 

754 

755 

493 

YM1DL(  lEN  )  -  XV{  2  ,  JVl  )  >  BB  *  EE 

755 

756 

494 

c 

756 

757 

495 

XEMID  =  XMIOL(  lEN  )  -  XEL 

757 

758 

496 

YEHID  =  YHIOL(  lEN  )  -  YEL 

758 

759 

497 

c 

759 

760 

498 

AX  -  XER  -  XEL 

760 

761 

499 

AY  -  YER  -  YEL 

761 

762 

500 

XE(  2  .  lEN  )  .  SQRT(  AX  •  AX  +  AY  *  AY  ) 

762 

763 

501 

XEREV  -  1.  /  XE(  2  .  lEN  ) 

763 

764 

502 

XXN(  lEN  )  =  AX  *  XEREV 

764 

765 

503 

YYN(  lEN  )  =  AY  •  XEREV 

765 

766 

504 

c 

766 

767 

505 

XYMIOL(  lEN  )  =  SORT(  XEMID  *  XEMID  *  YEMID  *  YEMID  )  *  XEREV 

767 

768 

506 

c 

768 

769 

507 

END  IF 

769 

770 

508 

c 

770 

771 

509 

90 

CONTINUE 

771 

772 

510 

C 

772 

773 

511 

IF(  lEROR.NE.O  )  THEN 

773 

774 

512 

WRITE  (6.1000)  N 

774 

775 

513 

IF(  IER0R.E0.2  )  WRITE  (6,1002)  12.  Jl.  ITl.  15 

775 

776 

514 

IF(  IER0R.EQ.3  )  WRITE  (6.1003)  12.  J2.  IT2.  15 

776 

777 

515 

STOP 

777 

778 

516 

END  IF 

778 

779 

517 

c 

779 

780 

518 

c  — 

EXIT  POINT  FROM  SUBROUTINE  . 

780 

781 

519 

c 

781 

782 

520 

c 

782 

783 

521 

RETURN 

783 

784 

522 

c 

784 

785 

523 

c 

785 

786 

524 

c _ 

FORMATS _  —  ..  - _  _ 

787 

525 

c 

787 

788 

526 

1000 

F0RHAT(/'0  TROUBLE  WITH  BOOKKEEPING  DATA  FOUND  IN  DISECT 

788 

789 

527 

'FOR  LINE  15///) 

789 

790 

528 

1002 

FORMAT! ■  DISECT  12-  MS.'  J-  '.15.'  ITl-  '.15.'  15-  '.15) 

790 

791 

529 

1003 

FORMAT! '  DISECT  12-  '.15.'  J-  '.15.'  IT2-  '.15.'  15-  '.15) 

791 

792 

530 

C 

792 

793 

531 

C 

— 

793 

794 

532 

END 

794 
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795 

1 

SUBROUTINE  0YNPTN(  OAREA  ,  HOFOIV  ,  IDUHP  .  LTRIG  ) 

795 

796 

2 

C 

796 

797 

3 

C— 

797 

798 

4 

t 

i 

798 

799 

5 

c 

OYNPTN  ADAPT  THE  GRID  DYNAMICALLY,  ADO  VERTICES 

I 

799 

800 

6 

c 

I 

800 

801 

7 

C— - 

801 

802 

8 

c 

802 

803 

9 

IMPLICIT  REAL  (A-H,0-Z) 

803 

804 

10 

c 

804 

805 

11 

include  'cmshOO.h' 

805 

806 

12 

include  'chydOO.h' 

806 

807 

13 

include  'cintOO.h' 

807 

808 

14 

include  'cphslO.h' 

808 

809 

15 

include  ’cphs20.h‘ 

809 

810 

16 

c 

810 

811 

17 

INTEGER  JTRIG(HEM) .KTRIG(KEM) . IRECNC(MEH) 

811 

812 

18 

INTEGER  JSE(HEM) . JEE(MEH) , IOFOVS( 10) . NOFDVS( 10) 

812 

813 

19 

c 

813 

814 

20 

EQUIVALENCE  (UL.JTRIG) 

814 

815 

21 

EQUIVALENCE  (VR.KTRIG) 

815 

816 

22 

EQUIVALENCE  (VL.IRECNC) 

816 

817 

23 

EQUIVALENCE  (PR. USE) 

817 

818 

24 

EQUIVALENCE  (PL.JEE) 

818 

819 

25 

c 

819 

820 

26 

SMINVG  -  SAREVG  *  DAREA 

820 

821 

27 

RMINVG  =  .7  *  SMINVG 

821 

822 

28 

DO  115  IS  =  1  ,  NS 

822 

823 

29 

JEE(  IS  )  =  0 

823 

824 

30 

115 

CONTINUE 

824 

825 

31 

C 

825 

826 

32 

NSS  -  0 

826 

827 

33 

FLUXPP  =  .00001  *  HYDMOH(  4  ) 

827 

828 

34 

FLUXUU  >  .00001  »  HYDHOH(  2  ) 

828 

829 

35 

FLUXRR  =  .00001  »  HY0M0M(  1  ) 

829 

830 

36 

DO  120  IS  -  1  ,  NS 

830 

831 

37 

PCRTRY  -  HYDFLX(  IS  .  4  )  -  FLUXPP 

831 

832 

38 

IPCRTR  «  SIGN(  1.  ,  PCRTRY  ) 

832 

833 

39 

UCRTRY  -  HYDFLX(  IS  ,  2  )  -  FLUXUU 

833 

834 

40 

lUCRTR  -  SIGN(  1.  .  UCRTRY  ) 

834 

835 

41 

RCRTRY  =  HYOFLX(  IS  .  1  )  -  FLUXRR 

835 

836 

42 

IRCRTR  -  SIGH(  1.  .  RCRTRY  ) 

836 

837 

43 

IF(  ( 

837 

838 

44 

IPCRTR  .  EQ  .  1  .  OR  . 

838 

839 

45 

lUCRTR  .  EQ  .  1  .  OR  . 

839 

840 

46 

IRCRTR  .  EQ  .  1  )  ,  AND  . 

'40 

841 

47 

KSOELT(  IS  )  .  LT  ,  IDUMP  )  THEN 

841 

842 

48 

KSDELT(  IS  )  =  IDUMP 

842 

843 

49 

JEE(  IS  )  -  1 

843 

844 

50 

NSS  -  NSS  +  1 

844 

845 

51 

JTRIG(  NSS  )  =  IS 

845 

846 

52 

END  IF 

846 

847 

53 

120 

CONTINUE 

847 

848 

54 

C 

848 

849 

55 

DO  130  IS  •  1  ,  NSS 

849 

850 

56 

JSE(  IS  )  =  JTRIG(  IS  ) 

850 

851 

57 

130 

CONTINUE 

851 

852 

58 

C 

852 

853 

59 

MSS  -  NSS 

853 

854 

60 

DO  140  KDIV  *  1  .  NOFDIV 

854 

855 

61 

ITRIG  -  0 

855 

856 

62 

DO  150  KS  *  1  ,  NSS 

856 

857 

63 

c 

857 

858 

64 

ISS  -  JSE(  KS  ) 

858 

859 

65 

c 

859 

860 

66 

DO  160  KR  =  1  .  3 

860 

861 

67 

IVV  -  JS(  KR  ,  ISS  ) 

861 

862 

68 

c 

862 

863 

69 

IE  =  JV{  2  ,  IVV  ) 

863 

864 

70 

IF(  IE  .  GT  .  0  )  THEN 

864 

865 

71 

c 

865 

866 

72 

IVl  -  J£(  1  ,  IE  ) 

866 

867 

73 

IF(  IVl  .  EQ  .  IVV  )  THEM 

867 

868 

74 

ISI  *  JE(  3  ,  IE  ) 

868 
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869 

75 

ELSE 

869 

870 

76 

ISI  -  JE(  4  ,  IE  ) 

870 

871 

77 

END  IF 

871 

872 

78 

IS  -  ISI 

872 

873 

79 

C 

873 

874 

80 

750 

CONTINUE 

874 

875 

81 

C 

875 

876 

82 

JES  -  JEE(  IS  ) 

876 

877 

83 

XAS  -  XS{  3  .  IS  ) 

877 

878 

84 

IF(  JES  .  EO  .  0  .  AND  .  XAS  .  LT  . 

SAREVG  )  THEN 

878 

879 

85 

ITRIG  -  ITRIG  ♦  1 

879 

880 

86 

KTRIG(  ITRIG  )  -  IS 

880 

881 

87 

KSDELT{  IS  )  =  I DUMP 

881 

882 

88 

JEE(  IS  )  =  1 

882 

883 

89 

END  IF 

883 

884 

90 

C 

884 

885 

91 

DO  760  IR  >  1  .  3 

885 

886 

92 

JR  -  H00{  IR  .  3  )  +  1 

886 

887 

93 

lEA  -  IA8S(  JS{  JR  +  3  .  IS  )  ) 

887 

888 

94 

IF(  lEA  .  EQ  .  IE  )  THEN 

888 

889 

95 

JJR  -  M00(  JR  1  .  3  )  *  4 

889 

890 

96 

lER  -  IABS{  JS(  JJR  ,  IS  )  ) 

890 

891 

97 

C 

891 

892 

98 

IVl  =  JE(  1  ,  lER  ) 

892 

893 

99 

IF(  IVl  .  EQ  .  IVV  )  THEN 

893 

894 

100 

tSR  -  JE(  3  ,  lER  ) 

894 

895 

101 

ELSE 

895 

896 

102 

ISR  -  JE{  4  ,  lER  ) 

896 

897 

103 

END  IF 

897 

898 

104 

END  IF 

898 

899 

105 

C 

899 

900 

106 

760 

CONTINUE 

900 

901 

107 

C 

901 

902 

108 

:r(  ISR  .  NE  .  ISI  )  THEN 

902 

903 

109 

IS  -  ISR 

903 

904 

110 

IE  -  lER 

904 

905 

111 

GO  TO  750 

905 

906 

112 

END  IF 

906 

907 

113 

C 

907 

908 

114 

ELSE 

908 

909 

115 

C 

909 

910 

116 

IE  -  -  IE 

910 

911 

117 

IVl  -  JE(  1  .  IE  ) 

911 

912 

118 

IF(  IVl  .  EQ  .  IVV  )  THEN 

912 

913 

119 

ISI  .  JE(  3  .  IE  ) 

913 

914 

120 

ELSE 

914 

915 

121 

ISI  -  JE(  4  .  IE  ) 

915 

916 

122 

END  IF 

916 

917 

123 

IS  -  ISI 

917 

918 

124 

ISI  =  0 

918 

919 

125 

HE  -  IE 

919 

920 

126 

C 

920 

921 

127 

650 

CONTINUE 

921 

922 

128 

C 

922 

923 

129 

JES  -  JEE(  IS  ) 

923 

924 

130 

XAS  -  XS(  3  ,  IS  ) 

924 

925 

131 

IF(  JES  .  EQ  .  0  .  AND  .  XAS  .  LT  . 

SAREVG  )  THEN 

925 

926 

132 

ITRIG  -  ITRIG  +  1 

926 

927 

133 

KTRIG(  ITRIG  )  -  IS 

927 

928 

134 

KSOELTI  IS  )  '  lOUHP 

928 

929 

135 

JEE{  IS  )  «  1 

929 

930 

136 

END  IF 

930 

931 

137 

c 

931 

932 

138 

DO  660  IR  »  1  .  3 

932 

933 

139 

JR  -  MOD(  IR  ,  3  )  +  1 

933 

934 

140 

lEA  -  IABS(  JS(  JR  +  3  .  IS  )  ) 

934 

935 

141 

IF(  lEA  .  EQ  .  IE  )  THEN 

935 

936 

142 

JJR  -  M00(  JR  +  1  ,  3  )  *  4 

936 

937 

143 

lER  -  1ABS(  JS(  JJR  .  IS  )  ) 

937 

938 

144 

c 

938 

939 

145 

IVl  -  JE{  1  .  lER  ) 

939 

940 

146 

IF{  IVl  .  EQ  .  IVV  )  THEN 

940 

941 

147 

ISR  -  J£(  3  ,  lER  ) 

941 

942 

148 

ELSE 

942 

# 
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943 

149 

ISR  -  K  4  ,  lER  ) 

943 

944 

150 

END  IF 

944 

945 

151 

END  IF 

945 

946 

152 

C 

946 

947 

153 

660 

CONTINUE 

94? 

948 

154 

C 

948 

949 

155 

IF{  ISR  .  NE  .  ISI  )  THEN 

949 

950 

156 

IS  -  ISR 

950 

951 

157 

IE  -  lER 

951 

952 

158 

GO  TO  650 

952 

953 

159 

END  IF 

953 

954 

160 

c 

954 

955 

161 

END  IF 

955 

956 

162 

160 

CONTINUE 

956 

957 

163 

C 

957 

958 

164 

150 

CONTINUE 

958 

959 

165 

C 

959 

960 

166 

DO  170  IS  «  1  .  ITRIG 

960 

961 

167 

JTRIG(  IS  +  MSS  )  =  KTR1G(  IS  ) 

961 

962 

168 

JS£(  IS  )  -  KTRIG(  IS  ) 

962 

963 

169 

170 

CONTINUE 

963 

964 

170 

NSS  -  ITRIG 

964 

965 

171 

MSS  *  MSS  ♦  ITRIG 

965 

966 

172 

C 

966 

967 

173 

140 

CONTINUE 

967 

968 

174 

NSS  >  MSS 

968 

969 

175 

C 

969 

970 

176 

DO  300  KOIV  =1,1 

970 

971 

177 

LTRIG  =  NSS 

971 

972 

178 

c 

972 

973 

179 

DO  310  IS  =  1  ,  NSS 

973 

974 

180 

ISS  -  JTRIG{  IS  ) 

974 

975 

181 

XSAREA  =  XS(  3  ,  ISS  ) 

975 

976 

182 

IF{  XSAREA  ,  GE  .  RMINVG  )  THEN 

976 

977 

183 

c 

977 

978 

184 

DO  335  IR  =■  4  ,  6 

978 

979 

185 

IE  -  IABS(  JS(  IR  .  ISS  )  ) 

979 

980 

186 

1JE5  -  JE(  5  ,  IE  ) 

980 

981 

187 

IF(  IJE5  .  NE  .  0  )  THEN 

981 

982 

188 

JR2  •  HOC!  IR  -  3  ,  3  )  +  4 

982 

983 

189 

1E2  -  IA8S(  JS(  JR2  .  ISS  )  ) 

983 

984 

190 

JR3  =  H00(  IR  -  2  ,  3  )  V  4 

984 

985 

191 

IE3  -  IABS(  JS(  JR3  ,  ISS  )  ) 

985 

986 

192 

XEl  =  X£(  1  .  IE  ) 

986 

987 

193 

XE2  =  XE(  1  .  IE2  ) 

987 

988 

194 

XE3  =  XE(  1  ,  IE3  ) 

988 

989 

195 

XEDIST  =  1.  /  XEl 

989 

990 

196 

YE2  =  XE2  *  XEDIST 

990 

991 

197 

YE3  •  XE3  *  XEDIST 

991 

992 

198 

2E2  =  (  YE2  -  1.5  )  *  (  YE2  -  .1  ) 

992 

993 

199 

ZE3  -  (  YE3  -  1.5  )  '  (  TE3  -  .  ) 

993 

994 

200 

YY2  -  XEl  *  XEl  +  XE2  *  XE2  *  .35  *  XEl 

♦ 

XEZ  -  XE3 

‘  XE3 

994 

995 

201 

YY3  -  XEl  *  XEl  +  XE3  •  XE3  *  .35  •  XEl 

* 

XE3  -  XEZ 

*  XEZ 

995 

996 

202 

IF{  ZE2  .  LT  .  .0  .  AND  .  ZE3  .  LT  .  0. 

AND  . 

996 

997 

203 

YY2  .  GT  .  0.  .  AND  .  YY3  .  GT  .  0. 

) 

THEN 

997 

998 

204 

CALL  DISECT  {  IE  ,  IDONE  ,  IDUMP  ) 

998 

999 

205 

c 

999 

1000 

206 

LTRIG  -  LTRIG  *  1 

1000 

1001 

207 

JTRIG(  LTRIG  )  =  NS 

1001 

1002 

208 

KSD£LT(  NS  1  =  IDUMP 

1002 

1003 

209 

c 

1003 

1004 

210 

END  IF 

1004 

1005 

211 

END  IF 

1005 

1006 

212 

335 

CONTINUE 

1006 

1007 

213 

END  IF 

1007 

1008 

214 

310 

CONTINUE 

1008 

1009 

215 

C 

1009 

1010 

216 

NSS  "  LTRIG 

1010 

1011 

217 

lEOGE  =  0 

1011 

1012 

218 

NCOLOR  =  0 

1012 

1013 

219 

C 

1013 

1014 

220 

DO  295  IE  =  1  ,  NE 

1014 

1015 

221 

JSE{  IE  )  =  0 

1015 

1016 

222 

295 

CONTINUE 

1016 
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1017 

223 

C 

1017 

1018 

224 

DO  320  IS  -  1  ,  NSS 

1018 

1019 

225 

ISS  -  JTRIG(  IS  ) 

1019 

1020 

226 

XSAREA  -  XS(  3  .  ISS  ) 

1020 

1021 

227 

c 

1021 

1022 

228 

XXS  -  XS(  1  ,  ISS  ) 

1022 

1023 

229 

YYS  -  XS(  2  ,  ISS  ) 

1023 

1024 

230 

IZZ  -  1 

1024 

1025 

231 

IF(  IWINDW  .£0.1)  THEN 

1025 

1026 

232 

XXSS  -  -  XXS  *  XXS  t  XXS  ♦  ,75 

1026 

1027 

233 

YYSS  -  -  YYS  *  YYS  +  1. 

1027 

1028 

234 

IZZ  -  INTf  SIGN(  I.  ,  XXSS  *  YYSS  )  ) 

1028 

1029 

235 

EHO  IF 

1029 

1030 

236 

c 

1030 

1031 

237 

IF(  XSAREA  .  GT  .  RHINVG  .  AND  . 

IZZ  .  EO  . 

1  )  THEN 

1031 

1032 

238 

c 

1032 

1033 

239 

00  735  IR  *  4  ,  6 

1033 

1034 

240 

IE  -  IABS(  JS(  IR  ,  ISS  )  ) 

1034 

1035 

241 

IF(  JSE(  IE  )  .  EO  .  0  )  THEN 

1035 

1036 

242 

lEOGE  =  lEDGE  I 

1036 

1037 

243 

IRECNC{  lEDGE  )  =  IE 

1037 

1038 

244 

NCOLOR  =  NCOLOR  +  1 

1038 

1039 

245 

JEE(  NCOLOR  )  =  IE 

1039 

1040 

246 

JSE(  IE  )  =  1 

1040 

1041 

247 

END  IF 

1041 

1042 

248 

735 

CONTINUE 

1042 

1043 

249 

C 

1043 

1044 

250 

AREAXS  =  SAREA(  .SS  ) 

1044 

1045 

251 

lEl  =  IABS(  JS(  4  ,  ISS  )  ) 

1045 

1046 

252 

XEl  -  XE(  1  ,  lEl  ) 

1046 

1047 

253 

HOI  -  AREAXS  *  XEl  *  XEl 

1047 

1048 

254 

IJE5  ■  J£(  5  .  lEl  ) 

1048 

1049 

255 

IE2  -  IA8S(  JS(  5  ,  ISS  )  ) 

1049 

1050 

256 

XE2  -  XE(  1  ,  IE2  ) 

1050 

1051 

257 

HD2  •  AREAXS  *  XE2  *  XE2 

1051 

1052 

258 

IJE5  -  IJE5  +  JE(  5  .  IE2  ) 

1052 

1053 

259 

IE3  -  IABS{  JS(  6  ,  ISS  )  ) 

1053 

1054 

260 

XE3  •  X£(  1  ,  IE3  ) 

1054 

1055 

261 

H03  •  AREAXS  *  XE3  *  XE3 

1055 

1056 

262 

IJE5  -  IJE5  ♦  JE(  5  .  IE3  ) 

1056 

1057 

263 

RATIO  •  AMAXK  HOI  ,  H02  .  HD3  ) 

1057 

1058 

264 

IRATIO  =■  0 

1058 

1059 

265 

1F(  RATIO  .  L£  .  7.  .  AND  .  IJE5 

.  EQ  .  0  . 

AND  . 

1059 

1060 

266 

XSAREA 

.  GT  .  SHINVG  )  IRATIO  =  I 

1060 

1061 

267 

IF(  IJE5  .  GT  .  0  )  IRATIO  »  2 

1061 

1062 

268 

C 

1062 

1063 

269 

IF(  IRATIO  .  EO  .  2  )  THEN 

1063 

1064 

270 

IJE51  =  JE(  5  ,  lEl  ) 

1064 

1065 

271 

IJE52  -  JE(  5  .  IE2  ) 

1065 

1066 

272 

IJE53  -  JE(  5  .  IE3  ) 

1066 

1067 

273 

IF(  IJE51  .  N£  .  0  )  THEN 

1067 

1068 

274 

lEDIST  -  lEl 

1068 

1069 

275 

XEl  -  XE(  1  ,  lEl  ) 

1069 

1070 

276 

XEZ  -  XE(  1  ,  IE2  ) 

1070 

1071 

277 

XE3  *  XE(  1  ,  IE3  ) 

1071 

1072 

278 

END  IF 

1072 

1073 

279 

1F{  IJE52  .  NE  .  0  )  THEN 

1073 

1074 

280 

lEDIST  -  IE2 

1074 

1075 

281 

XEl  -  XE{  1  ,  IE2  ) 

1075 

1076 

282 

XE2  -  XE(  1  ,  lEl  ) 

1076 

1077 

283 

XE3  -  XE(  I  .  IE3  ) 

1077 

1078 

284 

END  IF 

1078 

1079 

285 

IF(  IJE53  .  NE  .  0  )  THEN 

1079 

1080 

286 

lEOIST  -  IE3 

1080 

1081 

287 

XEl  -  XE(  1  ,  1E3  ) 

1081 

1082 

288 

XEZ  -  XE(  1  ,  IE2  ) 

1082 

1083 

289 

XE3  -  XE(  1  ,  lEl  ) 

1083 

1084 

290 

END  IF 

1084 

1085 

291 

XEDIST  =  1.  /  XE(  1  .  lEOlST  ) 

1085 

1086 

292 

YE2  -  XEZ  *  XEDIST 

1086 

1087 

293 

YE3  -  XE3  •  XEDIST 

1087 

1088 

294 

ZE2  -  (  YE2  -  1.5  )  ‘  (  YEZ  -  .1 

) 

1088 

1089 

295 

ZE3  >  (  YE3  -  1.5  )  *  (  YE3  -  .1 

) 

1089 

1090 

296 

YY2  -  XEl  *  XEl  +  XEZ  *  XEZ  +  .35 

I  •  XEl  *  XEZ  -  XE3  '  XE3 

1090 
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1091 

297 

YY3  -  XEl  *  XEl  +  XE3  *  XE3  + 

1092 

298 

IF(  ZE2  .  LT  .  .0  .  AND  .  ZE3 

1093 

299 

YY2  .  GT  .  0.  .  AND  .  YY3 

1094 

300 

CALL  D I  SECT  (  lEDU  .  [DONE 

1095 

301 

C 

1096 

302 

LTRIG  -  LTRIG  +  1 

1097 

303 

JTRIG(  LTRIG  )  >  NS 

1098 

304 

KSOELT(  NS  )  -  IDUHP 

1099 

305 

C 

1100 

306 

lEDGE  =  [EDGE  *  1 

1101 

307 

IRECNCt  I  EDGE  )  =  NE 

1102 

308 

NCOLOR  •  NCOLOR  +  1 

1103 

309 

JEE(  NCOLOR  )  *  NE 

1104 

310 

JSE(  NE  )  =  1 

1105 

311 

lEDGE  =  [EDGE  *  1 

1106 

312 

IRECNCC  lEOGE  )  =  NE  -  1 

1107 

313 

NCOLOR  =  NCOLOR  +  1 

1108 

314 

JEE(  NCOLOR  )  =  NE  -  1 

1109 

315 

JSE(  NE  -  1  )  =  1 

1110 

316 

C 

1111 

317 

END  IF 

1112 

318 

END  IF 

1113 

319 

C 

1114 

320 

IF(  IRATIO  .  EQ  .  1  )  THEN 

1115 

321 

C 

1116 

322 

CALL  VERCENI  ISS  ) 

1117 

323 

KSOELT(  ISS  )  =  IDUHP 

1118 

324 

LTRIG  -  LTRIG  ^  1 

1119 

325 

JTRIG(  LTRIG  )  =  NS  -  1 

1120 

326 

KSD£LT(  NS  -  1  )  .  IDUHP 

1121 

327 

C 

1122 

328 

LTRIG  =  LTRIG  *  1 

1123 

329 

JTRIG{  LTRIG  )  =  NS 

1124 

330 

KS0ELT(  NS  )  -  IDUHP 

1125 

331 

C 

1126 

332 

lEOGE  -  lEDGE  +  1 

1127 

333 

1RECNC(  I EDGE  )  =  NE 

1128 

334 

NCOLOR  =  NCOLOR  +  1 

1129 

335 

JEE(  NCOLOR  )  =  NE 

1130 

336 

JSE(  NE  )  =  1 

1131 

337 

lEOGE  -  lEDGE  *  1 

1132 

338 

IRECNC(  lEDGE  )  =  NE  -  1 

1133 

339 

NCOLOR  =  NCOLOR  ♦  1 

1134 

340 

JEE(  NCOLOR  )  =  NE  -  1 

1135 

i’l 

JS£(  NE  -  1  )  »  1 

1136 

342 

lEDGE  =  lEDGE  *  1 

1137 

343 

1RECNC(  lEDGE  )  =  NE  -  2 

1138 

344 

NCOLOR  ■>  NCOLOR  *  1 

1139 

345 

JEE(  NCOLOR  )  =  NE  -  2 

1140 

346 

JSE(  NE  -  2  )  .  1 

1141 

347 

C 

1142 

348 

ELSE 

1143 

349 

C 

1144 

350 

IDISCT  «  0 

1145 

351 

00  545  KK  -  4  ,  6 

1146 

352 

lEE  >  JS(  KK  .  ISS  ) 

1147 

353 

lEF  -  IABS(  lEE  ) 

1148 

354 

IJE55  =■  JE(  5  .  lEF  ) 

1149 

355 

IF(  IJE55  .  EQ  .  0  )  THEN 

1150 

356 

IF(  lEE  .  GT  .  0  )  THEN 

1151 

357 

ISI  -  JE(  4  .  lEE  ) 

1152 

358 

ELSE 

1153 

359 

ISI  -  JE(  3  ,  lEF  ) 

1154 

360 

END  IF 

1155 

361 

AREAXS  -  SAREA(  ISI  ) 

1156 

362 

lEl  -  IABS(  JS{  4  ,  ISI  )  ) 

1157 

363 

XEl  =  XE(  1  ,  lEl  / 

1158 

364 

IJE55  =  JE{  5  ,  1£1  ) 

1159 

365 

HDl  -  AREAXS  *  XEl  *  XEl 

1160 

366 

E2  -  IABS(  JS{  5  ,  ISI  )  ) 

1161 

367 

XE2  -  XE(  1  ,  IE2  ) 

1162 

368 

IJE55  =  IJE55  t  JE(  5  ,  IE2  ) 

1163 

369 

HD2  -  AREAXS  *  XE2  *  XE2 

1164 

370 

IE3  -  !ABS(  JS{  6  ,  ISI  )  ) 
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1112 
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1114 

1115 

1116 

1117 

1118 

1119 

1120 
1121 
1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 
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1165 

371 

XE3  -  XE(  1  .  IE3  ) 

1265 

1166 

372 

IJE55  -  1JE55  *  JE(  5  .  IE3  ) 

1166 

1167 

373 

H03  -  AREAXS  *  XE3  *  XE3 

1167 

1168 

374 

RATIO  •  AMAXK  hoi  .  H02  .  HD3  ) 

1168 

1169 

375 

YSAREA  -  XS{  3  ,  ISI  ) 

1169 

1170 

376 

1F(  RATIO  .  LT  .  7.  .  AND  .  YSAREA  .  GT  .  SMINVG  .  AND 

2170 

1171 

377 

IJE55  .  £0  .  0  )  THEN 

1171 

1172 

378 

lOlSCT  -  1 

1172 

1173 

379 

00  435  If!  -  4  .  6 

1173 

1174 

380 

IE  -  IABS(  JS(  IR  .  ISI  )  ) 

1174 

1175 

381 

1F(  JSE(  IE  )  .  EO  .  0  )  THEN 

1175 

1176 

382 

lEOGE  '  lEDGE  »  1 

1176 

1177 

383 

IRECNCI  lEDGE  )  -  IE 

1177 

1178 

384 

NCOLOR  -  NCOEOR  ♦  1 

1178 

1179 

385 

JEE(  NCOLOR  )  •  IE 

1179 

1180 

386 

JSE{  IE  )  *  1 

1180 

1181 

387 

END  IF 

1181 

1182 

388 

435 

CONTINUE 

1182 

1183 

389 

CALL  VERCENI  ISI  ) 

1183 

1184 

390 

KSOELTI  ISI  )  -  lOUMP 

1184 

1185 

391 

LTRIG  -  LTRIG  *  1 

1185 

1186 

392 

JTRIGI  LTRIG  )  =  NS  -  1 

1186 

1187 

393 

KSOELTI  NS  -  1  )  -  lOUMP 

1187 

1188 

394 

C 

1188 

1189 

395 

LTRIG  >  LTRIG  *  1 

1189 

1190 

396 

JTRIGI  LTRIG  )  >  NS 

1190 

1191 

397 

KSOELTI  NS  )  =  IDUHP 

1191 

1192 

398 

c 

1192 

1193 

399 

lEOGE  •  lEOGE  ♦  I 

1193 

1194 

400 

IRECNCI  lEDGE  )  *  NE 

1194 

1195 

401 

NCOLOR  -  NCOLOR  *  1 

1195 

1196 

402 

JEEI  NCOLOR  )  •  NE 

1196 

1197 

403 

JS£(  NE  )  >  1 

1197 

1198 

404 

lEOGE  •  lEDGE  *  1 

1198 

1199 

405 

IRECNCI  lEOGE  )  -  NE  -  1 

1199 

1200 

406 

NCOLOR  -  NCOLOR  ♦  1 

1200 

1201 

407 

JEEI  NCOLOR  }  =  NE  -  1 

1201 

1202 

408 

JSEI  NE  -  1  )  •  1 

1202 

1203 

409 

lEDGE  •  lEDGE  ♦  1 

1203 

1204 

410 

IRECNCI  lEDGE  )  =  NE  -  2 

1204 

1205 

411 

NCOLOR  -  NCOLOR  +  1 

1205 

1206 

412 

JEEI  NCOLOR  )  •  NE  -  2 

1206 

1207 

413 

JSEI  NE  -  2  )  -  1 

1207 

1208 

414 

END  IF 

1208 

1209 

415 

ENO  IF 

1209 

1210 

416 

545 

CONTINUE 

1210 

1211 

417 

C 

1211 

1212 

418 

IFI  lOISCT  .  EQ  .  0  )  THEN 

1212 

1213 

419 

lEl  -  IA8SI  JSI  4  ,  ISS  )  ) 

1213 

1214 

420 

XEl  -  XEI  1  ,  lEl  ) 

1214 

1215 

421 

IE2  -  lABSI  JSI  5  .  ISS  )  ) 

1215 

1216 

422 

XE2  -  XEI  1  .  IE2  ) 

1216 

1217 

423 

IE3  -  lABSI  JSI  6  ,  ISS  )  ) 

1217 

1218 

424 

XE3  •  XEI  1  ,  IE3  ) 

1218 

1219 

425 

lEDlST  -  lEl 

1219 

1220 

426 

XEOIST  »  XEI 

1220 

1221 

427 

IF(  XE2  .  GT  .  XEDIST  )  THEN 

1221 

1222 

428 

XEOIST  -  XE2 

1222 

1223 

429 

lEOIST  -  IE2 

1223 

1224 

430 

ENO  IF 

1224 

1225 

431 

IFI  XE3  .  GT  .  XEOIST  )  THEN 

1225 

1226 

432 

XEDIST  »  XE3 

1226 

1227 

433 

lEDIST  -  IE3 

1227 

1228 

434 

END  IF 

1228 

1229 

435 

ISL  -  JEI  3  ,  lEOIST  ) 

1229 

1230 

436 

ISR  -  JEI  4  ,  lEDlST  ) 

1230 

1231 

437 

XSISL  »  XSI  3  ,  ISL  ) 

1231 

1232 

438 

XSISR  -  XS(  3  ,  ISR  ) 

1232 

1233 

439 

IJE5  -  JEI  5  .  lEDIST  ) 

1233 

1234 

440 

IFI  XSISL  ,  GT  .  RHINVG  .  AND  .  XSISR  .  GT  .  RHINVG  . 

AND  .  1234 

1235 

441 

IJE5  .  EQ  .  0  .  AHO  .  IRATIO  .  NE  .  2  )  THEN 

1235 

1236 

442 

IFI  ISS  .  NE  .  ISL  )  THEN 

1236 

1237 

443 

DO  345  IR  -  4  ,  6 

1237 

1238 

444 

IE  -  lABSI  JSI  IR  ,  ISL  )  ) 

1238 
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1239 

445 

IF{  JSE(  IE  )  .  EO  .  0  )  THEN 

1240 

446 

lEDGE  -  lEOGE  +  1 

1241 

447 

IRECNC{  lEOGE  )  -  IE 

1242 

448 

NCOLOR  .  NCOLOR  *  1 

1243 

449 

J££(  NCCLQK  )  •  IE 

1244 

450 

JSE(  IE  )  =  1 

1245 

451 

END  IF 

1246 

452 

345 

CONTINUE 

1247 

453 

END  IF 

1248 

454 

C 

1249 

455 

IF(  ISS  .  HE  .  ISR  )  THEN 

1250 

456 

00  355  IR  .  4  ,  6 

1251 

457 

IE  ■  IABS(  JS(  IR  .  ISR  )  ) 

1252 

458 

IF(  JSE(  IE  )  .  EQ  .  0  )  then 

1253 

459 

lEDGE  •  lEDGE  +  1 

1254 

460 

IRECNCI  lEDGE  )  >  IE 

1255 

461 

NCOLOR  -  NCOLOR  +  i 

1256 

462 

JEE(  NCOLOR  )  -  IE 

1257 

463 

JSE(  IE  )  -  1 

1258 

464 

END  IF 

1259 

465 

355 

CONTINUE 

1260 

466 

END  IF 

1261 

467 

C 

1262 

468 

IDONE  =  0 

1263 

469 

CALL  DISECT  (  lEDIST  .  IDONE  . 

1264 

470 

IF(  IDONE  .  EQ  .  1  )  THEN 

1265 

471 

C 

1266 

472 

LTRIG  >  LTRIG  »  1 

1267 

473 

JTRIG(  LTRIG  )  =  NS 

1268 

474 

KSO£LT(  NS  )  =  IDUMP 

1269 

475 

LTRIG  >  LTRIG  +  1 

1270 

476 

JTRIG(  LTRIG  )  -  NS  -  1 

1271 

477 

KSOELT(  NS  -  1  )  -  IDUMP 

1272 

478 

C 

1273 

479 

lEOGE  •  lEOGE  ♦  1 

1274 

480 

IRECNC(  lEOGE  )  •  NE 

1275 

481 

NCOLOR  -  NCOLOR  +  1 

1276 

482 

JEE(  NCOLOR  )  -  NE 

1277 

483 

JSE(  NE  )  •  1 

1278 

484 

lEDGE  =  lEOCE  ♦  1 

1279 

485 

IRECNC(  lEOGE  )  -  NE  -  1 

1280 

486 

NCOLOR  •  NCOLOR  +  1 

1281 

487 

JEE(  NCOLOR  )  =  NE  -  I 

1282 

488 

JSE(  NE  -  1  )  -  1 

1283 

489 

lEDGE  =  lEDGE  +  1 

1284 

490 

IR£CNC(  lEDGE  )  =  NE  -  2 

1285 

491 

NCOLOR  -  NCOLOR  +  1 

1286 

492 

JEE(  NCOLOR  )  .  NE  -  2 

1287 

493 

JSE(  NE  -  2  )  .  1 

1288 

494 

END  IF 

1289 

495 

C 

1290 

496 

END  IF 

1291 

497 

END  IF 

1292 

498 

END  IF 

1293 

499 

END  IF 

1294 

500 

C 

1295 

501 

320 

CONTINUE 

1296 

502 

r 

1297 

503 

DO  340  lEM  -  1  ,  NCOLO" 

1298 

504 

IE  -  JEE{  lEM  ) 

1299 

505 

C 

1300 

506 

ISL  -  JE(  3  ,  IE  ) 

1301 

507 

YSAREA  -  XS(  3  ,  ISL  ) 

1302 

508 

IJE5  -  JE(  5  ,  IE  ) 

1303 

509 

IF(  YSAREA  .  GE  .  RMINVG  .  AND  . 

1304 

510 

lEl  -  IABS(  JS(  4  ,  ISL  )  ) 

1305 

511 

IE2  -  IABS(  JS(  5  .  ISL  )  ) 

1306 

512 

IE3  ”  IABS(  JS(  6  ,  ISL  )  ) 

1307 

513 

IJE51  '  J£(  5  ,  lEl  ) 

1308 

514 

IJE52  =  JE(  5  .  IE2  ) 

1309 

515 

IJE53  ’  JE(  5  ,  IE3  ) 

1310 

516 

IF(  IJE51  .  NE  .  0  )  THEN 

1311 

517 

lEDIST  .  lEl 

1312 

518 

XEl  '  XE(  1  ,  lEl  ) 

IDUMP  ) 
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THEN 
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519 

XE2  -  XE(  1  .  IE2  ) 

1313 

520 

XE3  -  XE(  1  .  IE3  ) 

1314 

521 

ENO  IF 

1315 

522 

IF(  IJE52  .  NE  .  0  )  THEN 

1316 

523 

lEDIST  -  IE2 

1317 

524 

XEl  ■=  XE(  1  ,  IE2  ) 

1318 

525 

XE2  -  XE(  1  .  lEl  ) 

1319 

526 

XE3  -  XE(  1  .  IE3  ) 

1320 

527 

ENO  IF 

1321 

528 

IF(  1JE53  .  NE  .  0  )  THEN 

1322 

529 

lEDiST  =  IE3 

1323 

530 

XEl  =  XE(  1  ,  IE3  ) 

1324 

531 

XE2  •  XE(  1  ,  1E2  ) 

1325 

532 

XE3  -  XE{  1  ,  lEl  ) 

1326 

533 

ENO  IF 

1327 

534 

XEOIST  =  1.  /  XE(  1  .  lEOIST  ) 

1328 

535 

YE2  -  XE2  *  XEOIST 

1329 

536 

YE3  >  XE3  *  XEOIST 

1330 

537 

ZE2  .  (  YE2  -  1.5  )  •  (  YE2  -  .1  ) 

1331 

538 

ZE3  .  (  YE3  -  1.5  )  *  (  YE3  -  .1  ) 

1332 

539 

YY2  -  XEl  *  XEl  ♦  XE2  *  XE2  ♦  .35  •  XEl 

»  XE2  - 

XE3  • 

XE3 

1333 

540 

YY3  -  XEl  *  XEl  >  XE3  *  XE3  +  .35  *  XEl 

•  XE3  - 

XE2  • 

XE2 

1334 

541 

IF(  ZE2  .  LT  .  .0  .  AND  .  ZE3  .  LT  .  0. 

.  ANO  . 

1335 

542 

YY2  .  GT  .  0.  .  ANO  .  YY3  .  GT  .  0. 

)  THEN 

1336 

543 

CALL  DISECT  (  lEOiST  ,  lOONE  .  lOUMP  ) 

1337 

544 

C 

1338 

545 

LTRIG  =  LTRIG  t  l 

1339 

546 

JTRIG(  LTRIG  )  =  NS 

1340 

547 

KSOELK  NS  )  -  I  DUMP 

1341 

548 

c 

1342 

549 

lEDGE  -  lEDGE  ♦  1 

1343 

550 

IRECNC(  I  EDGE  )  -  NE 

1344 

551 

NCOLOR  >  NCOLOR  ♦  1 

1345 

552 

JEE(  NCOLOR  )  >  NE 

1346 

553 

JSE(  NE  )  »  1 

1347 

554 

lEOGE  •  lEOGE  >  I 

1348 

555 

IRECNC(  lEOGE  )  •  NE  -  1 

1349 

556 

NCOLOR  -  NCOLOR  ♦  1 

1350 

557 

JEE(  NCOLOR  )  *  NE  -  1 

1351 

558 

JSE(  NE  -  1  )  .  1 

1352 

559 

c 

1353 

560 

ELSE 

1354 

661 

c 

1355 

562 

lEDIST  =  lEl 

1356 

563 

XEOIST  "  XEl 

1357 

564 

IF(  XE2  .  GT  .  XEOIST  )  THEN 

1358 

565 

XEOIST  =  XE2 

1359 

566 

lEDIST  =  IE2 

1360 

567 

END  IF 

1361 

568 

IF(  XE3  .  GT  .  XEOIST  )  THEN 

1362 

569 

XEOIST  =  XE3 

1363 

570 

lEDIST  =  IE3 

1364 

571 

END  IF 

1365 

572 

ISL  -  JE(  3  ,  lEDIST  ) 

1366 

573 

ISR  -  JE(  4  ,  lEOIST  ) 

1367 

574 

XSISL  =  XS(  3  ,  ISL  ) 

1368 

575 

XSISR  -  XS(  3  ,  ISR  ) 

1369 

576 

IJE5  -  J£(  5  ,  lEOIST  ) 

1370 

577 

IF{  XSISL  .  GT  ,  RMINVG  .  AND  .  XSISR  . 

GT  .  RMINVG  . 

AND  . 

1371 

578 

IJE5  .  EO 

.  0  ) 

THEN 

1372 

579 

DO  645  IR  -  4  ,  6 

1373 

580 

IE  -  IABS(  JS(  IR  ,  ISL  )  ) 

1374 

581 

IF(  JSE(  IE  )  .  EQ  .  0  )  THEN 

1375 

582 

lEDGE  •>  I  EDGE  +  1 

1376 

583 

IRECNC(  lEDGE  )  -  IE 

1377 

584 

NCOLOR  -  NCOLOR  1 

1378 

585 

JEE(  NCOLOR  )  =  IE 

1379 

586 

JSE(  IE  )  =  1 

1380 

587 

ENO  IF 

1381 

588 

645 

CONTINUE 

1382 

589 

DO  655  IR  -  4  .  6 

1383 

590 

IE  -  IA8S(  JS(  IR  ,  ISR  )  ) 

1384 

591 

IF(  JSE(  IE  )  .  EQ  .  0  )  THEN 

1385 

592 

I EDGE  =  I  EDGE  +  1 

1386 
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593 

IRECNC(  lEDGE  )  =  IE 

1388 

594 

MCOLOR  -  NCOLOR  +  1 

1389 

595 

JEE(  NCOLOR  )  =  IE 

1390 

596 

JS£(  IE  )  -  1 

1391 

597 

END  IF 

1392 

598 

655 

CONTINUE 

1393 

599 

C 

1394 

600 

lOONE  -  0 

1395 

601 

CALL  OISECT  (  lEDlST  .  IDONE  . 

1396 

602 

IF(  IDONE  .  EQ  .  1  )  THEN 

1397 

603 

C 

1398 

604 

LTRIG  -  LTRIG  *  1 

1399 

605 

JTRIG(  LTRIG  )  =  NS 

1400 

606 

KSOELTI  NS  )  -  lOUMP 

1401 

607 

LTRIG  -  LTRIG  +  1 

1402 

608 

JTRIGt  LTRIG  )  =  NS  -  1 

1403 

609 

KSDELTI  NS  -  I  )  -  lOUMP 

1404 

610 

C 

1405 

611 

lEDGE  -  lEDGE  *  I 

1406 

612 

IRECNCI  lEDGE  )  =  HE 

1407 

613 

NCOLOR  -  NCOLOR  +  1 

1408 

614 

JEE(  NCOLOR  )  =  NE 

1409 

615 

JSE(  NE  )  =  I 

1410 

616 

lEDCE  =■  I  EDGE  +  I 

1411 

617 

IRECNCC  I  EDGE  )  -  NE  -  1 

1412 

618 

NCOLOR  -  NCOLOR  +  I 

1413 

619 

JEE(  NCOLOR  )  *  NE  -  1 

1414 

620 

JSE(  NE  -  1  )  -  I 

1415 

621 

lEDGE  -  lEDGE  *  1 

1416 

622 

IRECNC(  lEDGE  )  =  NE  -  2 

1417 

623 

NCOLOR  -  NCOLOR  +  1 

1418 

624 

JEE(  NCOLOR  )  »  NE  -  2 

1419 

625 

JSE(  NE  •  2  )  -  I 

1420 

626 

END  IF 

1421 

627 

C 

1422 

628 

END  IF 

1423 

629 

EM)  IF 

1424 

630 

END  IF 

1425 

631 

340 

CONTINUE 

1426 

632 

U 

1427 

633 

NSS  -  LTRIG 

1428 

634 

C 

1429 

635 

DO  370  lEM  -  1  ,  NCOLOR 

1430 

636 

IE  •  JEE(  lEH  ) 

1431 

637 

CALL  RECNC(  IE  .  IDONE  ,  ITL  . 

1432 

638 

CALL  RECNCI  JA  .  JADOHE  .  ITL 

1433 

639 

CALL  RECNC(  JB  ,  JBDOHE  ,  ITL 

1434 

640 

CALL  RECNCI  JC  ,  JCDONE  ,  ITL 

1435 

641 

CALL  RECNC(  JO  .  JDDOHE  ,  ITL 

1436 

642 

370 

CONTINUE 

1437 

643 

C 

1438 

644 

300 

CONTINUE 

1439 

645 

C 

1440 

646 

NVECE  =  NE  /  HBL 

1441 

647 

NREHE  -  NE  -  NVECE  *  HBL 

1442 

648 

NVECS  =  NS  /  HBL 

1443 

649 

NREMS  =  NS  -  NVECS  *  HBL 

1444 

650 

NVECV  -  NV  /  HBL 

1445 

651 

NREMV  -  NV  -  NVECV  *  HBL 

1446 

652 

C 

1447 

653 

DO  400  INE  -  I  .  NVECE 

1448 

654 

NOFVEE(  INE  )  -  HBL 

1449 

655 

400 

CONTINUE 

1450 

656 

NVEEE  -  NVECE 

1451 

657 

IF(  NREHE  .  GT  .  0  )  THEN 

1452 

658 

NVEEE  »  NVECE  +  1 

1453 

659 

NOFVEE(  NVEEE  )  =  NREHE 

1454 

660 

END  IF 

1455 

661 

c 

1456 

662 

DO  410  INS  -  1  .  NVECS 

1457 

663 

N0FVES(  INS  )  =■  HBL 

1458 

664 

410 

CONTINUE 

1459 

665 

NVEES  «  NVECS 

1460 

666 

IF(  NREMS  .  GT  .  0  )  THEN 
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1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

lOUHP  )  1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 


ITR  ,  JA  ,  JB  ,  JC  .  JO  )  1431 

ITR  ,  JAA  ,  JAB  ,  JAC  .  JAO  )  1432 

ITR  ,  JBA  ,  JBB  ,  JBC  .  JBD  )  1433 

ITR  ,  JCA  .  JCB  ,  JCC  .  JCD  )  1434 

ITR  .  JDA  ,  JOB  ,  JDC  ,  JDD  )  1435 

1436 

1437 
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1440 
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1461 

667 

NVEES  -  NVECS  »  1 

1462 

668 

N0FVES{  NVEES  )  -  NREMS 

1463 

669 

END  IF 

1464 

670 

C 

1465 

671 

00  420  INV  -  1  .  NVECV 

1466 

672 

NOFVEVf  INV  )  •  «8E 

1467 

673 

420 

CONTINUE 

1468 

674 

NVEEV  >  NVECV 

1469 

675 

IF{  NREHV  .  GT  .  0  )  THEN 

1470 

676 

NVEEV  «  NVECV  +  1 

1471 

677 

N0FVEV(  NVEEV  )  -  NREHV 

1472 

678 

END  IF 

1473 

679 

C 

1474 

680 

PRINT*, NV.NE. NS 

1475 

681 

c 

1476 

682 

c  — 

EXIT  POINT  FROM  SUBROUTINE . . 

1477 

683 

c 

1478 

684 

c 

1479 

685 

RETURN 

1480 

686 

c 

1481 

687 

c 

1482 

668 

c 

— 

1483 

689 

END 
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1484 

1 

SUBROUTINE  DYYPTNf  OAREA  ,  NOFOIV  ,  IDUMP  ,  LTRIG  ) 

1485 

2 

c 

r 

1487 

4 

c 

1488 

5 

c 

DYYPTN  ADAPT  THE  GRID  DYNAMICALLY,  ADD  VERTECES 

1489 

6 

c 

SUB  DIVIDE  THE  TRIANGLE  THAT  WERE  FLAGED  IN  DYNPTN 

1490 

7 

c 

£ 

14^1 

o 

1492 

9 

c 

1493 

10 

IMPLICIT  REAL  (A-H,0-Z) 

1494 

11 

c 

1495 

12 

include  'cmshOO.h' 

1496 

13 

include  'chydOO.h' 

1497 

14 

include  'cintOO.h' 

1498 

15 

include  ’cphslO.h’ 

1499 

16 

include  ‘cphs20.h’ 

1500 

17 

c 

1501 

18 

INTEGER  JTRIG(MEH) ,KTRIG(HEM) , IRECHC(HEM) 

1502 

19 

INTEGER  JSE(H£M),J£E(MEH).I0FDVS{10).N0FDVS(10) 

1503 

20 

c 

1504 

21 

EQUIVALENCE  (UL.JTRIG) 

1505 

22 

EQUIVALENCE  (VR.KTRIG) 

1506 

23 

EQUIVALENCE  (VL,IRECNC) 

1507 

24 

EQUIVALENCE  (PR,JSE) 

1508 

25 

EQUIVALENCE  (PL.JEE) 

1509 

26 

c 

1510 

27 

SMINVG  -  SAREVG  *  DAREA 

1511 

28 

AHINVG  -  SAREVG  »  THIRD 

1512 

29 

RHINVG  -  .7  *  SMINVG 

1513 

30 

DO  115  IS  -  1  .  NS 

1514 

31 

J£E(  IS  )  -  0 

1515 

32 

115 

CONTINUE 

1516 

33 

MSS  -  0 

1517 

34 

NSS  -  LTRIG 

1518 

35 

c 

1519 

36 

DO  140  KOIV  «  I  ,  NOFDIV 

1520 

37 

ITRIG  -  0 

1521 

38 

DO  150  KS  »  1  .  NSS 

1522 

39 

c 

1523 

40 

ISS  -  JTRIG(  KS  ) 

1524 

41 

IF(  ISS  .  N£  .  0  )  THEN 

1525 

42 

c 

1526 

43 

DO  160  KR  -  1  ,  3 

1527 

44 

IVV  -  JS(  KR  ,  ISS  ) 

1528 

45 

c 

1529 

46 

IE  -  JV(  2  ,  IVV  ) 

1530 

47 

IF(  IE  .  GT  .  0  )  THEN 

1531 

48 

c 

1461 

1462 

1463 

1464 

1465 

1466  # 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474  • 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482  • 

1483 


1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 
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1532 

49 

IVl  -  JE{  1  , 

IE  ) 

1533 

50 

IF(  IVl  .  EQ 

.  IVV  )  THEN 

1534 

51 

ISI  -  JE(  3  , 

IE  ) 

1535 

52 

ELSE 

1536 

53 

ISI  -  JE(  4  . 

IE  ) 

1537 

54 

END  IF 

1538 

55 

IS  .  ISI 

1539 

56 

C 

1540 

57 

750 

CONTINUE 

1541 

53 

C 

1542 

59 

JES  -  JEE(  IS 

) 

1543 

60 

XAS  -  XS(  3  . 

IS  ) 

1544 

61 

IF(  JES  .  £0 

.  0  .  AND  .  XAS 

1545 

62 

ITRIG  ■=  ITRIG 

+  1 

1546 

63 

KTRIG(  ITRIG 

)  -  IS 

1547 

64 

KSDELT(  IS  ) 

=  I  DUMP 

1548 

65 

J£E(  IS  )  •  1 

1549 

66 

END  IF 

1550 

67 

c 

1551 

68 

00  760  IR  >  1 

,  3 

1552 

69 

JR  •  H00{  IR 

,3)^1 

1553 

70 

lEA  -  IA8S(  JS(  JR  ♦  3  .  IS  ) 

1554 

71 

IF(  lEA  .  EQ 

.  IE  )  THEN 

1555 

72 

JJR  -  M00(  JR 

+  1  .  3  I  ♦  4 

1556 

73 

lER  -  IABS(  JS(  JJR  .  IS  )  ) 

1557 

74 

c 

1558 

75 

IVl  »  JE{  1  , 

lER  ) 

1559 

76 

IF(  IVl  .  EQ  , 

.  IVV  )  THEN 

1560 

77 

ISR  -  JE(  3  , 

lER  ) 

1561 

78 

ELSE 

1562 

79 

ISR  -  JE(  4  , 

lER  ) 

1563 

80 

END  IF 

1564 

81 

END  IF 

1565 

82 

c 

1566 

83 

760 

CONTINUE 

1567 

84 

C 

1568 

85 

IF(  ISR  .  NE  . 

.  ISI  )  THEN 

1569 

86 

IS  •  ISR 

1570 

87 

IE  -  lER 

1571 

88 

GO  TO  750 

1572 

89 

END  IF 

1573 

90 

C 

1574 

91 

ELSE 

1575 

92 

C 

1576 

93 

IE  .  -  IE 

1577 

94 

IVl  -  JE(  1  , 

IE  ) 

1578 

95 

IF(  IVl  .  EQ  . 

IVV  )  THEN 

1579 

96 

ISI  -  JE(  3  , 

IE  ) 

1580 

97 

ELSE 

1581 

98 

ISI  =  JE(  4  , 

IE  ) 

1582 

99 

END  IF 

1583 

100 

IS  -  ISI 

1584 

101 

ISI  -  0 

1585 

102 

HE  «  IE 

1586 

103 

C 

1587 

104 

650 

CONTINUE 

1588 

105 

C 

1589 

106 

JES  =  JEE(  IS 

) 

1590 

107 

XAS  -  XS(  3  . 

IS  ) 

1591 

108 

IF(  JES  .  EQ  . 

0  .  AND  .  XAS  . 

1592 

109 

ITRIG  .  ITRIG 

+  1 

1593 

110 

KTRIG(  ITRIG  ) 

•  IS 

1594 

111 

KSOELT(  IS  )  = 

I  DUMP 

1595 

112 

JEE{  IS  )  -  1 

1596 

113 

END  IF 

1597 

114 

C 

1598 

115 

00  660  IR  =  1 

.  3 

1599 

116 

JR  -  MODI  IR  , 

3  )  »  1 

1600 

117 

lEA  -  IABS(  JS(  JR  +  3  .  IS  ) 

1601 

118 

IF(  lEA  ,  EQ  . 

IE  )  THEN 

1602 

119 

JJR  -  M00(  JR 

M  .  3  )  t  4 

1603 

120 

lER  -  IA8S(  JS(  JJR  .  IS  )  ) 

1604 

121 

C 

1605 

122 

IVl  .  JE(  1  , 

lER  ) 

RHINVG  )  THEN 
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1606 

123 

IF(  IVl  .  EO  .  IVV  )  THEN 

1606 

1607 

124 

ISR  -  JE(  3  .  lER  ) 

1607 

1608 

125 

ELSE 

1608 

1609 

126 

ISR  -  JE(  4  .  lER  ) 

1609 

1610 

127 

END  IF 

1610 

1611 

128 

END  IF 

1611 

1612 

129 

C 

1612 

1613 

130 

660 

CONTINUE 

1613 

1614 

131 

C 

1614 

1615 

132 

IF(  ISR  .  NE  .  ISI  )  THEN 

1615 

1616 

133 

IS  «  ISR 

1616 

1617 

134 

IE  -  lER 

1617 

1618 

135 

GO  TO  650 

1618 

1619 

136 

END  IF 

1619 

1620 

137 

C 

1620 

1621 

138 

END  IF 

1621 

1622 

139 

160 

CONTINUE 

1622 

1623 

140 

C 

1623 

1624 

141 

END  IF 

1624 

1625 

142 

150 

CONTINUE 

1625 

1626 

143 

C 

1626 

1627 

144 

DO  170  IS  *  1  ,  ITRIG 

1627 

1628 

145 

JTRIG(  IS  *855)=  KTRIG{  IS  ) 

1628 

1629 

146 

170 

CONTINUE 

1629 

1630 

147 

NSS  -  ITRIG 

1630 

1631 

148 

MSS  =  MSS  >  ITRIG 

1631 

1632 

149 

C 

1632 

1633 

150 

140 

CONTINUE 

1633 

1634 

151 

NSS  -  MSS 

1634 

1635 

152 

C 

1635 

1636 

153 

00  300  KDIV  -1.1 

1636 

1637 

154 

LTRIG  =  NSS 

1637 

1638 

155 

C 

1638 

1639 

156 

DO  310  IS  -  1  .  NSS 

1639 

1640 

157 

ISS  -  JTRIG(  IS  ) 

1640 

1641 

158 

XSAREA  -  XS(  3  .  ISS  ) 

1641 

1642 

159 

IF{  XSAREA  .  GE  .  RMINVG  )  THEN 

1642 

1643 

160 

C 

1643 

1644 

161 

DO  335  IR  •  4  .  6 

IE  -  IABS(  JS(  IR  ,  ISS  )  ) 

IJE5  -  JE{  5  .  IE  ) 

1644 

1645 

162 

1645 

1646 

163 

1646 

1647 

164 

IF(  IJE5  .  NE  .  0  )  THEN 

1647 

1648 

165 

JR2  -  M00(  IR  -  3  ,  3  )  *  4 

1648 

1649 

166 

IE2  ■  IABS(  JS(  JR2  .  ISS  )  ) 

1649 

1650 

167 

JR3  -  MOD(  IR  -  2  ,  3  )  +  4 

1650 

1651 

168 

IE3  -  1A8S(  JS(  JR3  .  ISS  )  ) 

1651 

1652 

169 

XEl  -  XE(  1  ,  IE  ) 

1652 

1653 

170 

XE2  -  XE(  1  ,  IE2  ) 

1653 

1654 

171 

XE3  -  XE(  1  ,  IE3  ) 

1654 

1655 

172 

XEDIST  -  1.  /  XEl 

1655 

1656 

173 

YE2  -  XE2  *  XEDIST 

1656 

1657 

174 

YE3  -  XE3  •  XEDIST 

1657 

1658 

175 

ZE2  -  (  YE2  -  1,5  )  *  (  YE2  -  .1  ) 

1658 

1659 

176 

ZE3  -  (  YE3  -  1.5  )  *  (  YE3  -  .1  ) 

1659 

1660 

177 

YY2  -  XEl  *  XEl  ^  XE2  *  XE2  +  .35  •  XEl 

•  XE2  -  XE3  * 

XE3 

1660 

1661 

178 

YY3  -  XEl  •  XEl  +  XE3  *  XE3  +  .35  *  XEl 

*  XE3  -  XEZ  * 

XEZ 

1661 

1662 

179 

IF(  ZE2  .  LT  .  .0  .  AND  .  ZE3  .  LT  .  0. 

.  AND  • 

1662 

1663 

180 

YY2  .  GT  .  0.  .  AND  .  YY3  .  GT  .  0. 

)  THEN 

1663 

1664 

181 

CALL  DISECT  (  IE  ,  IDONE  .  IDUMP  ) 

1664 

1665 

182 

C 

1665 

1666 

183 

LTRIG  »  LTRIG  +  1 

1666 

1667 

184 

JTRIG{  LTRIG  )  -  NS 

1667 

1668 

185 

KSOELT(  NS  )  -  IDUMP 

1668 

1669 

186 

C 

1669 

1670 

187 

END  IF 

1670 

1671 

188 

END  IF 

1671 

1672 

189 

335 

CONTINUE 

1672 

1673 

190 

END  IF 

1673 

1674 

191 

310 

CONTINUE 

1674 

1675 

192 

C 

1675 

1676 

193 

NSS  -  LTRIG 

1676 

1677 

194 

lEDGE  -  0 

1677 

1678 

195 

NCOLOR  -  0 

1678 

1679 

196 

c 

1679 
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1680 

197 

00  295  IE  -  1  .  HE 

1681 

198 

JSE(  IE  )  =  0 

1682 

199 

295 

CONTINUE 

1683 

200 

C 

1684 

201 

DO  320  IS  =■  1  ,  NSS 

1685 

202 

ISS  =  JTRIG{  IS  ) 

1686 

203 

XSAREA  -  XS(  3  .  ISS  ) 

1687 

204 

C 

1688 

205 

IF(  XSAREA  .  GT  .  RMINVG  )  THEN 

1689 

206 

C 

1690 

207 

DO  735  IR  -  4  .  6 

1691 

208 

IE  -  IABS(  JS(  IR  .  ISS  )  ) 

1692 

209 

IF(  JSE(  IE  )  .  EQ  .  0  )  THEN 

1693 

210 

lEDGE  >  lEOGE  ^  1 

1694 

211 

IRECNC(  lEDGE  )  =  IE 

1695 

212 

NCOLOR  -  NCOLOR  +  1 

1696 

213 

JEE(  NCOLOR  )  -  IE 

1697 

214 

JSE(  IE  )  -  1 

1698 

215 

END  IF 

1699 

216 

735 

CONTINUE 

1700 

217 

C 

1701 

218 

AREAXS  =  SAREA(  ISS  ) 

1702 

219 

lEl  =  1A8S(  JS(  4  ,  ISS  )  ) 

1703 

220 

XEI  -  XE{  1  .  lEl  ) 

1704 

221 

HDl  -  AREAXS  *  XEI  *  XEI 

1705 

222 

IJE5  -  JE{  5  ,  lEl  ) 

1706 

223 

IE2  -  IABS(  JS(  5  .  ISS  )  ) 

1707 

224 

XE2  =  X£(  1  ,  1E2  ) 

1708 

225 

H02  «  AREAXS  •  XE2  *  XE2 

1709 

226 

IJE5  -  IJE5  +  JE(  5  .  IE2  ) 

1710 

227 

IE3  -  IABS(  JS(  6  .  ISS  }  ) 

1711 

228 

XE3  -  XE(  1  .  IE3  ) 

1712 

229 

HD3  -  AREAXS  *  XE3  *  XE3 

1713 

230 

IJE5  -  1JE5  *  J£(  5  ,  IE3  ) 

1714 

231 

RATIO  -  AMAXK  HOI  .  HD2  .  HD3  ) 

1715 

232 

IRATIO  -  0 

1716 

233 

IF(  RATIO  .  LE  .  7.  .  AND  .  IJE5 

1717 

234 

XSAREA 

1718 

235 

IF(  IJE5  .  GT  .  0  )  IRATIO  -  2 

1719 

236 

C 

1720 

237 

IF(  IRATIO  .  EQ  .  2  )  THEN 

1721 

238 

IJE51  .  JE(  5  ,  lEl  ) 

1722 

239 

IJE52  *  JE(  5  ,  1E2  ) 

1723 

240 

IJE53  >  JE{  5  ,  IE3  ) 

1724 

241 

IF(  IJE51  .  HE  .  0  )  THEN 

1725 

242 

lEDIST  .  lEl 

1726 

243 

XEI  -  XE(  1  .  lEl  ) 

1727 

244 

XE2  -  XE(  1  .  IE2  ) 

1728 

245 

XE3  =  XE(  1  .  IE3  ) 

1729 

246 

END  IF 

1730 

247 

IF(  IJE52  .  HE  .  0  )  THEN 

1731 

248 

lEDIST  .  lEZ 

1732 

249 

XEI  -  X£(  1  .  IE2  ) 

1733 

250 

XE2  -  XE(  1  ,  lEl  ) 

1734 

251 

XE3  =  X£(  1  .  IE3  ) 

1735 

252 

END  IF 

1736 

253 

IF(  IJE53  .  NE  .  0  )  THEN 

1737 

254 

lEDIST  =  IE3 

1738 

255 

XEI  •  XE(  1  .  IE3  ) 

1739 

256 

XE2  -  XE(  1  .  IE2  ) 

1740 

257 

XE3  -  XE{  1  ,  lEl  ) 

1741 

258 

END  IF 

1742 

259 

XEDIST  >  1.  /  XE(  1  .  lEDIST  ) 

1743 

260 

YE2  -  XE2  *  XEDIST 

1744 

261 

YE3  -  XE3  *  XEDIST 
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1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 


262 

263 

264 

265 

266 

267 

268 

269 

270 


£Q  .  0  .  AND  . 

GT  .  SHINVG  )  IRATIO 


ZE2 


YE2  -  1.5  ) 


ZE3  -  (  YE3  -  1.5  ) 


YYZ  -  XEI  *  XEl  +  XE2 
YY3  -  XEI  *  XEI  +  XE3  * 
1F(  ZE2  .  LT  .  .0  .  AND 
YYZ  .  GT  ,  0.  .  AND 
CALL  DISECT  (  lEDIST 

LTRIG  LTRIG  +  1 


(  YE2  - 
{  YE3  - 

*  XE2  + 

*  XE3  + 
ZE3 
YY3 

iOONE  , 


•1  ) 

.1  ) 

.35 
.35 
.  LT 
.  GT 
IDUHP  ) 


XEI  *  XE2  -  XE3  •  XE3 
XEI  *  XE3  -  XE2  •  XE2 
0.  .  AND  . 

0.  )  THEN 
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1711 

1712 
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1719 
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1721 

1722 

1723 
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1726 

1727 

1728 

1729 

1730 

1731 
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1733 

1734 

1735 

1736 

1737 
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1754 

271 

JTRIG(  LTRIG  )  -  NS 

1754 

1755 

272 

KSDELT(  NS  )  =  lOUHP 

1755 

1756 

273 

C 

1756 

1757 

274 

lEDGE  •  I EDGE  +  1 

1757 

1758 

275 

IRECNCI  lEDGE  )  -  HE 

1758 

1759 

276 

NCOLOR  •  NCOLOR  *  l 

1759 

1760 

277 

JEE{  NCOLOR  )  >  NE 

1760 

1761 

278 

JSE(  NE  )  =  1 

1761 

1762 

279 

lEDGE  -  lEDGE  +  I 

1762 

1763 

280 

IRECNC(  lEOGE  )  -  NE  -  1 

1763 

1764 

281 

NCOLOR  >  NCOLOR  +  1 

1764 

1765 

282 

JEE(  NCOLOR  )  =  NE  -  1 

1765 

1766 

283 

JSE(  HE  -  1  )  -  1 

1766 

1767 

234 

c 

1767 

1768 

285 

END  IF 

1768 

1769 

286 

END  IF 

1769 

1770 

287 

c 

1770 

1771 

288 

IF(  IRATIO  .  EQ  .  1  )  THEN 

1771 

1772 

289 

c 

1772 

1773 

290 

CALL  V£RCEH(  ISS  ) 

1773 

1774 

291 

KSOELTC  ISS  )  -  IDUHP 

1774 

1775 

292 

LTRIG  -  LTRIG  ♦  1 

1775 

1776 

293 

JTRIG(  LTRIG  )  =  NS  -  I 

1776 

1777 

294 

KSOELT(  NS  -  1  )  =  IDUHP 

1777 

1778 

295 

c 

1778 

1779 

296 

LTRIG  -  LTRIG  +  1 

1779 

1780 

297 

JTRIG(  LTRIG  )  =  NS 

1780 

1781 

298 

KSDELT(  NS  )  -  lOUMP 

1781 

1782 

299 

c 

1782 

1783 

300 

I EDGE  =  I EDGE  *  1 

1783 

1784 

301 

IRECNC(  I EDGE  )  =  NE 

1784 

1785 

302 

NCOLOR  -  NCOLOR  +  I 

1785 

1786 

303 

JEE(  NCOLOR  )  =  NE 

1786 

1787 

304 

JSE(  NE  )  -  1 

1787 

1788 

305 

lEDGE  =  lEOGE  *  1 

1788 

1789 

306 

IRECNC(  lEDGE  )  -  NE  -  1 

1789 

1790 

307 

NCOLOR  -  NCOLOR  +  1 

1790 

1791 

308 

JEE(  NCOLOR  )  •  HE  -  1 

1791 

1792 

309 

JSE(  NE  -  1  )  -  1 

1792 

1793 

310 

lEOGE  -  lEDGE  +  1 

1793 

1794 

311 

1RECNC(  lEDGE  )  »  HE  -  2 

1794 

1795 

312 

NCOLOR  -  NCOLOR  +  1 

1795 

1796 

313 

JEE(  NCOLOR  )  »  NE  -  2 

1796 

1797 

314 

JSE(  NE  -  2  )  -  1 

1797 

1798 

315 

c 

1798 

1799 

316 

ELSE 

1799 

1800 

317 

c 

1800 

1801 

318 

IDISCT  =  0 

1801 

1802 

319 

DO  545  KK  «  4  ,  6 

1802 

1803 

320 

lEE  -  JS(  KK  .  ISS  ) 

1803 

1804 

321 

lEF  -  IABS(  lEE  ) 

1804 

1805 

322 

IJE55  -  JE(  5  ,  lEF  ) 

1805 

1806 

323 

IF(  IJE55  .  EQ  .  0  )  THEN 

1806 

1807 

324 

IF(  lEE  .  GT  .  0  )  THEN 

1807 

1808 

325 

ISI  -  JE(  4  ,  lEE  ) 

1808 

1809 

326 

ELSE 

1809 

1810 

327 

ISI  -  JE(  3  .  lEF  ) 

1810 

1811 

328 

END  IF 

1811 

1812 

329 

AREAXS  »  SAREA(  ISI  ) 

1812 

1813 

330 

lEl  >  IABS(  JS(  4  .  ISI  )  ) 

1813 

1814 

331 

XEl  =■  XE(  1  ,  lEl  ) 

1814 

1815 

332 

IJE55  >  JE(  5  ,  lEl  ) 

1815 

1816 

333 

HDI  -  AREAXS  *  XEl  *  XEl 

1816 

1817 

334 

IE2  -  IABS(  JS(  5  ,  ISI  )  ) 

1817 

1818 

335 

XE2  *  XE{  1  ,  IE2  ) 

1818 

1819 

336 

IJE55  -  IJE55  *  JE(  5  ,  IE2  ) 

1819 

1820 

337 

H02  -  AREAXS  *  XE2  *  XE2 

1820 

1821 

338 

IE3  -  IABS(  JS(  6  ,  ISI  )  ) 

1821 

1822 

339 

XE3  -  XE(  1  ,  IE3  ) 

1822 

1823 

340 

IJE55  -  IJE55  t  JE{  5  ,  IE3  ) 

1823 

1824 

341 

HD3  -  AREAXS  *  XE3  *  XE3 

1824 

1825 

342 

RATIO  -  AMAXK  hoi  ,  HD2  .  H03  ) 

1825 

1826 

343 

YSAREA  ■  XS(  3  .  ISI  ) 

1826 

1827 

344 

IF(  RATIO  .  LT  .  7.  .  AND  .  YSAREA  .  GT  .  SHINVG  .  AND  . 

1827 
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1828 

345 

. 

1829 

346 

IDISCT  >  1 

1830 

347 

DO  435  IR  -  4  .  6 

1831 

348 

IE  -  IABS(  JS(  IR  .  ISl  )  ) 

1832 

349 

IF(  JSE(  IE  )  .  EO  .  0  )  THEl 

1833 

350 

lEDGE  >  lEDGE  +  1 

1834 

351 

IRECNC(  lEDGE  )  =  IE 

1835 

352 

NCOLOR  -  NCOLOR  ♦  1 

1836 

353 

JEE(  NCOLOR  )  =■  IE 

1837 

354 

JSE{  IE  )  =  1 

1838 

355 

END  IF 

1839 

356 

435 

CONTINUE 

1840 

357 

CALL  VERCEN(  ISI  ) 

1841 

358 

KSOELT(  ISl  )  =  lOUMP 

1842 

359 

LTRIG  -  LTRIG  +  1 

1843 

360 

JTRIG(  LTRIG  )  .  NS  -  1 

1844 

361 

KSD£LT(  NS  -  1  )  -  IDUHP 

1845 

362 

C 

1846 

363 

LTRIG  -  LTRIG  *  1 

1847 

364 

JTRIG(  LTRIG  )  -  NS 

1848 

365 

KSOELT(  NS  )  -  IDUHP 

1849 

366 

C 

1850 

367 

lEDGE  -  lEDGE  +  1 

1851 

368 

IRECNC(  lEDGE  )  =  NE 

1852 

369 

NCOLOR  »  NCOLOR  >  1 

1853 

370 

JEE(  NCOLOR  )  =  NE 

1854 

371 

JS£{  HE  )  -  1 

1855 

372 

lEDGE  =  lEOGE  ♦  1 

1856 

373 

IRECNC(  lEDGE  )  =  NE  -  1 

1857 

374 

NCOLOR  -  NCOLOR  +  1 

1858 

375 

JEE(  NCOLOR  )  -  NE  -  1 

1859 

376 

JSE(  NE  -  1  )  -  1 

1860 

377 

lEDGE  «  lEDGE  +  1 

1861 

378 

1RECNC(  lEDGE  )  =■  NE  -  2 

1862 

379 

NCOLOR  •  NCOLOR  +  1 

1863 

380 

JEE(  NCOLOR  )  =.  NE  -  2 

1864 

381 

JSE(  NE  -  2  )  -  1 

1865 

382 

END  IF 

1866 

383 

EW)  IF 

1867 

384 

545 

CONTINUE 

1868 

385 

C 

1869 

386 

IF{  IDISCT  .  EQ  .  0  )  THEN 

1870 

387 

lEl  ■  IABS(  JS(  4  .  ISS  )  ) 

1871 

388 

XEl  «  XE(  1  ,  lEl  ) 

1872 

389 

IE2  •  IA8S(  JS(  5  .  ISS  )  ) 

1873 

390 

XE2  -  XE(  1  .  IE2  ) 

1874 

391 

IE3  -  IABS(  JS(  6  .  ISS  )  ) 

1875 

392 

XE3  -  XE(  1  ,  iE3  ) 

1876 

393 

lEDIST  .  lEl 

1877 

394 

XEDIST  »  XEl 

1878 

395 

IF(  XE2  ,  GT  .  XEDIST  )  THEN 

1879 

396 

XEDIST  .  XE2 

1880 

397 

lEDIST  -  IE2 

1881 

398 

END  IF 

1882 

399 

IF(  XE3  .  GT  .  XEDIST  )  THEN 

1883 

400 

XEDIST  -  XE3 

1884 

401 

lEOIST  •  IE3 

1885 

402 

END  IF 

1886 

403 

ISL  -  JE(  3  ,  lEDIST  1 

1887 

404 

ISR  -  JE(  4  ,  lEDIST  ) 

1888 

405 

XSISL  -  XS(  3  ,  ISL  ) 

1889 

406 

XSISR  -  XS(  3  ,  ISR  ) 

1890 

407 

IJE5  -  JE(  5  .  lEDIST  ) 

1891 

408 

IF(  XSISL  .  GT  ,  RMINVG  .  AND 

1892 

409 

IJE5  .  EQ  .  0  .  AND  .  IRAl 

1893 

410 

IF(  ISS  .  NE  .  ISL  )  THEN 

1894 

411 

DO  345  IR  -  4  ,  6 

1895 

412 

IE  -  IABS(  JS(  IR  ,  ISL  )  ) 

1896 

413 

IF{  JSE(  IE  )  .  EQ  .  0  )  then 

1897 

414 

lEOGE  -  lEDGE  +  1 

1898 

415 

IRECNC{  lEDGE  )  -  IE 

1899 

416 

NCOLOR  .  NCOLOR  +  I 

1900 

417 

JEE(  NCOLOR  )  -  IE 

1901 

418 

JSE{  IE  )  -  1 

IJE55  .  EQ  ,  0 


XS15R  .  GT 
0  .  NE  .  2  ) 


)  THEN 


RMINVG  .  AND  . 
THEN 


1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 
1861 
1862 

1863 

1864 

1865 

1866 

1867 

1868 
1869 
1670 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 
1881 
1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 
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1902 

419 

END  IF 

1903 

420 

345 

CONTINUE 

1904 

421 

END  IF 

1905 

422 

C 

1906 

423 

IF(  ISS  .  NE  .  ISR  )  THEN 

1907 

424 

DO  355  IR  «  4  ,  6 

1908 

425 

IE  -  IABS(  JS{  IR  ,  ISR  )  ) 

1909 

426 

IF(  JSE{  IE  )  .  EO  .  0  )  THEN 

1910 

427 

lEDGE  >=  lEDGE  +  1 

1911 

428 

IRECNC(  lEOGE  )  =  IE 

1912 

429 

NCOLOR  =  NCOLOR  +  1 

1913 

430 

JEE(  NCOLOR  )  =  IE 

1914 

431 

JSE(  IE  )  =  1 

1915 

432 

END  IF 

1916 

433 

355 

CONTINUE 

1917 

434 

END  IF 

1918 

435 

C 

1919 

436 

IDONE  =  0 

1920 

437 

CALL  DISECT  {  lEDIST  .  IDONE  . 

I DUMP  ) 

1921 

438 

IF(  IDONE  .  EQ  .  1  )  THEN 

1922 

439 

C 

1923 

440 

LTRIG  =  LTRIG  +  1 

1924 

441 

JTRIG(  LTRIG  )  =  NS 

1925 

442 

KSOELT(  NS  )  =  lOUHP 

1926 

443 

LTRIG  -  LTRIG  ♦  1 

1927 

444 

JTRrG(  LTRIG  )  =  NS  -  1 

1928 

445 

KSOELTI  NS  -  1  )  -  lOUMP 

1929 

446 

C 

1930 

447 

lEDGE  -  I  EDGE  +  1 

1931 

448 

IRECNCI  lEDGE  )  =  NE 

1932 

449 

NCOLOR  =  NCOLOR  +  1 

1S33 

450 

JEE(  NCOLOR  )  =  NE 

1934 

451 

JSE(  NE  )  =  1 

1935 

452 

lEDGE  =•  lEDGE  +  1 

1936 

453 

IRECNCI  I  EDGE  )  -  NE  -  1 

1937 

454 

NCOLOR  -  NCOLOR  +  1 

1938 

455 

JEE(  NCOLOR  )  =  NE  -  1 

1939 

456 

JSE(  NE  -  1  )  -  1 

1940 

457 

lEDGE  =  lEDGE  +  1 

1941 

458 

IRECNCI  lEDGE  )  =  NE  -  2 

1942 

459 

NCOLOR  »  NCOLOR  +  1 

1943 

460 

JEEI  NCOLOR  )  •  NE  -  2 

1944 

461 

JSEI  NE  -  2  )  =  1 

1945 

462 

END  IF 

1946 

463 

C 

1947 

464 

END  IF 

1948 

465 

END  IF 

1949 

466 

END  IF 

1950 

467 

END  IF 

1951 

468 

C 

1952 

469 

320 

CONTINUE 

1953 

470 

C 

1954 

471 

00  340  lEM  -  1  ,  NCOLOR 

1955 

472 

IE  -  JEEI  lEM  ) 

1956 

473 

c 

1957 

474 

ISL  -  JEI  3  ,  IE  ) 

1958 

475 

YSAREA  -  XSI  3  ,  ISL  ) 

1959 

476 

IJE5  »  JEI  5  .  IE  ) 

1960 

477 

1F{  YSAREA  .  GE  .  RHINVG  .  AND 

.  IJE5 

1961 

478 

lEl  -  lABSI  JSI  4  ,  ISL  )  ) 

1962 

479 

1E2  -  lABSI  JSI  5  .  ISL  )  ) 

1963 

480 

1E3  =  lABSI  JSI  6  ,  ISL  )  ) 

1964 

481 

IJE51  -  JEI  5  ,  lEl  ) 

1965 

482 

1JE52  -  JEI  5  .  1E2  ) 

1966 

483 

1JE53  -  JEI  5  ,  IE3  ) 

1967 

484 

IF!  IJE51  .  NE  .  0  )  THEN 

1968 

485 

lEDIST  -  lEl 

1969 

486 

XEl  -  XEI  1  ,  lEl  ) 

1970 

487 

XE2  -  XEI  1  ,  IE2  ) 

1971 

488 

XE3  =  XEI  1  ,  IE3  ) 

1972 

489 

END  IF 

1973 

490 

I  FI  IJE52  .  NE  .  0  )  THEN 

1974 

491 

lEDIST  »  IE2 

1975 

492 

XEI  ”  XEI  1  .  IE2  ) 
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1976 

493 

XE2  -  XE(  1  .  lEl  ) 

1976 

1977 

494 

XE3  -  XF{  1  .  IE3  ) 

1977 

1978 

495 

END  IF 

1978 

1979 

496 

IF{  IJE53  .  N£  .  0  )  THEN 

1979 

1980 

497 

lEDIST  -  IE3 

1980 

1981 

498 

XEl  -  XE(  1  .  1E3  ) 

1981 

1982 

499 

XE2  -  XE(  1  .  IE2  ) 

1982 

1983 

500 

XE3  -  XE(  1  .  lEl  ) 

1983 

1984 

501 

END  IF 

1984 

1985 

502 

XEDIST  -  1.  /  XE(  1  .  lEDlST  ) 

1985 

1986 

503 

YE2  -  XE2  *  XEDIST 

1986 

1987 

504 

YE3  -  XE3  *  XEDIST 

1987 

1988 

505 

ZE2  -  (  YE2  -  1.5  )  *  (  YE2  -  .1  ) 

1988 

1989 

506 

ZE3  -  (  YE3  -  1.5  )  •  (  YE3  -  .1  ) 

1989 

1990 

507 

YY2  -  XEl  *  XEl  +  XE2  *  XE2  *  .35  *  XEl 

*  XE2  - 

XE3  * 

XE3 

1990 

1991 

508 

YY3  «  XEl  *  XEl  t  XE3  •  XE3  ♦  .35  *  XEl 

•  XE3  - 

XE2  * 

XE2 

1991 

1992 

509 

IF(  ZE2  .  LT  .  .0  .  AND  .  ZE3  .  L.  .  0. 

.  AND  . 

1992 

1993 

510 

YY2  .  GT  .  0.  .  AND  .  YY3  .  GT  .  0. 

)  THEN 

1993 

1994 

511 

CALL  DISECT  {  lEDlST  ,  iOONE  ,  lOUMP  ) 

1994 

1995 

512 

C 

1995 

1996 

513 

LTRIG  =  LTRIG  +  i 

1996 

1997 

514 

JTRIG(  LTRIG  )  -  NS 

1997 

1998 

515 

KSDELT(  NS  )  =  IDUMP 

1998 

1999 

516 

c 

1999 

2000 

517 

lEDGE  -  lEOGE  >  1 

2000 

2001 

518 

IRECNCI  lEDGE  )  -  NE 

2001 

2002 

519 

NCOLOR  -  NCOLOR  +  I 

2002 

2003 

520 

J£E(  NCOLOR  )  =  NE 

2003 

2004 

521 

JSE(  NE  )  =  1 

2004 

2005 

522 

lEDGE  -  lEDGE  +  1 

2005 

2006 

523 

IRECNC(  lEDGE  )  -  NE  -  1 

2006 

2007 

524 

NCOLOR  •  NCOLOR  +  1 

2007 

2008 

525 

JEE(  NCOLOR  )  =  NE  -  1 

2008 

2009 

526 

JSE{  NE  -  1  )  -  I 

2009 

2010 

527 

c 

2010 

2011 

528 

ELSE 

2011 

2012 

529 

c 

2012 

2013 

530 

lEDIST  =  I£1 

2013 

2014 

531 

XEDIST  -  XEl 

2014 

2015 

532 

IF(  XE2  .  GT  .  XEDIST  )  THEN 

2015 

2016 

533 

XEDIST  .  XE2 

2016 

2017 

534 

lEDIST  =  IE2 

2017 

2018 

535 

m  IF 

2018 

2019 

536 

IF(  XE3  ,  GT  .  XEDIST  )  THEN 

2019 

2020 

537 

XEDIST  -  XE3 

2020 

2021 

538 

lEDIST  -  1E3 

2021 

2022 

539 

END  IF 

2022 

2023 

540 

ISL  •  JE(  3  ,  lEOIST  ) 

2023 

2024 

541 

ISR  -  J£(  4  ,  lEDIST  ) 

2024 

2025 

542 

XSISL  =  XS(  3  ,  ISL  ) 

2025 

2026 

543 

XSISR  -  XS(  3  ,  ISR  ) 

2026 

2027 

544 

IJE5  >  JE(  5  ,  lEDIST  ) 

2027 

2028 

545 

IF(  XSISL  .  GT  .  RHINVG  .  AND  .  XSISR  . 

GT  .  RMINVG  . 

AND  . 

2028 

2029 

546 

IJE5  .  EQ 

.  0  ) 

THEN 

2029 

2030 

547 

DO  645  IR  -  4  ,  6 

2030 

2031 

548 

IE  -  1ABS(  JS(  IR  .  ISL  )  ) 

2031 

2032 

549 

IF{  JSE{  IE  )  .  EQ  .  0  )  THEN 

2032 

2033 

550 

lEDGE  -  lEDGE  +  1 

2033 

2034 

551 

lRECnC(  lEDGE  )  =  IE 

2034 

2035 

552 

NCOLOR  -  NCOLOR  +  1 

2035 

2036 

553 

JEE(  NCOLOR  )  =  IE 

2036 

2037 

554 

JSE(  IE  )  .  1 

2037 

2038 

555 

END  IF 

2038 

2039 

556 

645 

CONTINUE 

2039 

2040 

557 

DO  655  IR  -  4  .  6 

2040 

2041 

558 

IE  -  IABS(  JS(  IR  ,  ISR  )  ) 

2041 

2042 

559 

IF(  JSE(  IE  )  .  EQ  .  0  )  THEN 

2042 

2043 

560 

lEDGE  -  lEDGE  *  1 

2043 

2044 

561 

IRECNCC  lEDGE  )  =  IE 

2044 

2045 

562 

NCOLOR  -  NCOLOR  +  1 

2045 

2046 

563 

JEE(  NCOLOR  )  »  IE 

2046 

2047 

564 

JSE{  IE  )  »  1 

2047 

2048 

565 

END  IF 

2048 

2049 

566 

655 

CONTINUE 

2049 
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2050 

567 

C 

2051 

568 

lOONE  -  0 

2052 

569 

CALL  DI5ECT  {  lEDIST  .  lOONE  , 

2053 

570 

1F(  lOONE  .  EQ  .  1  )  THEN 

2054 

571 

C 

2055 

572 

LTRIG  -  LTRJG  +  1 

2056 

573 

JTRIG(  LTRIG  )  =  NS 

2057 

574 

KSDELK  NS  )  =  lOUMP 

2058 

575 

LTRIG  =  LTRIG  I 

2059 

576 

JTRIG(  LTRIG  )  -  NS  -  1 

2060 

577 

KSOELTl  NS  -  1  )  »  IDUMP 

2061 

578 

c 

2062 

579 

lEDGE  =  I  EDGE  +  1 

2063 

580 

IRECNC(  I  EDGE  )  =  NE 

2064 

581 

NCOLOR  -  NCOLOR  +  1 

2065 

582 

JEE(  NCOLOR  )  =  NE 

2066 

583 

JSE(  NE  )  =  1 

2067 

584 

lEDGE  =  I  EDGE  +  1 

2068 

585 

IRECNC(  lEOGE  )  =  NE  -  1 

2069 

586 

NCOLOR  =  NCOLOR  *  1 

2070 

587 

JEE(  NCOLOR  )  =■  NE  -  1 

2071 

588 

JSE(  HE  -  1  )  «  1 

2072 

589 

lEOGE  =  lEOGE  +  1 

2073 

590 

:GLLNC(  I  EDGE  )  -  NE  -  2 

2074 

591 

NCOLOR  -  NCOLOR  ♦  1 

2075 

592 

J£E{  NCOLOR  )  -  NE  -  2 

2076 

593 

JSE(  NE  -  2  )  =  1 

2077 

594 

END  IF 

2078 

595 

c 

2079 

596 

END  IF 

2080 

597 

END  IF 

2081 

598 

END  IF 

2082 

599 

340 

CONTINUE 

2083 

600 

C 

2084 

601 

NSS  -  LTRIG 

2085 

602 

c 

2086 

603 

00  370  I EH  •  1  .  NCOLOR 

2087 

604 

IE  -  JEE(  lEH  ) 

2088 

605 

CALL  RECNC{  IE  .  IDONE  .  ITL  , 

2089 

606 

CALL  RECNC(  JA  .  JADONE  .  ITL 

2090 

607 

CALL  RECNC(  JB  ,  JBOONE  .  ITL 

2091 

608 

CALL  RECNC(  JC  .  JCOONE  .  ITL 

2092 

609 

CALL  RECNC(  JO  ,  JOOONE  .  ITL 

2093 

610 

370 

CONTINUE 

2094 

611 

C 

2095 

612 

300 

CONTINUE 

2096 

613 

c 

2097 

614 

NVECE  -  NE  /  M8L 

2098 

615 

NREHE  «  NE  -  NVECE  *  MBL 

2099 

616 

NVECS  »  NS  /  MBL 

2100 

617 

NREMS  -  NS  -  NVECS  *  MBL 

2101 

618 

NVECV  =  NV  /  HBL 

2102 

619 

NREMV  -  NV  -  NVECV  *  MBL 

2103 

620 

c 

2104 

621 

00  400  INE  -  1  ,  NVECE 

2105 

622 

NOFVEEC  INE  )  -  MBL 

2106 

623 

400 

CmiNUE 

2107 

624 

NVEEE  -  NVECE 

2108 

625 

IF(  NREHE  .  GT  .  0  )  THEN 

2109 

626 

NVEEE  "  NVECE  +  1 

2110 

627 

HOFVEE(  NVEEE  )  =  NREHE 

2111 

628 

END  IF 

2112 

629 

c 

2113 

630 

DO  410  INS  -  i  .  NVECS 

2114 

631 

NOFVES(  INS  )  =  MBL 

2115 

632 

410 

CONTINUE 

2116 

633 

NVEES  =  NVECS 

2117 

634 

IF(  NREMS  .  GT  .  0  )  THEN 

2118 

635 

NVEES  -  NVECS  f  1 

2119 

636 

NOFVES(  NVEES  )  *  NREMS 

2120 

637 

END  IF 

2121 

638 

c 

2122 

639 

DO  420  INV  -  1  ,  NVECV 

2123 

640 

NOFVEV(  INV  )  >  MBL 

2050 

2051 

JOUMP  )  2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 
2061 
2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 
2081 
2082 

2083 

2084 

2085 

2086 
2087 


ITR  . 

JA  , 

JB  .  JC 

.  JO  ) 

2088 

ITR 

.  JAA 

.  JAB  . 

JAC  , 

JAO 

) 

2089 

ITR 

.  JBA 

,  JBB  . 

J8C  . 

JBD 

) 

2090 

ITR 

,  JCA 

.  JCB  . 

JCC  , 

JCO 

) 

2091 

ITR 

,  JDA 

,  JOB  , 

JDC  . 

JOD 

) 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 
2101 
2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 
2111 
2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 
2121 
2122 
2123 
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2124 

641 

420 

CONTINUE 

2124 

2125 

642 

NVEEV  -  HVECV 

7125 

2126 

643 

IF(  NREHV  .  GT  .  0  )  THEN 

2126 

2127 

644 

NVEEV  *  NVECV  ♦  1 

2127 

2128 

645 

N0EVEV(  NVEEV  )  »  NREHV 

2128 

2129 

546 

END  IF 

2129 

2130 

647 

C 

2130 

2131 

648 

PRINT*, NV.NE. NS 

2131 

2132 

649 

C 

2132 

2133 

650 

C  - 

-  EXIT  POINT  FROH  SUBROUTINE . - . 

2133 

2134 

651 

C 

2134 

2135 

652 

c 

2135 

2136 

653 

RETURN 

2136 

2137 

654 

c 

21-37 

2138 

655 

c 

2138 

2139 

656 

c 

... 

2139 

2140 

657 

END 

2140 

Thu  Jul 

1  14; 16:08 

1993  adaphd.f  SUBROUTINE 

INTPTN 

2141 

1 

SUBROUTINE  INTPTN(  OAREA  ,  flOFOIV  ,  IDUHP  , 

LTRIG  ) 

2141 

2142 

2 

c 

2142 

2143 

3 

c— 

■1 

2143 

2144 

4 

c 

I 

2144 

2145 

5 

c 

INTPTN  ADAPT  THE  GRID  OYNAHICALLY.  ADD  VERTECES 

I 

2145 

2146 

6 

c 

SUB  DIVIDE  TO  REFINE  AT  THE  INITIAL  STAGE  OF  THE  SIMULATION 

I 

2146 

2147 

7 

c 

I 

2147 

2148 

8 

c— 

•I 

2148 

2149 

9 

c 

2149 

2150 

10 

IMPLICIT  REAL  (A-H,0-Z) 

2150 

2151 

11 

c 

2151 

2152 

12 

include  'cmshOO.h' 

2152 

2153 

13 

include  'chydOO.h' 

2153 

2154 

14 

include  'cintOO.h' 

2154 

2155 

15 

include  'cphslO.h' 

2155 

2156 

16 

include  'cphs20.h’ 

2156 

2157 

17 

c 

2157 

2158 

18 

INTEGER  JTRIG(MEM) .KTRIG(MEM) , 1R£CNC(MEM) 

2158 

2159 

19 

I NTEGER  JSE (MEM ) , JEE (MEM) . 10FDVS{ 10 ) . NOFDVS ( 10 ) 

2159 

2160 

20 

c 

2160 

2161 

21 

EQUIVALENCE  (UL.JTRIG) 

2161 

2162 

22 

EQUIVALENCE  (VR.KTRIG) 

2162 

2163 

23 

EQUIVALENCE  (VL.IRECNC) 

2163 

2164 

24 

EQUIVALENCE  (PR, JSE) 

2164 

2165 

25 

EQUIVALENCE  (PL, JEE) 

2165 

2166 

26 

c 

2166 

2167 

27 

SHINVG  =  SAREVG  »  OAREA 

2167 

2168 

28 

RMINVG  =  .7  *  SHINVG 

2168 

2169 

29 

c 

2169 

2170 

30 

00  115  IS  -  1  ,  NS 

2170 

2171 

31 

JEE(  IS  )  •  0 

2171 

2172 

32 

115 

CONTINUE 

2172 

2173 

33 

c 

2173 

2174 

34 

NSS  -  0 

2174 

2175 

35 

DO  120  IS  -  1  .  NS 

2175 

2176 

36 

c 

00  120  IR  -  4  ,  6 

2176 

2177 

37 

c 

IE  -  IABS(  JS(  IR  .  IS  )  ) 

2177 

2178 

38 

c 

IJE5  -  J£(  5  ,  IE  ) 

2178 

2179 

39 

XSS  -  XS(  1  ,  IS  ) 

2179 

2180 

40 

IF(  XSS  .  GT  .  -.05  .  AND  .  XSS  .  LT  .  .05 

,  AND  . 

2180 

2181 

41 

KSDELT{  IS  )  .  LT  .  IDUHP  )  THEN 

2181 

2182 

42 

c 

IF(  IJE5  .  EQ  .  8  )  THEN 

2182 

2183 

43 

KSDELT(  IS  )  =  IDUHP 

2183 

2184 

44 

J£E(  IS  )  =  1 

2184 

2185 

45 

NSS  =  NSS  +  1 

2185 

2186 

46 

JTRIG(  NSS  )  =  IS 

2186 

2187 

47 

END  IF 

2187 

2188 

48 

120 

CONTINUE 

2188 

2189 

49 

c 

2189 

2190 

50 

00  130  IS  -  1  ,  NSS 

JSE(  IS  )  =  JTRIG(  IS  ) 

2190 

2191 

51 

2191 

2192 

52 

130 

CONTINUE 

2192 

2193 

53 

C 

2193 

2194 

54 

MSS  -  NSS 

2194 
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2195 

55 

00  140  KDIV  -  1  ,  KOFDIV 

2195 

2196 

56 

ITRIG  -  0 

2196 

2197 

57 

00  150  KS  -  1  ,  NSS 

2197 

2198 

58 

C 

2198 

2199 

59 

ISS  -  JS£(  KS  ) 

2199 

2200 

60 

C 

2200 

2201 

61 

DO  160  KR  •  1  .  3 

2201 

2202 

62 

IVV  -  JS(  KR  .  ISS  ) 

2202 

2203 

63 

C 

2203 

2204 

64 

IE  -  JV{  2  .  IW  ) 

2204 

2205 

65 

!F(  IE  .  GT  .  0  )  THEN 

2205 

2206 

66 

c 

2206 

2207 

67 

IVl  -  JE(  1  ,  IE  ) 

2207 

2208 

68 

IF(  IVl  .  EQ  .  IVV  )  THEN 

2208 

2209 

69 

ISI  -  JE(  3  ,  IE  ) 

2209 

2210 

70 

ELSE 

2210 

2211 

71 

ISI  -  JE(  4  ,  IE  ) 

2211 

2212 

72 

END  IF 

2212 

2213 

73 

IS  -  ISI 

2213 

2214 

74 

c 

2214 

2215 

75 

750 

CONTINUE 

2215 

2216 

76 

C 

2216 

2217 

77 

JES  -  JEE(  IS  ) 

2217 

2218 

78 

XAS  -  XS{  3  ,  S  ) 

2218 

2219 

79 

1F(  JES  .  EO  .  0  .  AND  .  XAS  .  LT  .  SAREVG  1 

1  THEN 

2219 

2220 

80 

ITRlG  >  ITRlG  -  1 

2220 

2221 

81 

KTRIG(  ITRIG  )  =  IS 

2221 

2222 

82 

KSDELT(  IS  )  =  IDUHP 

2222 

2223 

83 

JEE(  IS  )  >  1 

2223 

2224 

84 

END  IF 

2224 

2225 

85 

C 

2225 

2226 

86 

DO  760  IR  =  1  .  3 

2226 

2227 

87 

JR  .  M00(  IR  ,  3  )  +  1 

2227 

2228 

88 

lEA  •  IA8S(  JS{  JR  ♦  3  .  IS  )  ) 

2228 

2229 

89 

IF(  lEA  .  £0  .  IE  )  THEN 

2229 

2230 

90 

JJR  .  M00(  JR  +  1  .  3  )  ♦  4 

2230 

2231 

91 

lER  -  IA8S(  JS(  JJR  .  IS  )  ) 

2231 

2232 

92 

C 

2232 

2233 

93 

IVl  -  JE(  1  .  lER  ) 

2233 

2234 

94 

IF(  IVl  .  £0  .  IVV  )  THEN 

2234 

2235 

95 

ISR  -  JE(  3  ,  lER  ) 

2235 

2236 

96 

ELSE 

2236 

2237 

97 

ISR  •  JE(  4  ,  lER  ) 

2237 

2238 

98 

END  IF 

2238 

2239 

99 

END  IF 

2239 

2240 

100 

760 

CONTINUE 

2240 

2241 

101 

C 

2241 

2242 

102 

IF(  ISR  .  HE  .  ISI  )  THEN 

2242 

2243 

103 

IS  -  ISR 

2243 

2244 

104 

IE  -  lER 

2244 

2245 

105 

C 

2245 

2246 

106 

GO  TO  750 

2246 

2247 

107 

END  IF 

2247 

2248 

108 

C 

2248 

2249 

109 

ELSE 

2249 

2250 

110 

C 

2250 

2251 

111 

IE  -  -  IE 

2251 

2252 

112 

IVl  *  J£(  1  ,  IE  ) 

2252 

2253 

113 

IF(  IVl  .  EQ  .  IVV  )  THEN 

2253 

2254 

114 

ISI  -  J£(  3  ,  IE  ) 

2254 

2255 

115 

ELSE 

2255 

2256 

116 

ISI  «  JE(  4  ,  IE  ) 

2256 

2257 

117 

END  IF 

2257 

2258 

118 

IS  -  ISI 

2258 

2259 

119 

ISI  =  0 

2259 

2260 

120 

C 

2260 

2261 

121 

650 

CONTINUE 

2261 

2262 

122 

C 

2262 

2263 

123 

JES  -  JEE(  IS  ) 

2263 

2264 

124 

XAS  .  XS(  3  .  IS  ) 

2264 

2265 

125 

IF{  JES  .  EQ  .  0  .  AND  .  XAS  .  LT  .  SAREVG  ! 

1  THEN 

2265 

2266 

126 

ITRIG  »  ITRIG  1 

2266 

2267 

127 

KTRIG(  ITRIG  )  =<  IS 

2267 

2268 

128 

KSOELTI  IS  )  -  IDUMP 

2268 
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2269 

129 

JEE(  IS  )  -  1 

2270 

130 

END  IF 

2271 

131 

C 

2272 

132 

DO  660  IR  -  1  .  3 

2273 

133 

JR  -  H00(  IR  .  3  )  1-  1 

2274 

134 

lEA  -  1ABS(  JS{  JR  +  3  ,  IS 

2275 

135 

IF(  lEA  .  EQ  .  IE  )  THEN 

2276 

136 

JJR  -  MODI  JR  ♦  1  ,  3  )  +  4 

2277 

137 

lER  -  IABS{  JS(  JJR  .  IS  )  ) 

2278 

138 

c 

2279 

139 

IVl  -  JE(  1  .  lER  ) 

2280 

140 

IF(  IVl  .  EQ  .  IVV  )  THEN 

2281 

141 

ISR  -  JE(  3  ,  lER  ) 

2282 

142 

ELSE 

2283 

143 

ISR  -  JE(  4  ,  lER  ) 

2284 

144 

END  IF 

2285 

145 

END  IF 

2286 

146 

c 

2287 

147 

660 

CONTINUE 

2288 

148 

C 

2289 

149 

IF(  ISR  .  NE  ,  ISI  )  THEN 

2290 

ISO 

IS  -  ISR 

2291 

151 

IE  -  lER 

2292 

152 

GO  TO  650 

2293 

153 

END  IF 

2294 

154 

END  IF 

2295 

155 

160 

CONTINUE 

2296 

156 

C 

2297 

157 

150 

CONTINUE 

2298 

158 

C 

2299 

159 

DO  170  IS  -  1  .  ITRIG 

2300 

160 

JTRIG(  IS  V  HSS  )  =  KTRIG(  IS  ) 

2301 

161 

JSE(  IS  )  =  KTRIG(  IS  ) 

2302 

162 

170 

CONTINUE 

2303 

163 

NSS  -  ITRIG 

2304 

164 

MSS  •  MSS  +  ITRIG 

2305 

165 

C 

2306 

166 

140 

CONTINUE 

2307 

167 

NSS  -  MSS 

2308 

168 

C 

2309 

169 

DO  300  KDIV  •  1  .  1 

2310 

170 

LTRIG  -  NSS 

2311 

171 

lEDGE  •  0 

2312 

172 

NCOLOR  =  0 

2313 

173 

C 

2314 

174 

DO  290  IE  -  1  ,  NE 

2315 

175 

JSE(  IE  )  =  0 

2316 

176 

290 

CONTINUE 

2317 

177 

C 

2318 

178 

DO  310  IS  >  1  ,  NSS 

2319 

179 

ISS  -  JTRIG{  IS  ) 

2320 

180 

XSAREA  -  XS(  3  ,  ISS  ) 

2321 

181 

1F(  XSAREA  .  GE  .  RMINVG  )  THEN 

2322 

182 

C 

2323 

183 

DO  335  IR  -  4  .  6 

2324  184  IE  -  IABS(  J5(  IR  .  ISS  )  ) 

2325  185  IJE5  •  JE(  5  ,  IE  ) 

2326  186  IF(  1JE5  .  NE  .  0  )  THEN 

2327  187  JR2  -  HOO(  IR  -  3  ,  3  )  t  4 

2328  188  IE2  ■  iA8S{  JS(  JR2  ,  ISS  )  ) 

2329  189  JR3  -  MOO(  IR  -  2  ,  3  )  ♦  4 

2330  190  IE3  -  IABS(  JS(  JR3  .  ISS  )  ) 

2331  191  XEl  •  XE(  1  ,  IE  ) 

2332  192  XE2  -  XE(  1  ,  IE2  ) 

2333  193  XE3  -  XE(  1  .  IE3  ) 

2334  194  XEDIST  *  1.  /  XEl 

2335  195  YE2  -  XE2  *  XEDIST 

2336  196  YE3  -  XE3  *  XEDIST 

2337  197  2E2  -  (  YE2  -  1.5  )  »  (  YE2  -  . 1  ) 

2338  198  ZE3  -  (  YE3  -  1.5  )  *  (  YE3  -  .1  ) 

2339  199  YY2  -  XEl  *  XEl  +  XE2  *  XE2  +  .35  •  XEl  *  XE2  -  XE3  *  XE3 

2340  200  YY3  -  XEl  *  XEl  *  XE3  *  XE3  ♦  .35  *  XEl  *  XE3  -  XE2  *  XE2 

2341  201  1F(  ZE2  .  LT  .  .0  .  AND  .  ZE3  .  LT  .  0.  .  AND  . 

2342  202  .  YY2  .  GT  ,  0.  .  AND  .  YY3  .  GT  .  0.  )  THEN 


2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 
2281 
2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 
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2343 

203 

CALL  DISECT  (  IE  .  lOONE  .  lOUHP 

2344 

204 

C 

2345 

205 

LTRIG  >  LTRIG  ♦  1 

2346 

206 

JTRIG(  LTRIG  )  »  MS 

2347 

207 

KSOELT(  NS  )  -  IDUHP 

2348 

208 

C 

2349 

209 

lEDGE  -  lEDGE  >  1 

2350 

210 

IRECNC(  lEDGE  )  =  ME 

2351 

211 

NCOLOR  -  NCOLOR  +  1 

2352 

212 

JEE(  NCOLOR  )  -  ME 

2353 

213 

JSE(  NE  )  -  1 

2354 

214 

lEDGE  -  I EDGE  +  1 

2355 

215 

IRECNC(  lEOGE  )  -  NE  -  1 

2356 

216 

NCOLOR  -  NCOLOR  +  1 

2357 

217 

JEE{  NCOLOR  )  =.  NE  -  1 

2358 

218 

JSE{  NE  -  1  )  -  1 

2359 

219 

C 

2360 

220 

END  IF 

2361 

221 

END  IF 

2362 

222 

335 

CONTINUE 

2363 

223 

END  IF 

2364 

224 

310 

CONTINUE 

2365 

225 

C 

2366 

226 

MSS  -  LTRIG 

2367 

227 

lEOGE  =  0 

2368 

228 

NCOLOR  -  0 

2369 

229 

C 

2370 

230 

00  295  IE  =  1  ,  NE 

2371 

231 

:SE(  IE  )  =  0 

2372 

232 

295 

CONTINUE 

2373 

233 

C 

2374 

234 

DO  320  IS  -  1  ,  NSS 

2375 

235 

ISS  -  JTRIG(  IS  ) 

2376 

236 

XSAREA  -  XS(  3  ,  ISS  ) 

2377 

237 

C 

2378 

238 

DO  735  IR  -  4  ,  6 

2379 

239 

IE  -  IABS(  JS(  IR  ,  ISS  )  ) 

2380 

240 

IF(  JSE(  IE  )  .  Eg  .  0  )  THEN 

2381 

241 

lEOGE  -  lEDGE  ♦  1 

2382 

242 

IRECNC(  lEOGE  )  .  IE 

2383 

243 

NCOLOR  -  NCOLOR  +  I 

2384 

244 

JEE(  NCOLOR  )  =■  IE 

2385 

245 

JSE(  IE  }  =  1 

2386 

246 

END  IF 

2387 

247 

735 

CONTINUE 

2388 

248 

C 

2389 

249 

IF(  XSAREA  .  GT  .  RHINVG  )  THEN 

2390 

250 

C 

2391 

251 

AREAXS  .  SAREA(  ISS  ) 

2392 

252 

lEl  -  IABS(  JS(  4  ,  ISS  )  ) 

2393 

253 

XEl  -  XE(  1  .  lEl  ) 

2394 

254 

HDl  -  AREAXS  *  XEl  *  XEl 

2395 

255 

IJE5  -  JE(  5  ,  lEl  ) 

2396 

256 

IE2  -  IABS(  JS(  5  ,  ISS  )  ) 

XE2  =  XE{  1  .  IE2  ) 

2397 

257 

2398 

258 

HD2  »  AREAXS  *  XE2  *  XE2 

2399 

259 

IJE5  -  IJE5  +  JE(  5  .  IE2  ) 

2400 

260 

IE3  -  IABS(  JS(  6  ,  ISS  )  ) 

2401 

261 

XE3  »  XE(  1  ,  IE3  ) 

2402 

262 

HD3  -  AREAXS  *  XE3  *  XE3 

2403 

263 

IJE5  -  IJE5  JE(  5  .  IE3  ) 

2404 

264 

RATIO  -  AMAX1(  HDl  ,  H02  ,  HD3  ) 

2405 

265 

IRATIO  .  0 

2406 

266 

IF{  RATIO  .  LE  .  7.  .  ANO  .  IJE5 

2407 

267 

XSAREA 

2408 

268 

1F(  1JE5  .  GT  .  0  )  IRATIO  -  2 

2409 

269 

c 

2410 

270 

IF(  IRATIO  .  Eg  .  2  )  THEN 

2411 

271 

IJE51  -  JE(  5  .  lEl  ) 

2412 

272 

IJE52  >  J£(  5  ,  IE2  ) 

2413 

273 

IJE53  *  JE{  5  ,  IE3  ) 

2414 

274 

IF(  IJE51  .  NE  .  0  )  THEN 

2415 

275 

lEDIST  -  lEl 

2416 

276 

XEl  -  XE{  1  ,  lEl  ) 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

Eg  .  0  .  ANO  .  2406 

GT  .  SHINVG  )  IRATIO  *  1  2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 
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2417 

277 

XE2  -  XE(  1  .  IE2  ) 

2418 

278 

XE3  =  XE(  1  .  IE3  ) 

2419 

279 

END  IF 

2420 

280 

IF{  IJE52  .  NE  .  0  )  THEN 

2421 

281 

lEDJST  .  IE2 

2422 

282 

XEl  -  XE(  1  .  IE2  ) 

2423 

283 

XE2  -  XE(  1  .  lEl  ) 

2424 

284 

XE3  -  XE(  1  ,  1E3  ) 

2425 

285 

END  IF 

2426 

286 

IF(  IJE53  .  NE  .  0  )  THEN 

2427 

287 

lEOIST  »  1E3 

2428 

288 

XEl  -  XE(  1  ,  IE3  ) 

2429 

289 

XE2  -  XE(  1  ,  1E2  ) 

2430 

290 

XE3  -  XE(  1  ,  lEl  ) 

2431 

291 

END  IF 

2432 

292 

XEDIST  -  i.  /  XE(  1  .  lEDIST  ) 

2433 

293 

YE2  •  XE2  *  XEDIST 

2434 

294 

YE3  -  XE3  *  XEDIST 

2435 

295 

ZE2  -  (  YE2  -  1.5  )  *  (  YE2  -  .1  ) 

ZE3  -  (  YE3  -  1.5  )  •  (  YE3  -  .1  ) 

2436 

296 

2437 

297 

YY2  -  XEl  *  XEl  *  XE2  •  XE2  ♦  .35  *  XEl 

2438 

298 

YY3  -  XEl  *  XEl  +  XE3  *  XE3  +  .35  *  XEl 

2439 

299 

YY3  -  XEl  *  XEl  +  XE3  *  X£3  -  XE2  *  XF2 

2440 

300 

IF(  ZE2  .  LT  .  .0  .  AND  .  ZE3  .  LT  .  0. 

2441 

301 

YY2  .  GT  .  0.  .  AND  ,  rY3  .  GT  .  0. 

2442 

302 

CALL  DISECT  (  lEDIST  .  iOONE  .  IDUMP  ) 

2443 

303 

C 

2444 

304 

LTRIG  .  LTR!G  *■  1 

2445 

305 

JTRIGf  L1RIG  )  =  NS 

2446 

306 

KSDELT(  NS  )  .  IDUMP 

2447 

307 

C 

2448 

308 

lEOGE  =  lEDGE  +  i 

2449 

309 

IRECNC(  lEDGE  )  =  NE 

2460 

310 

NCOLOR  -  NCOLOR  +  I 

2451 

311 

JEE(  NCOLOR  )  «  NE 

2452 

312 

JSE(  NE  )  =  1 

2453 

313 

lEDGE  -  lEDGE  +  1 

2454 

314 

IRECNCI  lEDGE  )  •  NE  -  1 

2455 

315 

NCOLOR  -  NCOLOR  +  1 

2456 

316 

JEE(  NCOLOR  )  .  NE  -  I 

2457 

317 

JSE(  NE  -  1  )  -  1 

2458 

318 

c 

2459 

319 

END  IF 

2460 

320 

END  IF 

2461 

321 

c 

2462 

322 

IF(  IRATIO  ,  EQ  .  1  )  THEN 

2463 

323 

c 

2464 

324 

CALL  VERCENI  1S5  ) 

2465 

325 

KSOELTI  ISS  }  >  IDUMP 

2466 

326 

LTRIG  =  LTRIG  ♦  1 

2467 

327 

JTRIG(  LTRIG  )  -  NS  -  1 

2468 

328 

KSDELT(  NS  -  1  )  -  IDUMP 

2469 

329 

c 

2470 

330 

LTRIG  -  LTRIG  +  1 

2471 

331 

JTRIG{  LTRIG  )  -  NS 

2472 

332 

KSDELTI  NS  )  .  IDUMP 

2473 

333 

c 

2474 

334 

lEDGE  ■=  lEDGE  +  1 

2475 

335 

IRECNCI  lEOGE  )  -  NE 

2476 

336 

NCOLOR  >  NCOLOR  +  1 

2477 

337 

JEE(  NCOLOR  )  =  NE 

2478 

338 

JSE(  NE  )  =  1 

2479 

339 

lEOGE  -  lEOGE  +  1 

2480 

340 

IRECNC(  lEDGE  )  -  NE  -  1 

2481 

341 

NCOLOR  =  NCOLOR  +  1 

2482 

342 

JEE(  NCOLOR  )  -  NE  -  1 

2483 

343 

JSE(  HE  -  1  )  =  1 

2484 

344 

lEDGE  -  lEDGE  ♦  1 

2485 

345 

IRECNCI  lEDGE  )  =  NE  -  2 

2486 

346 

NCOLOR  »  NCOLOR  +  1 

2487 

347 

JEE{  NCOLOR  )  -  NE  -  2 

2488 

348 

JSE(  NE  -  2  )  -  1 

2489 

349 

c 

2490 

350 

ELSE 

XE2  -  XF3 
XE3  -  XE2 

AND  . 

THEN 


XE3 

XE2 


2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 
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2491 

351 

C 

2491 

2492 

352 

IDISCT  =  0 

2492 

2493 

353 

00  545  KK  -  4  ,  6 

2493 

2494 

354 

lEE  -  JS(  KK  ,  ISS  ) 

2494 

2495 

355 

lEF  -  IABS(  lEE  ) 

2495 

2496 

356 

IJE55  -  JE{  5  .  lEF  ) 

2496 

2497 

357 

1F{  IJE55  .  EQ  .  0  )  THEN 

2497 

2498 

358 

IF{  lEE  .  GT  .  0  )  THEN 

2498 

2499 

359 

ISI  -  JE(  4  ,  lEE  ) 

2499 

2500 

360 

ELSE 

2500 

2501 

361 

ISI  -  JE(  3  .  lEF  ) 

2501 

2502 

362 

END  IF 

2502 

2503 

363 

AREAXS  =  SAREA(  ISI  ) 

2503 

2504 

364 

lEl  -  !48S{  JS(  4  .  ISI  }  ) 

2504 

2505 

365 

XEl  »  XE(  1  .  lEl  ) 

2505 

2506 

366 

IJE55  -  JE(  5  ,  lEl  ) 

2506 

2507 

367 

HDl  -  AREAXS  •  XEl  *  XEl 

2507 

2508 

368 

IE2  -  IAaS(  JS(  5  .  ISI  )  ) 

2508 

2509 

369 

XE2  »  XE(  1  .  IE2  ) 

2509 

2510 

370 

IJE55  -  IJE55  +  JE(  5  ,  IE2  ) 

2510 

2511 

371 

H02  -  AREAXS  *  XE2  *  XE2 

2511 

2512 

372 

IE3  -  IABS(  JS(  6  .  ISI  )  ) 

2512 

2513 

373 

XE3  =  XE(  1  ,  IE3  ) 

2513 

2514 

374 

IJE55  =  IJE55  +  JE(  5  .  IE3  ) 

2514 

2515 

375 

HD3  •  AREAXS  •  XE3  *  XE3 

2515 

2516 

376 

RATIO  -  AMAXK  HDl  ,  HD2  .  HD3  ) 

2516 

2517 

377 

YSAREA  -  XS(  3  ,  ISI  ) 

2517 

2518 

378 

IF(  RATIO  .  LT  .  7.  .  AND  .  YSAREA  . 

GT  . 

SMINVG  .  AND  . 

2518 

2519 

379 

IJE55  . 

EQ  . 

0  )  THEN 

2519 

2520 

380 

IDISCT  -  1 

2520 

2521 

381 

DO  435  IR  -  4  .  6 

2521 

2522 

382 

IE  -  IABS(  JS(  IR  .  ISI  )  ) 

2522 

2523 

383 

1F(  JSE(  IE  )  .  EQ  .  0  )  THEN 

2523 

2524 

384 

lEDGE  =  lEDGE  +  1 

2524 

2525 

385 

IRECNC(  lEDGE  )  -  IE 

2525 

2526 

386 

NCOLOR  -  NCOLOR  +  1 

2526 

2527 

387 

JEE(  NCOLOR  )  -  IE 

2527 

2528 

388 

JSE(  IE  )  -  I 

2528 

2529 

389 

END  IF 

2529 

2530 

390 

435 

CONTINUE 

2530 

2531 

391 

CALL  VERCEH(  ISI  ) 

2531 

2532 

392 

KSOELT(  ISI  )  -  lOUMP 

2532 

2533 

393 

LTRIG  -  LTRIG  +  1 

2533 

2534 

394 

JTRIG(  LTRIG  )  =  NS  -  1 

2534 

2535 

395 

KSOELT(  NS  -  1  )  .  lOUHP 

2535 

2536 

396 

C 

2536 

2537 

397 

LTRIG  -  LTRIG  +  1 

2537 

2538 

398 

JTRIG(  LTRIG  )  -  NS 

2538 

2539 

399 

KSOELT(  NS  )  -  lOUHP 

2539 

2540 

400 

C 

2540 

2541 

401 

lEDGE  -  lEDGE  >  1 

2541 

2542 

402 

IRECNC(  lEOGE  )  =  NE 

2542 

2543 

403 

NCOLOR  -  NCOLOR  +  1 

2543 

2544 

404 

JEE(  NCOLOR  )  =  NE 

2544 

2545 

405 

JSE(  NE  )  -  1 

2545 

2546 

406 

lEDGE  >  lEOGE  +  1 

2546 

2547 

407 

IRECNCI  lEDGE  )  -  NE  -  I 

2547 

2548 

408 

NCOLOR  -  NCOLOR  +  1 

2548 

2549 

409 

JEE(  NCOLOR  )  »  NE  -  1 

2549 

2550 

410 

JSE(  NE  -  1  )  «  1 

2550 

2551 

411 

lEDGE  -  lEDGE  +  1 

2551 

2552 

412 

IRECNCI  I  EDGE  )  =  NE  -  2 

2552 

2553 

413 

NCOLOR  -  NCOLOR  +  1 

2553 

2554 

414 

JEE(  NCOLOR  )  =  NE  -  2 

2554 

2555 

415 

JSE(  NE  -  2  )  «  1 

2555 

2556 

416 

END  IF 

2556 

2557 

417 

END  IF 

2557 

2558 

418 

545 

CONTINUE 

2558 

2559 

419 

C 

2559 

2560 

420 

IF(  IDISCT  -  EQ  .  0  )  THEN 

2560 

2561 

421 

lEl  -  IABS(  JS(  4  ,  ISS  )  ) 

2561 

2562 

422 

XEl  -  X£(  I  ,  lEI  ) 

2562 

2563 

423 

IE2  -  IA8S(  JS{  5  ,  ISS  )  ) 

2563 

2564 

424 

XE2  -  XE(  1  .  IE2  ) 

2564 
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2565 

425 

IE3  -  1A8S(  JS{  6  .  ISS  ) 

) 

2566 

426 

XE3  -  XE(  1  .  IE3  ) 

2567 

427 

lEDIST  -  !E1 

2568 

428 

XEDIST  .  XEl 

2569 

429 

1F(  XE2  .  GT  .  XEDIST  )  THEN 

2570 

430 

XEDIST  -  XE2 

2571 

431 

lEOIST  >  IE2 

2572 

432 

END  IF 

2573 

433 

IF(  XE3  .  GT  .  XEDIST  )  THEN 

2574 

434 

XEDIST  =  XE3 

2575 

435 

lEDIST  .  1E3 

2576 

436 

END  IF 

2577 

437 

ISL  -  JE{  3  .  lEDlST  ) 

2578 

438 

ISR  -  JE(  4  .  lEDIST  ) 

2579 

439 

XSISL  •  XS(  3  .  ISL  ) 

2580 

440 

XSISk  -  XS{  3  .  ISR  ) 

2581 

441 

IJE5  -  JE(  5  ,  lEDIST  ) 

2582 

442 

IF(  XSISL  .  GT  .  RMINVG  . 

AND 

2583 

443 

IJE5  .  EO  .  0  .  AND  . 

IRAl 

2584 

444 

IF(  ISS  .  NE  .  ISL  )  THEN 

2585 

445 

00  345  IR  -  4  .  6 

2586 

446 

IE  «  lABSI  JS(  IR  ,  ISL  ) 

) 

2587 

447 

IF(  JSE(  IE  )  .  EQ  .  0  )  THEN 

2588 

448 

lEOGE  =  [EDGE  +  1 

2589 

449 

1RECHC(  lEDGE  )  =  IE 

2590 

450 

NCOLOR  =  NCOLOR  +  1 

2591 

451 

JEE(  NCOLOR  )  =  IE 

2592 

452 

JSE(  IE  )  =  1 

2593 

453 

END  IF 

2594 

454 

345 

CONTINUE 

2595 

455 

END  IF 

2596 

456 

C 

2597 

457 

IF(  ISS  .  NE  .  ISR  )  THEN 

2598 

458 

DO  355  IR  -  4  .  6 

2599 

459 

IE  -  IABS(  JS(  IR  .  ISR  ) 

) 

2600 

460 

IF{  JSE(  IE  )  .  EQ  .  0  )  THEN 

2601 

461 

lEDGE  «  I  EDGE  +  1 

2602 

462 

IRECHC(  lEOGE  )  •  IE 

2603 

463 

NCOLOR  -  NCOLOR  +  1 

2604 

464 

JEE(  NCOLOR  )  >  IE 

2605 

465 

JSE(  IE  )  =  1 

2606 

466 

END  IF 

2607 

467 

355 

CONTINUE 

2608 

468 

END  IF 

2609 

469 

C 

2610 

470 

IDONE  »  0 

2611 

471 

CALL  DISECT  (  lEDIST  .  IDONE  . 

2612 

472 

IF(  IDONE  .  EQ  .  1  )  THEN 

2613 

473 

c 

2614 

474 

LTRIG  =  LTRIG  +  1 

2615 

475 

JTRIG(  LTRIG  )  -  NS 

2616 

476 

KSOELT(  NS  )  =  lOUMP 

2617 

477 

LTRIG  >  LTRIG  +  1 

2618 

478 

JTRIG(  LTRIG  )  -  NS  -  1 

2619 

479 

KSOELT(  NS  -  1  )  =  IDUMP 

2620 

480 

c 

2621 

481 

lEDGE  -  lEDGE  +  1 

2622 

482 

IRECNC(  lEDGE  )  =  NE 

2623 

483 

NCOLOR  -  NCOLOR  +  1 

2624 

484 

JEE{  NCOLOR  )  =  NE 

2625 

485 

JSE{  HE  )  =  1 

2626 

486 

lEDGE  «  lEDGE  +  1 

2627 

487 

IRECNC(  I  EDGE  )  -  NE  -  1 

2628 

488 

NCOLOR  -  NCOLOR  +  1 

2629 

489 

JEE(  NCOLOR  )  =■  NE  -  1 

2630 

490 

JSE{  NE  -  1  )  =  1 

2631 

491 

I EDGE  -  I  EDGE  *  1 

2632 

492 

IRECNC(  lEDGE  )  =  NE  -  2 

2633 

493 

NCOLOR  -  NCOLOR  +  1 

2634 

494 

JEE(  NCOLOR  )  -  NE  -  2 

2635 

495 

JSE(  NE  -  2  )  -  1 

2636 

496 

END  IF 

2637 

497 

c 

2638 

498 

END  IF 

RMIHVG 

THEN 
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2639 

499 

END  IF 

2639 

2640 

500 

END  IF 

2640 

2641 

501 

END  IF 

2641 

2642 

502 

C 

2642 

2643 

503 

320 

CONTINUE 

2643 

2644 

504 

C 

2644 

2645 

505 

DO  340  lEH  -  1  .  NCOLOR 

2645 

2646 

506 

IE  -  JEE(  lEH  ) 

2646 

2647 

507 

c 

2647 

2648 

508 

ISL  -  JE{  3  .  IE  ) 

2648 

2649 

509 

YSAREA  .  XS(  3  .  ISL  ) 

2649 

2650 

510 

IJE5  -  JE(  5  .  IE  ) 

2650 

2651 

511 

IF(  YSAREA  .  G£  .  RHINVG  .  AND  .  IJE5  . 

NE  .  0  )  THEN 

2651 

2652 

512 

lEl  -  IABS(  JS(  4  .  ISL  )  ) 

2652 

2653 

513 

IE2  ■=  IABS(  JS(  5  .  ISL  )  ) 

2653 

2654 

514 

IE3  -  lABST  JS(  6  .  ISL  )  ) 

2654 

2655 

515 

IJE51  -  JE(  5  .  lEl  ) 

2655 

2656 

516 

IJE52  -  JE(  5  .  1E2  ) 

2656 

2657 

517 

IJE53  -  JE(  5  .  IE3  ) 

2657 

2658 

518 

IF(  IJE51  .  NE  .  0  )  THEN 

2658 

2659 

519 

lEDIST  -  lEl 

2659 

2660 

520 

XEl  -  XE(  1  .  I£1  ) 

2660 

2661 

521 

XE2  -  XE(  1  .  IE2  ) 

2661 

2662 

522 

XE3  •  XE(  1  .  IE3  ) 

2662 

2663 

523 

END  IF 

2663 

2664 

524 

IF(  IJE52  .  NE  .  0  )  THEN 

2664 

2665 

525 

lEDISr  =  IE2 

2665 

2666 

526 

XEl  -  XE(  1  .  IE2  ) 

2666 

2667 

527 

XE2  -  XE{  1  ,  lEl  ) 

2667 

2668 

528 

XE3  -  XE(  1  ,  IE3  ) 

2668 

2669 

529 

END  IF 

2669 

2670 

530 

IF(  IJE53  .  NE  .  0  )  THEN 

2670 

2671 

531 

lEDIST  =  IE3 

2671 

2672 

532 

XEl  -  XE(  1  .  IE3  ) 

2672 

2673 

533 

XE2  •  XE(  1  ,  IE2  ) 

2673 

2674 

534 

XE3  •  XE(  1  .  lEl  ) 

2674 

2675 

535 

END  IF 

2675 

2676 

536 

XEOIST  -  1.  /  XE(  1  ,  lEOIST  ) 

2676 

2677 

537 

YE2  •  XE2  *  XEDIST 

2677 

2678 

538 

YE3  -  XE3  *  XEDIST 

2678 

2679 

539 

ZE2  •  (  YE2  -  1.5  )  *  (  YE2  -  .1  ) 

2679 

2680 

540 

ZE3  »  (  YE3  -  1.5  )  *  (  YE3  -  .1  ) 

2680 

2681 

541 

m  -  XEl  *  XEl  +  XE2  *  XE2  +  .35  *  XEl 

*  XEZ  -  XE3  • 

XE3 

2681 

2682 

542 

YY3  -  XEl  *  XEl  +  XE3  *  XE3  +  .35  *  XEl 

•  XE3  -  XEZ  * 

XEZ 

2682 

2683 

543 

IF(  ZE2  .  LT  .  .0  .  AND  .  ZE3  .  LT  .  0. 

.  AND  . 

2683 

2684 

544 

YY2  .  GT  .  0.  .  AND  .  YY3  .  GT  .  0. 

)  THEN 

2684 

2685 

545 

CALL  DISECT  (  lEDIST  ,  IDONE  .  IDUHP  ) 

2685 

2686 

546 

c 

2686 

2687 

547 

LTRIG  -  LTRIG  >  I 

2687 

2688 

548 

JTRIG(  LTRIG  )  -  NS 

2688 

2689 

549 

KSOELT(  NS  )  -  lOUMP 

2689 

2690 

550 

c 

2690 

2691 

551 

lEOGE  -  lEDGE  ^  1 

2691 

2692 

552 

IRECNC(  lEDGE  )  -  NE 

2692 

2693 

553 

NCOLOR  -  NCOLOR  +  1 

2693 

2694 

554 

JEE(  NCOLOR  )  -  NE 

2694 

2695 

555 

JSE(  NE  )  •  1 

2695 

2696 

556 

lEDGE  -  lEOGE  1 

2696 

2697 

557 

IRECNC(  lEDGE  )  -  NE  -  1 

2697 

2698 

558 

NCOLOR  -  NCOLOR  +  1 

2698 

2699 

559 

JEE(  NCOLOR  )  -  NE  -  1 

2699 

2700 

560 

JSE(  NE  -  1  )  -  1 

2700 

2701 

561 

c 

2701 

2702 

562 

ELSE 

2702 

2703 

563 

c 

2703 

2704 

564 

lEOIST  -  lEl 

2704 

2705 

565 

XEDIST  -  XEl 

2705 

2706 

566 

IF(  XE2  .  GT  .  XEOIST  )  THEN 

2706 

2707 

567 

XEDIST  -  XE2 

2707 

2708 

568 

lEDIST  -  IE2 

2708 

2709 

569 

END  IF 

2709 

2710 

570 

IF(  XE3  .  GT  .  XEDIST  )  THEN 

2710 

2711 

571 

XEDIST  -  XE3 

2711 

2712 

572 

lEDIST  -  IE3 

2712 
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1  14:16:08 

2713 

573 

2714 

574 

2715 

575 

2716 

576 

2717 

577 

2718 

578 

2719 

579 

2720 

580 

2721 

581 

2722 

582 

2723 

583 

2724 

584 

2725 

585 

2726 

586 

2727 

587 

2728 

588 

2729 

589 

2730 

590 

645 

2731 

591 

2732 

592 

2733 

593 

2734 

594 

2735 

595 

2736 

596 

2737 

597 

2738 

598 

2739 

599 

2740 

600 

655 

2741 

601 

C 

2742 

602 

2743 

603 

2744 

604 

2745 

605 

c 

2746 

606 

2747 

607 

2748 

608 

2749 

609 

2750 

610 

2751 

611 

2752 

612 

c 

2753 

613 

2754 

614 

2755 

615 

2756 

616 

2757 

617 

2758 

618 

2759 

619 

2760 

620 

2761 

621 

2762 

622 

2763 

623 

2764 

624 

2765 

625 

2766 

626 

2767 

627 

2768 

628 

c 

2769 

629 

2770 

630 

2771 

631 

2772 

632 

2773 

633 

340 

2774 

634 

C 

2775 

635 

2776 

636 

C 

2777 

637 

2778 

638 

2779 

639 

2780 

640 

2781 

641 

2782 

642 

2783 

643 

2784 

644 

370 

2785 

645 

C 

2786 

646 

300 

193  adaphd.f 
END  IF 

ISL  -  JE(  3  . 
ISR  -  JE(  4  . 
XSISL  >  XS{  3 
XSISR  -  XS(  3  , 
IJE5  »  JE(  5  , 
IF(  XSISL  .  GT 
IJE5  .  EQ  . 
DO  645  IR  .  4  . 
IE  -  IABS(  JS( 
IF(  JSE(  IE  )  . 
I EDGE  -  I EDGE  + 
IRECNC(  lEDGE  ) 
NCOLOR  =■  NCOLOR 
jEE(  NCOLOR  )  * 
JSE(  IE  )  =  1 
END  IF 
CONTINUE 
DO  655  IR  -  4  . 
IE  -  IA0S(  JS( 
IF(  JS£(  IE  )  . 
I EDGE  -  lEOGE  + 
1RECNC(  I  EDGE  ) 
NCOLOR  -  NCOLOR 
JEE(  NCOLOR  )  = 
JSE(  IE  )  »  1 
END  IF 
CONTINUE 
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lEDIST  ) 
lEDlST  ) 

,  ISL  > 

.  ISR  ) 
lEDIST  ) 

.  RMINVG  . 
.  0  )  THEN 
.  6 
IR  . 

.  EO 

f  1 


AND  .  XSISR  .  GT  .  RMINVG  .  AND 


ISL  )  ) 

0  )  THEM 


IE 

I 


IE 


6 

IR  . 
EQ  . 
I 

-  IE 
+  1 
IE 


ISR  )  ) 

0  )  THEN 


IDONE  °  0 

CALL  DISECT  (  lEDIST  ,  IDONE 
IF(  IDONE  .  EQ  .  1  )  THEN 

LTRIG  -  LTRIG  +  1 
JTRIG(  LTRIG  )  >  NS 
KSOELT(  NS  )  =  lOUMP 
LTRIG  •  LTRIG  +  1 
JTRIG(  LTRIG  )  =  MS  -  I 
KSOELT(  NS  -  I  )  -  IDUMP 


lEDGE  «  lEDGE  +  1 
1RECNC(  lEDGE  )  -  NE 
NCOLOR  -  NCOLOR  +  I 
JEE(  NCOLOR  )  =  NE 
JSE(  NE  )  >  1 
lEDGE  -  I  EDGE  +  I 
IRECNC(  lEOGE  )  -  NE 
NCOLOR  >  NCOLOR  t  1 
JEE{  NCOLOR  )  -  NE  - 
JSE(  NE  -  I  )  »  1 
lEDGE  -  lEOGE  +  1 
IRECNCC  lEDGE  )  =  NE 
NCOLOR  -  NCOLOR  1 
JEE(  NCOLOR  )  *  NE  - 
JSE(  NE  -  2  )  -  1 

END  IF 
END  IF 
END  IF 
END  IF 
CONTINUE 

NSS  -  LTRIG 


IDUMP  ) 


-  2 


DO  370  lEH  -  I  , 
IE  -  JEE(  lEH  ) 
CALL  RECNC(  IE  , 
CALL  RECNC(  JA  . 
CALL  RECNCI  JB  , 
CALL  RECNC(  JC  . 
CALL  RECNC(  JD  , 
CONTINUE 

CONTINUE 


NCOLOR 
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2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 


IDONE 

ITL  , 

ITR 

JA  . 

JB  ,  JC 

.  JO  ) 

2779 

JAOONE 

,  ITL 

,  HR 

,  JAA 

,  JAB  . 

JAC 

JAD 

) 

2780 

JBDONE 

,  ITL 

,  ITR 

,  JBA 

,  JBB  . 

JBC 

J8D 

) 

2781 

JCOONE 

.  ITL 

,  ITR 

.  JCA 

.  JCB  , 

JCC 

JCD 

) 

2782 

JDDONE 

.  ITL 

.  ITR 

.  JDA 

,  JDB  . 

JDC 

JDO 

) 

2783 

2784 

2785 

2786 
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2787 

647 

C 

2787 

2788 

648 

HVECE  =  NE  /  HBL 

2788 

2789 

649 

NREME  •  NE  -  NVECE  *  HBL 

2789 

2790 

650 

NVECS  -  NS  /  HBL 

2790 

2791 

651 

NREMS  >  NS  -  NVECS  *  HBL 

2791 

2792 

652 

NVECV  =  NV  /  HBL 

2792 

2793 

653 

NREMV  -  NV  -  NVECV  *  HBL 

2793 

2794 

654 

C 

2794 

2795 

655 

00  400  INE  -  1  .  NVECE 

2795 

2796 

656 

N0FVEE(  INE  )  -  HBL 

2796 

2797 

657 

400 

CONTINUE 

2797 

2798 

658 

NVEEE  -  NVECE 

2798 

2799 

659 

1F(  NREME  .  GT  .  0  )  THEN 

2799 

2800 

660 

NVEEE  >  NVECE  +  1 

2800 

2801 

661 

NOFVEE(  NVEEE  )  *  NREME 

2801 

2802 

662 

END  IF 

2802 

2803 

663 

C 

2803 

2804 

664 

DO  410  INS  -  1  .  NVECS 

2804 

2805 

665 

NOFVES(  INS  )  =  HBL 

2805 

2806 

666 

410 

CONTINUE 

2806 

2807 

667 

NVEES  -  NVECS 

2807 

2808 

668 

IF(  NREMS  .  GT  .  0  )  THEM 

2808 

2809 

669 

NVEES  -  NVECS  +  1 

2809 

2810 

670 

NOFVESI  NVEES  )  »  NREMS 

2810 

2811 

671 

END  IF 

2811 

2812 

672 

C 

2812 

2813 

673 

00  420  INV  -  1  ,  NVECV 

2813 

2814 

674 

NOFVEV(  INV  )  =  HBL 

2814 

2815 

675 

420 

CONTINUE 

2815 

2816 

676 

NVEEV  -  NVECV 

2816 

2817 

677 

IF(  NREMV  .  GT  .  0  )  THEM 

2817 

2818 

678 

NVEEV  -  NVECV  +  1 

2818 

2819 

679 

NOFVEV(  NVEEV  )  =  NREMV 

2819 

2820 

680 

END  IF 

2820 

2821 

681 

c 

2821 

2822 

682 

PRINT*, NV.NE, NS 

2822 

2823 

683 

c 

2823 

2824 

684 

c  - 

-  EXIT  POINT  FROM  SUBROUTINE  — 

2824 

2825 

685 

c 

2825 

2826 

686 

c 

2826 

2827 

687 

RETURN 

2827 

2828 

688 

c 

2828 

2829 

689 

c 

2829 

2830 

690 

c 

2830 

2831 

691 

END 

2831 

page  39 


Thu  Jul 

1  14. 

16:08 

1993  adaphd.f  SUBROUTINE  DELPTNT 

2832 

1 

SUBROUTINE  DELPTNT(  OAREA  ,  IDUMP  ) 

2833 

2 

C 

2834 

3 

C— 

2835 

4 

C 

2836 

5 

C 

DELPTN  ADAPT  THE  GRID  OYNAHICALLY,  DELETE  VERTECES 

2837 

6 

C 

WILL  PLACED  TRIANGLES  FOR  DELETION 

2838 

7 

C 

2839 

8 

C— 

2840 

9 

C 

2841 

10 

IMPLICIT  REAL  (A-H.O-Z) 

2842 

11 

C 

2843 

12 

include  'onshOO.h* 

2844 

13 

include  'chydOO.h' 

2845 

14 

include  'cintOO.h' 

2846 

15 

include  'cphslO.h' 

2847 

16 

include  'cphs20.h‘ 

2848 

17 

C 

2849 

18 

INTEGER  JTRIG(HEH) .KTRIG{HEH) . IRECNC(MEH) 

2850 

19 

INTEGER  JSE(HEM) , JEE(HEM) , I0F0VS( 10) . NOFDVSf 10) 

2851 

20 

INTEGER  IITRIG{200) 

2852 

21 

REAL  A0FCTR(8).DLFCTR(8) 

2853 

22 

C 

2854 

23 

EQUIVALENCE  (UL.JTRIG) 

2855 

24 

EQUIVALENCE  (VR.KTRIG) 

2856 

25 

EQUIVALENCE  (VL.IRECNC) 

2857 

26 

EQUIVALENCE  (PR.JSE) 

2858 

27 

EQUIVALENCE  (PL.JEE) 

2859 

28 

c 

2860 

29 

OLfCTR(  1  )  «  OAREA 

2861 

30 

OLFCTRI  2  )  >  .4 

2862 

31 

DLFCTR(  3  )  >  ,5 

2863 

32 

OLFCTR(  4  }  =■  .65 

2864 

33 

DLFCTR(  5  )  -  .8 

2865 

34 

c 

2866 

35 

SMIHVG  .  SAREVG  •  DAREA 

2867 

36 

DO  112  IS  »  1  .  NS 

2868 

37 

JSOELT(  IS  )  -  0 

2869 

38 

112 

CONTINUE 

2870 

39 

ISOELT  .  0 

2871 

40 

C 

2872 

41 

NSS  >  0 

2873 

42 

FLUXPP  =  .00001  *  HYOMOH(  4  ) 

2874 

43 

FLUXUU  =  .00001  *  HYOHOM(  2  ) 

2875 

44 

FLUXRR  »  .00001  *  HYOHOH(  1  ) 

2876 

45 

00  120  IS  =  1  ,  NS 

2877 

46 

PCRTRY  =  HYOFLX(  IS  ,  4  )  -  FLUXPP 

2878 

47 

IPCRTR  -  SIGN(  1.  ,  PCRTRY  ) 

2879 

48 

UCRTRY  -  HYOFLXI  IS  .  2  )  -  FLUXUU 

2880 

49 

lUCRTR  .  SIGN(  1.  .  UCRTRY  ) 

2881 

50 

RCRTRY  .  HYOFLX(  IS  ,  1  )  -  FLUXRR 

2882 

51 

IRCRTR  =  SIGH(  1.  ,  RCRTRY  ) 

2883 

52 

NIOUMP  -  IDUMP  -  NAREAD 

2884 

53 

IF( 

2885 

54 

IPCRTR  -  EQ  .  -  I  .  AND  . 

2886 

55 

lUCRTR  .  EQ  .  -  1  .  AND  . 

2887 

56 

IRCRTR  .  EQ  .  -  1  .  AND  . 

2888 

57 

KSOELT(  IS  )  .  LE  .  NIDUMP  .  AND  . 

2889 

58 

KSDELTl  IS  )  .  NE  .  0  )  THEN 

2890 

59 

NSS  -  NSS  +  1 

2891 

60 

JTRI6(  NSS  )  =  IS 

2892 

61 

END  IF 

2893 

62 

120 

CONTINUE 

2894 

63 

C 

2895 

64 

PRINT*, NV.NE.NS.NSS 

2896 

65 

C 

2897 

66 

ISDELT  =  NSS 

2898 

67 

DO  210  IS  -  1  ,  NSS 

2899 

68 

JSDELTI  IS  )  =  JTRIG(  IS  ) 

2900 

69 

210 

CONTINUE 

2901 

70 

C 

2902 

71 

DO  300  KDIV  -1,1 

2903 

72 

I LOOP  -  1 

2904 

73 

310 

CONTINUE 

2905 

74 

ISS  -  JSDELTI  I LOOP  ) 
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2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 
2861 
2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 
2881 
2882 

2883 

2884 

2885 

2886 

2887 

2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 

2897 

2898 

2899 

2900 

2901 

2902 

2903 

2904 

2905 
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2906 

75 

XSAREA  =  XS(  3  .  ISS  ) 

2906 

2907 

76 

INOCTR  »  0 

2907 

2908 

77 

IF(  XSAREA  .  LT  .  SMINVG  )  THEN 

2908 

2909 

78 

C 

2909 

2910 

79 

CALL  VERDELK  ISS  .  INOCTR  .  NIDUHP  .  JJTRIG  ,  IITRIG  ) 

2910 

2911 

80 

IF(  INOCTR  .  EQ  .  1  )  THEN 

2911 

2912 

81 

ILOOP  -  1 

2912 

2913 

82 

ELSE 

2913 

2914 

83 

JSOELT(  ILOOP  )  =  0 

2914 

2915 

84 

ILOOP  =  ILOOP  +  1 

2915 

2916 

85 

END  IF 

2916 

2917 

86 

ELSE 

2917 

2918 

87 

JSDELT(  ILOOP  )  =  0 

2918 

2919 

88 

ILOOP  -  ILOOP  +  1 

2919 

2920 

89 

END  IF 

2920 

2921 

90 

C 

2921 

2922 

91 

IF{  ISOELT  .  GT  .  ILOOP  )  GO  TO  310 

2922 

2923 

92 

PRINT  *.KDIV,NW.NE,NS.DLFCTR(KOIV) 

2923 

2924 

93 

300 

CONTINUE 

2924 

2925 

94 

C 

2925 

2926 

95 

HVECE  =>  NE  /  MBL 

2926 

2927 

96 

NREME  »  NE  -  NVECE  *  MBL 

2927 

2928 

97 

MVECS  -  NS  /  MBL 

2928 

2929 

98 

NREMS  -  NS  -  NVECS  *  MBL 

2929 

2930 

99 

NVECV  «  NV  /  MBL 

2930 

2931 

100 

NREMV  >  NV  -  NVECV  *  MBL 

2931 

2932 

101 

c 

2932 

2933 

102 

00  400  INE  -  1  .  NVECE 

2933 

2934 

103 

N0FVEE(  INE  )  -  MBL 

2934 

2935 

104 

400 

CONTINUE 

2935 

2936 

105 

NVEEE  =  NVECE 

2936 

2937 

106 

IF(  NREHE  .  GT  .  0  )  THEN 

2937 

2938 

107 

NVEEE  =  NVECE  ♦  I 

2938 

2939 

108 

NOFVEE(  NVEEE  )  =  NREHE 

2939 

2940 

109 

END  IF 

2940 

2941 

110 

C 

2941 

2942 

111 

00  410  INS  -  1  .  NVECS 

2942 

2943 

112 

N0FVES(  INS  )  =  MBL 

2943 

2944 

113 

410 

CONTINUE 

2944 

2945 

114 

NVEES  -  NVECS 

2945 

2946 

115 

IF(  NREMS  .  GT  .  0  )  THEN 

2946 

2947 

116 

NVEES  -  NVECS  ♦  1 

2947 

2948 

117 

N0FVES(  NVEES  )  -  NREMS 

2948 

2949 

118 

END  IF 

2949 

2950 

119 

C 

2950 

2951 

120 

00  420  INV  >  1  ,  NVECV 

2951 

2952 

121 

NOFVEVI  INV  )  =  MBL 

2952 

2953 

122 

420 

CONTINUE 

2953 

2954 

123 

NVEEV  «  NVECV 

2954 

2955 

124 

IF(  NREMV  .  GT  .  0  )  THEN 

2955 

2956 

125 

NVEEV  -  NVECV  +  1 

2956 

2957 

126 

NOFVEV{  NVEEV  )  -  NREMV 

2957 

2958 

127 

END  IF 

2958 

2959 

128 

C 

2959 

2960 

129 

PRINT*. NV.NE, NS 

2960 

2961 

130 

C 

2961 

2962 

131 

c  — 

-  EXIT  POINT  FROM  SUBROUTINE . . . 

2962 

2963 

132 

c 

2963 

2964 

133 

c 

2964 

2965 

134 

RETURN 

2965 

2966 

135 

c 

2966 

2967 

136 

c 

2967 

2968 

137 

c 

2968 

2969 

138 

END 

2969 
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2970 

1 

SUBROUTINE  RELAXY(  IV  ) 

2970 

2971 

2 

IMPLICIT  REAL  (A-H.O-Z) 

2971 

im 

3 

C 

2972 

2973 

4 

C— 

- 1 

2973 

2974 

5 

C 

I 

2974 

2975 

6 

C 

THIS  ROUTINE  RELAX  THE  GRID  AFTER  DELETION 

1 

2975 

2976 

7 

C 

1 

2976 

2977 

8 

C— 

- 1 

2977 

2978 

9 

C 

2978 

2979 

10 

include  'cmshOO.h' 

2979 

2980 

11 

include  'chydOO.h' 

2980 

2981 

12 

include  'cintOO.h' 

2981 

2982 

13 

include  'cphslO.h* 

2982 

2983 

14 

include  'cphs20.h’ 

2983 

2984 

15 

ITRIG  =  0 

2984 

2985 

16 

lETRlG  «  0 

2985 

2986 

17 

IE  -  JV(  2  ,  IV  ) 

2986 

2987 

18 

IF(  IE  .  GT  .  0  )  THEN 

2987 

2988 

19 

C 

2988 

2989 

20 

IVl  -  JE(  1  .  IE  ) 

2989 

2990 

21 

IV2  -  JE(  2  ,  IE  ) 

2990 

2991 

22 

IF(  IVl  .  EQ  .  IV  )  THEN 

2991 

2992 

23 

ISI  «  JE(  3  ,  IE  ) 

2992 

2993 

24 

ELSE 

2993 

2994 

25 

ISI  -  JE(  4  .  IE  ) 

2994 

2995 

26 

END  IF 

2995 

2996 

27 

IS  -  ISI 

2996 

2997 

28 

C 

2997 

2998 

29 

75 

CONTINUE 

2998 

2999 

30 

C 

2999 

3000 

31 

DO  65  IR  -  1  .  3 

3000 

3001 

32 

JR  -  M00(  IR  ,  3  )  +  1 

lEA  -  !A8S{  JS(  JR  +  3  ,  IS  ) 

3001 

3002 

33 

) 

3002 

3003 

34 

IF(  lEA  .  EQ  .  IE  )  THEN 

3003 

3004 

35 

HR  -  H00{  JR  .  3  )  *  4 

3004 

3005 

36 

lEI  =  JS(  HR  .  IS  ) 

3005 

3006 

37 

lEII  "  IABS(  I£I  ) 

3006 

3007 

38 

lETRIG  -  lETRlG  +  1 

3007 

3008 

39 

JECRSS(  lETRIG  )  =■  lEII 

3008 

3009 

40 

JJR  -  MOO{  JR  +  1  .  3  )  ♦  4 

3009 

3010 

41 

lEH  -  JS(  JJR  ,  IS  ) 

3010 

3011 

42 

lER  -  IABS(  lEH  ) 

3011 

3012 

43 

lETRIG  »  lETRIG  +  1 

3012 

3013 

44 

JECRSS(  lETRIG  )  =  lER 

3013 

3014 

45 

C 

3014 

3015 

46 

IVl  =  JE(  1  .  lER  ) 

3015 

3016 

47 

IV2  *  JE(  2  .  lER  ) 

3016 

3017 

48 

IF(  IVl  .  EQ  .  IV  )  THEN 

3017 

3018 

49 

ISR  -  JE(  3  ,  lER  ) 

3018 

3019 

50 

ITRIG  =•  ITRIG  +  1 

3019 

3020 

51 

IICOLR(  ITRIG  )  =  IVZ 

3020 

3021 

52 

JSCRSS(  ITRIG  )  =  ISR 

3021 

3022 

53 

ELSE 

3022 

3023 

54 

ISR  -  JE(  4  ,  lER  ) 

3023 

3024 

55 

ITRIG  -  ITRIG  +  1 

3024 

3025 

56 

IICOLR(  ITRIG  )  -  IVl 

3025 

3026 

57 

JSCRSS{  ITRIG  )  =  ISR 

3026 

3027 

58 

END  IF 

3027 

3028 

59 

END  IF 

3028 

3029 

60 

65 

CONTINUE 

3029 

3030 

61 

C 

3030 

3031 

62 

IF(  ISR  .  NE  .  ISI  )  THEN 

3031 

3032 

63 

IS  =  ISR 

3032 

3033 

64 

IE  •  lER 

3033 

3034 

65 

GO  TO  75 

3034 

3035 

66 

END  IF 

3035 

3036 

67 

c 

3036 

3037 

68 

DO  510  IE  =  1  ,  ITRIG 

3037 

3038 

69 

c 

3038 

3039 

70 

lEH  -  H00(  IE  -  1  .  ITRIG  ) 

1 

3039 

3040 

71 

lEP  -  MOD{  IE  ,  ITRIG  )  *  1 

3040 

3041 

72 

lEI  -  H00(  IE  *  1  ,  ITRIG  )  + 

1 

3041 

3042 

73 

c 

3042 

3043 

74 

IVl  «  IICOLR(  lEM  ) 

3043 
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3044 

75 

IV2  -  iiC0LR(  lEP  ' 

3044 

3045 

76 

IV3  .  1IC0LR(  IE  I  ) 

3045 

3C46 

77 

C 

3046 

3047 

78 

XI  -  XV(  1  .  IVl  )  -  XV(  1  .  1V2  ) 

3047 

3048 

79 

Y1  -  XV(  2  ,  lUl  )  -  XV(  2  .  IV2  ) 

3048 

3049 

30 

X2  -  A\/(  1  .  IV3  )  -  XV(  1  ,  1V2  ) 

3049 

3050 

81 

Y2  -  XV(  2  .  IV3  )  -  XV(  2  .  1V2  ) 

3050 

3051 

82 

XSIH  -  (  X2  *  YI  -  XI  *  Y2  ) 

3051 

3052 

83 

XCOS  =  {  XI  *  X2  +  Y1  *  Y2  ) 

3052 

3053 

84 

ANGLE(  IE  )  "  XSIN  /  (  A8S(  XCOS  )  +  l,E-7  ) 

3053 

3054 

85 

IF(  ANGLE(  IE  )  .  LT  .  0.  )  RETURN 

3054 

3055 

86 

C 

3055 

3056 

87 

510 

CONTINUE 

3056 

3057 

88 

C 

3057 

3058 

89 

XSUH  «  0. 

3058 

3059 

90 

YSUH  •  0. 

3059 

3060 

91 

HSUMR  -  0. 

3060 

3061 

92 

HSUHU  -  0. 

3061 

3062 

93 

HSUMV  -  0. 

3062 

3063 

94 

HSUMP  =  0. 

3063 

3064 

95 

HSUMG  -  0. 

3064 

3065 

96 

C 

3065 

3066 

97 

00  110  IT  -  I  .  ITRIG 

3066 

3067 

98 

IVV  «  IICOLRC  IT  ) 

3067 

3068 

99 

C 

3068 

3069 

100 

XSUH  =  XSUH  +  XV(  1  ,  IVV  ) 

3069 

3070 

101 

YSUH  *  YSUM  +  XV(  2  .  IVV  ) 

3070 

3071 

102 

C 

3071 

3072 

103 

HSUMR  =  HSUHR  +  HYDVVV(  IVV  .  1  ) 

3072 

3073 

104 

HSUMU  -  HSUHU  +  HYDVVV(  IVV  ,  2  ) 

3073 

3074 

105 

HSUHV  =  HSUMV  +  HYOVVV(  IVV  ,  3  ) 

3074 

3075 

106 

HSUMP  =  HSUMP  +  HYOVVV(  IVV  .  4  ) 

3075 

3076 

107 

HSUMG  »  HSUMG  +  HYOVVV(  IVV  .  5  ) 

3076 

3077 

108 

110 

CONTINUE 

3077 

3078 

109 

C 

3078 

3079 

110 

XINVRG  «  1.  /  ITRIG 

3079 

3080 

111 

XV(  1  ,  IV  )  -  XSUM  *  XINVRG 

3080 

3081 

112 

XV(  2  ,  IV  )  *  YSUM  •  XINVRG 

3081 

3082 

113 

HYOWV(  IV  .  1  )  -  HSUMR  *  XINVRG 

3082 

3083 

114 

HYDVVV(  IV  ,  2  )  -  HSUMU  •  XINVRG 

3083 

3084 

115 

HYOVVV(  IV  ,  3  )  -  HSUMV  •  XINVRG 

3084 

3085 

116 

HYOVVV(  IV  .  4  )  -  HSUMP  *  XINVRG 

3085 

3086 

117 

HYDVVV(  IV  ,  5  )  •  HSUMG  •  XINVRG 

3086 

3087 

118 

C 

3087 

3088 

119 

ELSE 

3088 

3089 

120 

c 

3089 

3090 

121 

IE  -  -  IE 

3090 

3091 

122 

IVl  -  JE(  1  .  IE  ) 

3091 

3092 

123 

IV2  -  JE(  2  .  IE  ) 

3092 

3093 

124 

IF(  IVl  .  EQ  .  IV  )  THEN 

3093 

3094 

125 

ISI  -  JE(  3  ,  IE  ) 

3094 

3095 

126 

ITRIG  -  ITRIG  +  1 

3095 

3096 

127 

JSCRSSI  ITRIG  )  -  ISI 

3096 

3097 

128 

IICOLRI  ITRIG  )  =  1V2 

3097 

3098 

129 

ELSE 

3098 

3099 

130 

ISI  -  JE(  4  ,  IE  ) 

3099 

3100 

131 

ITRIG  =  ITRIG  +  1 

3100 

3101 

132 

JSCRSSI  ITRIG  )  -  ISI 

3101 

3102 

133 

IICOLRI  ITRIG  )  =■  IVl 

3102 

3103 

134 

END  IF 

3103 

3104 

135 

c 

3104 

3105 

136 

IS  -  ISI 

3105 

3106 

137 

ISI  -  0 

3106 

3107 

138 

HE  -  IE 

3107 

3108 

139 

lETRlG  -  lETRIG  ♦  1 

3108 

3109 

140 

JECRSSI  lETRIG  )  -  IE 

3109 

3110 

141 

c 

3110 

3111 

142 

670 

CONTINUE 

3111 

3112 

143 

C 

3112 

3113 

144 

00  680  IR  -  1  .  3 

3113 

3114 

145 

JR  -  MODI  IR  ,  3  )  ^  1 

3114 

3115 

146 

lEA  -  IA8SI  JSI  JR  +  3  ,  IS  )  ) 

3115 

3116 

147 

IFI  lEA  .  EQ  .  IE  )  THEN 

3116 

3117 

148 

HR  -  MODI  JR  ,  3  )♦  4 

3117 
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3U8 

149 

lEI  -  JS{  HR  .  IS  ) 

3118 

3119 

150 

lEII  >  1ABS(  lEl  ) 

3119 

3120 

151 

lETRIG  -  lETRIG  ♦  1 

3120 

3121 

152 

JECRSSI  lETRIG  )  *  lEII 

3121 

3122 

153 

JJR  -  M00(  JR  1  ,  3  )  +  4 

3122 

3123 

154 

lEM  .  JS(  JJR  .  IS  ) 

3123 

3124 

155 

lER  *  IA8S(  lEK  ) 

3124 

3125 

156 

lETRIG  -  lETRlG  +  1 

3125 

3126 

157 

JECRSS(  lETRlG  )  »  lER 

3126 

3127 

158 

C 

3127 

3128 

159 

IVl  »  JE(  1  .  lER  ) 

3128 

3129 

160 

IV2  =  JE(  2  ,  lER  ) 

3129 

3130 

161 

IF(  IVl  .  EQ  .  IV  )  THEN 

3130 

3131 

162 

ISR  -  JE(  3  ,  lER  ) 

3131 

3132 

163 

ITRIG  -  ITRIG  +  1 

3132 

3133 

164 

IICOLR(  ITRIG  )  =  IV2 

3133 

3134 

165 

JSCRSS(  ITRIG  )  =  ISR 

3134 

3135 

166 

ELSE 

3135 

3136 

167 

ISR  -  JE(  4  ,  'ER  ) 

3136 

3137 

168 

ITRIG  -  ITRIG  +  1 

3137 

3138 

169 

IICOLR(  ITRIG  )  =■  IVl 

3138 

3139 

170 

JSCRSS(  ITRIG  )  -  ISR 

3139 

3140 

171 

END  IF 

3140 

3141 

172 

END  IF 

3141 

3142 

173 

C 

3142 

3143 

174 

630 

CONTINUE 

3143 

3144 

175 

C 

3144 

3145 

176 

IF(  ISR  .  NE  .  ISl  )  THEN 

3145 

3146 

177 

IS  -  ISR 

3146 

3147 

173 

IE  -  lER 

3147 

3148 

179 

GO  TO  670 

3148 

3149 

180 

END  IF 

3149 

3150 

181 

ITRIG  -  ITRIG  -  1 

3150 

3151 

182 

C 

3151 

3152 

183 

IVl  -  JE(  1  ,  HE  ) 

3152 

3153 

184 

IV2  -  JE(  2  .  HE  ) 

3153 

3154 

185 

C 

3154 

3155 

186 

1V3  •  JE(  1  .  lER  ) 

3155 

3156 

187 

1V4  -  JE(  2  .  lER  ) 

3156 

3157 

188 

C 

3157 

3158 

189 

XI  -  XV(  1  .  IVl  )  -  XV(  1  ,  IV2  ) 

3158 

3159 

190 

Y1  -  XV(  2  .  IVl  )  -  XV(  2  .  IV2  ) 

3159 

3160 

191 

X2  -  XV(  1  IV4  )  -  XV(  1  ,  1V3  ) 

3160 

3161 

192 

Y2  -  XV(  2  ,  IV4  )  -  XV(  2  .  1V3  ) 

3161 

3162 

193 

XSIN  •  (  X2  *  Y1  -  XI  *  Y2  ) 

3162 

3163 

194 

XCOS  -  (  XI  «  X2  +  Yl  *  Y2  ) 

3163 

3164 

195 

XANGLE  =  XSIN  /  (  ABS(  XCOS  )  +  l.E-7  ) 

3164 

3165 

196 

C 

3165 

3166 

197 

IF(  ABS(  XANGLE  )  .  GT  .  I.E-3  )  RETURN 

3166 

3167 

198 

C 

3167 

3168 

199 

IVl  -  IVl 

3168 

3169 

200 

IF(  IV  .  EO  .  IVl  )  IVl  »  IV2 

3169 

3170 

201 

IVL  -  IV3 

3170 

3171 

202 

IF(  IV  .  EQ  .  IV3  )  IVL  -  IV4 

3171 

3172 

203 

IVTRIG  *  ITRIG  >  I 

3172 

3173 

204 

IIC0LR(  IVTRIG  )  =  IVL 

3173 

3174 

205 

C 

3174 

3175 

206 

DO  512  IE  »  1  ,  IVTRIG 

3175 

3176 

207 

C 

3176 

3177 

208 

lEH  *  H00(  IE  -  1  ,  IVTRIG  )  1 

3177 

3178 

209 

lEP  -  HOD(  IE  .  IVTRIG  )  ♦  I 

3178 

3179 

210 

lEI  «  M00(  IE  +  1  ,  IVTRIG  )  ♦  I 

3179 

3180 

211 

c 

3180 

3181 

212 

IVl  -  IICOLR(  lEH  ) 

3181 

3182 

213 

IV2  .  IICOLRI  lEP  ) 

3182 

3183 

214 

IV3  -  lICOLPi  lEl  ) 

3183 

3184 

215 

c 

3184 

3185 

216 

XI  =  XV(  1  .  IVl  )  -  XV(  1  ,  1V2  ) 

3185 

3186 

217 

Y1  -  XV(  2  .  IVl  )  -  XV(  2  ,  IV2  ) 

3186 

3187 

218 

X2  -  XV(  1  ,  IV3  )  -  XV(  1  ,  IV2  ) 

3187 

3188 

219 

Y2  -  XV(  2  ,  IV3  )  -  XV(  2  .  IV2  ) 

3188 

3189 

220 

XSIN  »  (  X2  *  Y1  -  XI  *  Y2  ) 

3189 

3190 

221 

XCOS  -  (  XI  *  X2  ♦  Y1  •  Y2  ) 

3190 

3191 

222 

ANGLE(  IE  )  .  XSIN  7  (  ABS(  XCOS  )  ♦  l.E-7  ) 

3191 
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3192 

223 

IE(  ANGLE(  IE  )  .  LT  .  0.  )  RETURN 

3192 

3193 

224 

C 

3193 

3194 

225 

512 

CONTINUE 

3194 

3195 

226 

C 

3195 

3196 

227 

XV(  1  .  IV  )  -  .5  *  (  XV(  1  ,  IVI  )  »  XV(  1  ,  IVL  )  ) 

3196 

3197 

228 

XV(  2  ,  IV  )  =  .5  *  {  XV(  2  .  IVl  )  +  XV{  2  ,  [VL  )  ) 

3197 

• 

3198 

229 

HYOVVV(  IV  .  1  )  -  .5  *  (  HYDVUV{  IVl  ,  1  )  ♦ 

3198 

3199 

230 

HYOVVVI  IVL  .  1  )  ) 

3199 

3200 

231 

HYOVVV(  IV  .  2  )  -  .5  *  (  HYOVVVI  IVl  ,  2  )  + 

3200 

3201 

232 

, 

HYOVVVI  IVL  ,  2  )  ) 

3201 

3202 

233 

HYOVVVI  IV  .  3  )  -  .5  *  I  HYOVVVI  IVl  ,  3  )  + 

3202 

3203 

234 

HYOVVVI  IVL  ,  3  )  ) 

3203 

3204 

235 

HYOVVVI  IV  ,  4  )  -  .5  *  I  HYOVVVI  IVI  .  4  )  * 

3204 

3205 

236 

HYOVVVI  IVL  ,  4  J  ) 

3205 

3206 

237 

HYOVVVI  IV  .  5  )  -  .5  *  I  HYOVVVI  IVI  .  5  )  ♦ 

3206 

3207 

238 

, 

HYOVVVI  IVL  .  5  )  ) 

3207 

3208 

239 

c 

3208 

3209 

240 

END  IF 

3209 

3210 

241 

c 

3210 

3211 

242 

DO  120  ISNH  -  1  .  ITRIG 

3211 

3212 

243 

MS  -  JSCRSSI  ISNN  ) 

3212 

3213 

244 

c 

3213 

• 

3214 

245 

IVl  -  JSI  1  .  INS  ) 

3214 

3215 

246 

IV2  -  JSI  2  .  INS  ) 

3215 

3216 

247 

IV3  -  JSI  3  ,  INS  ) 

3216 

3217 

248 

AX  -  XVI  1  ,  IV2  )  -  XVI  1  ,  IVl  ) 

3217 

3218 

249 

AY  -  XVI  2  .  1V2  )  -  XVI  2  ,  IVl  ) 

3218 

3219 

250 

BX  -  XVI  1  ,  IV3  )  -  XVI  1  ,  IVl  ) 

3219 

3220 

251 

BY  -  XVI  2  ,  IV3  )  -  XVI  2  ,  IVl  ) 

3220 

3221 

252 

XSI  3  ,  INS  )  =  0.5  *  I  AX  •  BY  -  AY  *  BX  ) 

3221 

w 

3222 

253 

c 

3222 

3223 

254 

SAREAI  INS  )  =  1.  /  XSI  3  .  INS  ) 

3223 

3224 

255 

HYDFLXI  INS  .  4  )  -  0. 

3224 

3225 

256 

HYOFLXI  INS  ,  1  )  -  0. 

3225 

3226 

257 

HYDFLXI  INS  ,  2  )  •  0. 

3226 

3227 

258 

KSOELTI  INS  )  •  1 

3227 

3228 

259 

c 

3228 

A 

3229 

260 

XXC  -  I  XVI  1  .  IVl  )  *  XV(  1  .  IV2  )  »  XV(  1  .  IV3  )  )  * 

3229 

w 

3230 

261 

THIRD 

3230 

3231 

262 

YYC  -  I  XVI  2  .  IVl  )  ♦  XV(  2  .  IV2  )  *  XVI  2  .  IV3  )  )  * 

3231 

3232 

263 

THIRD 

3232 

3233 

264 

XS(  1  .  INS  )  -  XXC 

3233 

3234 

265 

XS(  2  ,  INS  )  =■  YYC 

3234 

3235 

266 

c 

3235 

3236 

267 

DO  130  IR  -  1  .  MHQ 

3236 

A 

3237 

268 

HYOVI  INS  ,  IR  )  =  (  HYOVVVI  IVl  ,  IR  )  + 

3237 

3238 

269 

, 

HYOVVVI  IV2  ,  IR  )  * 

3238 

3239 

270 

HYOVVVI  IV3  ,  IR  )  )  *  THIRD 

3239 

3240 

271 

130 

CONTINUE 

3240 

3241 

272 

C 

3241 

3242 

273 

HDUH  -  1.  /  (  HYOVI  INS  ,  1  )  +  l.E-12  ) 

3242 

3243 

274 

HYOVI  INS  .  2  )  -  HYOVI  INS  .  2  )  *  HDUH 

3243 

3244 

275 

HYOVI  INS  .  3  )  •  HYOVI  INS  .  3  )  *  HDUH 

3244 

0 

3245 

276 

HYOVI  INS  .  4  )  -  I  HYOVI  INS  .  4  )  - 

3245 

3246 

277 

.5  *  HYOVI  INS  ,  1  )  * 

3246 

3247 

278 

I  HYOVI  INS  ,  2  )  *  HYOVI  INS  ,  2  )  + 

3247 

3248 

279 

, 

HYOVI  INS  ,  3  )  *  HYOVI  INS  .  3  )  )  )  * 

3248 

3249 

280 

I  HYOVI  INS  .  5  )  -  1.  ) 

3249 

3250 

281 

c 

3250 

3251 

282 

120 

CONTINUE 

3251 

3252 

283 

c 

3252 

0 

3253 

284 

DO  140  lENN  -  I  ,  lETRIG 

3253 

3254 

285 

lEN  -  JECRSSI  lENN  ) 

3254 

3255 

286 

c 

3255 

3256 

287 

JVl  -  JEI  1  ,  lEN  ) 

3256 

3257 

288 

JV2  -  JE(  2  .  lEN  ) 

325? 

3258 

289 

AX  -  XVI  1  ,  JV2  )  -  XVI  1  ,  JVl  ) 

3258 

3259 

290 

AY  -  XVI  2  ,  JV2  )  -  XVI  2  .  JVl  ) 

3259 

3260 

291 

XEI  1  ,  lEN  )  =■  SQRTI  AX  •  AX  *  AY  •  AY  ) 

3260 

0 

3261 

292 

XEREV  -  I.  /  XEI  I  .  lEN  J 

3261 

3262 

293 

XNI  lEN  )  -  AY  •  XEREV 

3262 

3263 

294 

YNI  lEN  )  >  -  AX  •  XEREV 

3263 

3264 

295 

ISSR  -  JEI  4  ,  lEN  ) 

3264 

3265 

296 

ISSL  -  JEI  3  ,  lEN  ) 

3265 
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3266 

297 

C 

3267 

298 

IF(  JE(  5  ,  lEN  )  .  NE  .  0  )  THEN 

3268 

299 

c 

3269 

300 

AA  -  XV(  1  .  jy2  )  -  XV(  1  ,  JVl  ) 

3270 

301 

BB  -  XV(  2  ,  JV2  )  -  XV(  2  .  JVl  ) 

3271 

302 

XEL  -  XS(  1  .  ISSL  ) 

3272 

303 

YEL  -  XS(  2  ,  ISSL  ) 

3273 

304 

CC  -  XEL  -  XV(  1  .  JVl  ) 

3274 

305 

DO  -  YEL  -  XV(  2  .  JVl  ) 

3275 

306 

EE  -  {  AA  *  CC  ♦  BB  •  DO  )  •  XEREV 

3276 

307 

XER  -  XV(  1  .  JVl  )  +  AA  *  EE 

3277 

308 

YER  -  XV(  2  ,  JVl  )  ♦  88  *  EE 

3278 

309 

AX  -  XER  -  XEL 

3279 

310 

AY  -  YER  -  YEL 

3280 

311 

XE(  2  .  lEN  )  "  SQRT(  AX  •  AX  ♦  AY 

3281 

312 

XEREV  .  1,  /  XE{  2  .  lEN  ) 

3282 

313 

XXH(  lEH  )  -  AX  •  XEREV 

3283 

314 

YYH(  lEN  )  *  AY  •  XEREV 

3284 

315 

X£(  2  .  lEH  )  =■  2.  *  XE(  2  .  lEN  ) 

3285 

316 

XYMIDLC  lEN  j  -  .5 

3286 

317 

XHIDL(  lEN  )  =  XER 

3287 

318 

YMIDL(  lEN  )  ’  YER 

3288 

319 

c 

3289 

320 

ELSE 

3290 

321 

c 

3291 

322 

XER  -  XS(  1  ,  ISSR  ) 

3292 

323 

YER  -  XS(  2  .  ISSR  ) 

3293 

324 

XEL  *  XS(  1  ,  ISSL  ) 

3294 

325 

YEL  -  XS(  2  ,  ISSL  ) 

3295 

326 

c 

3296 

327 

AA  -  XV{  1  ,  JV2  )  -  XV{  1  .  JVl  ) 

3297 

328 

BB  -  XV(  2  .  JV2  )  -  XV{  2  .  JVl  ) 

3298 

329 

CC  •  XEL  -  XER 

3299 

330 

00  -  YEL  -  YER 

3300 

331 

ACA  -  XER  -  XV(  1  ,  JVl  ) 

3301 

332 

080  -  YER  -  XV(  2  .  JVl  ) 

3302 

333 

EE  -  (  ACA  •  00  -  OBO  •  CC  )  /  (  AA 

3303 

334 

XmOL(  lEH  )  «  XV(  1  .  JVl  )  +  AA  • 

3304 

335 

YMIOL(  lEN  )  .  XV(  2  ,  JVl  )  ^-  BB  * 

3305 

336 

c 

3306 

337 

XEHID  .  XHIOL(  lEN  )  -  XEL 

3307 

338 

YEMIO  •  YHIOL(  lEN  )  -  YEL 

3308 

339 

c 

3309 

340 

AX  -  XER  -  XEL 

3310 

341 

AY  -  YER  -  YEL 

3311 

342 

XE(  2  ,  lEN  )  =>  SQRK  AX  *  AX  ♦  AY  ' 

3312 

343 

XEREV  .  1.  /  XE(  2  .  lEH  ) 

3313 

344 

XXN(  lEN  )  =  AX  •  XEREV 

3314 

345 

YYN(  lEN  )  =  AY  *  XEREV 

3315 

346 

c 

3316 

347 

XYMIDL(  lEN  )  -  SQRT(  XEHID  •  XEHID 

3317 

348 

c 

3318 

349 

END  IF 

3319 

350 

c 

3320 

351 

140 

CONTINUE 

3321 

352 

c 

3322 

353 

00  142  lENN  -  1  .  lETRIG 

3323 

354 

IE  -  JECRSS(  lENN  ) 

3324 

355 

CALL  RECNC(  IE  .  lOONE  .  ITL  .  ITR  , 

3325 

356 

CALL  RECNCI  JA  ,  JAOOHE  ,  ITL  .  ITR 

3326 

357 

CALL  RECHC(  JB  ,  JBDONE  ,  ITL  .  ITR 

3327 

358 

CALL  RECNC{  JC  ,  JCOOME  .  ITL  .  ITR 

3328 

359 

CALL  RECNC(  JO  ,  JOOOHE  ,  ITL  .  ITR 

3329 

360 

142 

CONTINUE 

3330 

361 

C 

3331 

362 

C  — 

EXIT  POINT  FROM  SUBROUTINE  . 

3332 

363 

C 

3333 

364 

C 

3334 

365 

RETURN 

3335 

366 

C 

3336 

367 

C 

3337 

368 

C 

3338 

369 

END 

JB  .  JC 
.  JAB  , 
.  JBB  . 
,  JCB  . 
.  JOB  , 


.  JO  ) 

JAC  ,  JAD  ) 
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3339 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 


SUBROUTINE  LAPLAC 
C 


C  * 

C  LAPUC  COMPUTE  THE  LAPLACIAN  FOR  GRID  ADAPTATION  I 

C  I 

. . I 

c 

Include  'cmshOO.h' 

include  'chydOO.h* 

include  'cintOO.h' 

include  'cphslO.h' 

include  ’cphs20.h' 

C 


REAL  RRMIDL(HBP).PPMIDL(HBP) 

REAL  R0R{3),U0R(3).V0R(3).P0R(3) 

REAL  R0L(3),U0L(3).V0L(3).P0L(3) 

C 

EPSLON  -  .025 
C 

DO  120  IS  -  1  ,  NS 
RR(  IS  )  -  0. 

RL(  IS  )  -  0. 

120  CONTINUE 
C 

C  —  BEGIN  LOOP  OVER  ALL  EDGES  IN  THE  DOMAIN  . 

C 

NEl  -  1 

NE2  =■  NOFVEEI  1  ) 

DO  90  INE  -  1  .  NVEEE 

C 

C  —  FETCH  HYDRO  QUANTITIES . . 

C 

DO  105  IE  *  NEl  .  NE2 
KE  -  IE  -  NEl  +  1 
C 

ISL  -  JE(  3  .  IE  ) 

ISR  -  JE(  4  ,  IE  ) 

C 

IF(  JE  (  5  ,  IE  )  .  £Q  .  0  )  THEN 
C 

RRMOL  «  XYMIDL(  IE  )  »  {  RGRAO{  ISR  .  1  )  - 

RGRAO(  ISL  .  1  )  )  ♦  RGRAD(  ISL  .  1  ) 

RLMDL  -  XYMIDL(  IE  )  *  (  RGRAD(  ISR  .  2  )  - 

RGRAD(  ISL  ,  2  )  )  +  RGRAD(  ISL  ,  2  ) 

PRMDL  -  XYMIDLI  IE  )  *  (  PGRAD(  ISR  ,  1  )  - 

PGRAO(  ISL  .  1  )  )  +  PGRADI  ISL  .  1  ) 

PLMOL  =  XYMIOLI  IE  )  M  PGRAD(  ISR  .  2  )  - 

PGRAD(  ISL  .  2  )  )  +  PGRAD(  ISL  ,  2  ) 

C 

ELSE 

C 

RRHDL  =  RGRAD{  ISL  .  1  ) 

RLMDL  -  RGRAO(  ISL  .  2  ) 

PRMDL  -  PGRAD(  ISL  .  1  ) 

PLMDL  »  PGRAD(  ISL  .  2  ) 

C 

END  IF 

C 

RRMIDL(  KE  )  »  (  RR«)L  *  XN(  IE  )  +  RLMDL  *  YN{  IE  )  )  * 

XE(  1  .  IE  ) 

PPMIDL(  KE  )  -  (  PRMDL  *  XN(  IE  )  +  PLW)L  *  YN(  IE  )  )  * 

XE(  1  ,  IE  ) 

C 

105  CONTINUE 
C 

DO  130  IE  =  NEl  ,  NE2 
KE  -  IE  -  NEl  +  1 
C 

ISL  -  JE(  3  ,  IE  ) 

ISR  -  JE(  4  .  IE  ) 

C 

IF(  JE(  5  ,  IE  )  .  EQ  .  0  )  THEN 
C 
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3413 

75 

RR(  ISL  )  =  HR(  15L  )  +  RRHIOL(  KE  ) 

3413 

3414 

76 

RR(  ISR  )  -  RR(  ISR  )  -  RRHIOL(  RE  ) 

3414 

3415 

77 

RL(  ISL  )  =  RL(  ISL  )  PPMIDL(  KE  ) 

3415 

3416 

78 

RL(  ISR  )  -  RL(  ISR  )  -  PPHIDLI  KE  ) 

3416 

3417 

79 

C 

3417 

3418 

80 

ELSE 

3418 

3419 

81 

C 

3419 

3420 

82 

RR(  ISL  )  -  RR(  ISL  )  *  RRHIDL(  KE  ) 

3420 

3421 

83 

RL{  ISL  )  *  RL{  ISL  )  t  PPHIDL{  KE  ) 

3421 

3422 

84 

C 

3422 

3423 

85 

END  IF 

3423 

3424 

86 

C 

3424 

3425 

87 

130 

CONTINUE 

3425 

3426 

88 

C 

3426 

3427 

89 

NEl  -  NE2  +  1 

3427 

3428 

90 

NE2  -  NE2  +  N0FVEE(  INE  +  1  ) 

3428 

3429 

91 

90 

CONTINUE 

3429 

3430 

92 

C 

3430 

3431 

93 

00  135  IS  =.  1  .  NS 

3431 

3432 

94 

ZRR  -  ABS{  RR(  IS  )  )  *  SAREA(  IS  ) 

3432 

3433 

95 

ZPR  •  ABS(  RL(  IS  )  )  *  SAREA(  IS  ) 

3433 

3434 

96 

RR(  IS  )  -  ZRR  *  SAREVG 

3434 

3435 

97 

RL(  IS  )  >  ZPR  *  SAREVG 

3435 

3436 

98 

135 

CONTINUE 

3436 

3437 

99 

C 

3437 

3438 

100 

DO  140  IS  -  1  .  NS 

3438 

3439 

101 

ZRL  -  (  RGRAO(  IS  .  1  )  •  RGRAO(  IS  ,  1 

) 

+ 

3439 

3440 

102 

RGRAD(  IS  .  2  )  »  RGRAO(  IS  .  2 

) 

)  *  SAREVG 

3440 

3441 

103 

ZPL  -  (  PGRAO(  IS  ,  1  )  *  PGRAO(  IS  .  1 

) 

3441 

3442 

104 

PGRAO(  IS  .  2  )  •  PGRAD(  IS  .  2 

) 

)  *  SAREVG 

3442 

3443 

105 

ZRR  -  ABS(  HYOV(  IS  ,  1  )  )  *  EPSLON 

3443 

3444 

106 

ZPP  -  A8S(  HYOV(  IS  ,  4  )  )  *  EPSLON 

3444 

3445 

107 

RR(  IS  )  -  RR(  IS  )  /  (  ZRL  +  ZRR  ) 

3445 

3446 

108 

RL(  IS  )  -  RL(  IS  )  /  (  ZPL  +  ZPP  ) 

3446 

3447 

109 

140 

CONTINUE 

3447 

3448 

110 

C 

3448 

3449 

111 

c  ... 

•  EXIT  POINT  FROH  SUBROUTINE  - 

... 

-  3449 

3450 

112 

c 

3450 

3451 

113 

c 

3451 

3452 

114 

RETURN 

3452 

3453 

115 

c 

3453 

3454 

116 

c 

3454 

3455 

117 

c 

... 

3455 

3456 

118 

END 

3456 
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3457 

1 

SUBROUTINE  RECNC(  IE  .  lOONE  ,  ITL  ,  ITR  ,  JA  .  JB  ,  JC  . 

JD  ) 

3457 

3458 

2 

IMPLICIT  REAL  (A-H,0-Z) 

3458 

3459 

3 

C 

3459 

3460 

4 

C— 

—  I 

3460 

3461 

5 

C 

1 

3461 

3462 

6 

C 

THIS  ROUTINE  CHECKS  FOR  RECONNECTION  OF  EDGE  HUMBER  IE 

I 

3462 

3463 

7 

C 

TO  GET  A  BETTER  CONNECTIVITY  BETWEEN  ADJACENT  TRIANGLES 

I 

3463 

3464 

8 

C 

USED  AFTER  ADDITION  AND  DELETION 

1 

3464 

3465 

9 

C 

I 

3465 

3466 

10 

c— 

—  I 

3466 

3467 

11 

c 

3467 

3468 

12 

include  'cmshOO.h* 

3468 

3469 

13 

include  'chydOO.h' 

3469 

3470 

14 

include  'clntOO.h' 

3470 

3471 

15 

include  'cphslO.h' 

include  'cphs20.h‘ 

3471 

3472 

16 

3472 

3473 

17 

c 

3473 

3474 

18 

EROR  -  l.OE-3 

3474 

3475 

19 

c 

3475 

3476 

20 

IDONE  •  0 

3476 

3477 

21 

IF(  IE  .  EQ  .  0  )  RETURN 

3477 

3478 

22 

IF(  JE(  5  ,  IE  )  .  NE  .  0  )  RETURN 

3478 

3479 

23 

ITR  -  JE(  4  ,  IE  ) 

3479 

3480 

24 

ITL  -  JE(  3  ,  IE  ) 

3480 

3481 

25 

c 

3481 

3482 

26 

c 

IDENTIFY  VERTICES 

3482 

3483 

27 

c 

3483 

3484 

28 

11  -  JE(  1  ,  IE  ) 

3484 

3485 

29 

12  -  JE(  2  .  IE  ) 

3485 

3486 

30 

DO  1  IV  •  1  .  3 

3486 

3487 

31 

ID  -  JS(  IV  ,  ITL  ) 

3487 

3488 

32 

IF(  ID  .  HE  .  11  .  AND  .  ID  .  NE  .  12  )  THEN 

3488 

3489 

33 

14  -  ID 

3489 

3490 

34 

IV4  -  IV 

3490 

3491 

35 

END  IF 

3491 

3492 

36 

1 

CONTINUE 

3492 

3493 

37 

c 

3493 

3494 

38 

00  3  IV  •  1  ,  3 

3494 

3495 

39 

ID  -  JS{  IV  ,  ITR  ) 

3495 

3496 

40 

IF(  ID  .  NE  .  11  .  AMO  .  ID  .  NE  .  12  )  THEN 

3496 

3497 

41 

13  •  ID 

3497 

3498 

42 

IV3  -  IV 

3498 

3499 

43 

END  IF 

3499 

3500 

44 

3 

CONTINUE 

3500 

3501 

45 

C 

IT  HAY  HAPPEN  THAT  13  IS  14. 

3501 

3502 

46 

IF(  13  .  EQ  .  14  )  GO  TO  999 

3502 

3503 

47 

C 

3503 

3504 

48 

c 

COMPARE  OPPOSING  ANGLE  PAIRS  IN  THE  QUADRILATERAL  AND  RECONNECT  TO 

3504 

3505 

49 

c 

PRESERVE  DIAGONAL  DOMINANCE  OF  THE  POISSON  SOLVER. 

3505 

3506 

50 

c 

3506 

3507 

51 

AX  -  XV(  1  .  13  )  -  XV(  1  .  11  ) 

3507 

3508 

52 

AY  -  XV(  2  ,  13  )  -  XW(  2  .  11  ) 

3508 

3509 

53 

BX  -  XV(  1  .  14  )  -  XV(  1  ,  11  ) 

3509 

3510 

54 

BY  -  XV(  2  .  14  )  -  XV(  2  .  11  ) 

3510 

3511 

55 

CX  -  XV(  1  ,  14  )  -  XV(  1  .  12  ) 

3511 

3512 

56 

CY  -  XV(  2  ,  14  )  -  XV(  2  ,  12  ) 

3512 

3513 

57 

OX  -  XV{  1  .  13  )  -  XV(  1  ,  12  ) 

3513 

3514 

58 

OY  -  XV(  2  ,  13  )  -  XV(  2  .  12  ) 

3514 

3515 

59 

AI2  -  AX  *  BY  -  AY  •  BX 

3515 

3516 

60 

All  -  CX  *  OY  -  CY  •  DX 

3516 

3517 

61 

XLN  -  XE{  1  .  IE  ) 

3517 

3518 

62 

ROUNDF  =  EROR  *  XLN  *  XLN 

3518 

3519 

63 

c 

3519 

3520 

64 

c 

lA  IS  BETWEEN  11  AND  13 

3520 

3521 

65 

c 

IB  IS  BETWEEN  11  AND  14 

3521 

3522 

66 

c 

IC  IS  BETWEEN  12  AND  14 

3522 

3523 

67 

c 

ID  IS  BETWEEN  12  AND  13 

3523 

3524 

68 

c 

3524 

3525 

69 

IB  -  JS(  1V4  +  3  .  ITL  ) 

3525 

3526 

70 

ID  -  JS(  IV3  +  3  .  ITR  ) 

3526 

3527 

71 

IV4  -  MOD{  IV4  +  1  ,  3  )  ♦  1 

3527 

3528 

72 

IV3  -  M00(  IV3  >  1  .  3  )  +  1 

3528 

3529 

73 

IC  «  JS(  IV4  +  3  .  ITL  ) 

3529 

3530 

74 

lA  -  JS(  IV3  +  3  ,  ITR  ) 

3530 
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3531 

75 

C 

3532 

76 

JB  -  IABS(  IB  ) 

3533 

77 

JD  •  IA0S{  ID  ) 

3534 

78 

JA  -  IABS(  lA  ) 

3535 

79 

JC  -  IABS(  IC  ) 

3536 

30 

IF(  AI2  .  LT  .  ROUNOF  .  OR  .  All  .  LT  .  ROUHOF  )  RETURN 

3537 

81 

C 

3538 

82 

XLl  -  XE(  1  ,  JA  ) 

3539 

83 

XL2  -  XE(  1  .  JB  ) 

3540 

84 

XL3  -  XE(  1  .  JC  ) 

3541 

85 

XL4  -  XE(  1  .  JD  ) 

3542 

86 

C 

3543 

87 

XX  -  XV(  1  ,  13  )  -  XV(  1  .  14  ) 

3544 

88 

YY  -  XV(  2  .  13  )  -  XV(  2  .  14  ) 

3545 

89 

XLL  -  SQRT(  XX  •  XX  4  YY  *  YY  ) 

3546 

90 

C 

3547 

91 

AREATL  -  SAREA(  ITL  ) 

3548 

92 

AREATR  -  SAREA{  ITR  ) 

3549 

93 

ASP2  -  AREATL  *  XL2  *  XL2 

3550 

94 

ASP3  -  AREATL  *  XL3  •  XL3 

3551 

95 

ASPTL  -  AREATL  *  XLN  *  XLN 

3552 

96 

ASPl  «  AREATR  •  XLl  *  XLl 

3553 

97 

ASP4  -  AREATR  *  XL4  •  XL4 

3554 

98 

ASPTR  -  AREATR  *  XLN  *  XLN 

3555 

99 

ASPN  >  AHAX1{  ASPTL  .  ASPTR  .  ASPl  ,  ASP2  ,  ASP3  ,  ASP4  ) 

3556 

100 

C 

3557 

101 

XSISR  =  0.5  *  AI2 

3558 

102 

XSIHSR  »  1.  /  XSISR 

3559 

103 

C 

3560 

104 

XSISL  >  0.5  *  All 

3561 

105 

XSINSL  =  1.  /  XSISL 

3562 

106 

C 

3563 

107 

ASP2  •  XSINSR  *  XL2  *  XL2 

3564 

108 

ASPl  •  XSINSR  *  XLl  *  XLl 

3565 

109 

ASPSR  -  XSINSR  *  XLL  •  XLL 

3566 

110 

ASP3  =■  XSINSL  •  XL3  •  XL3 

3567 

111 

ASP4  -  XSINSL  *  XL4  •  XL4 

3568 

112 

ASPSL  -  XSINSL  *  XLL  •  XLL 

3569 

113 

ASPL  -  AMAXK  ASPSL  .  ASPSR  .  ASPl  .  ASP2  .  ASP3  ,  ASP4  ) 

3570 

114 

C 

3571 

115 

IF(  ASPN  .  LT  .  ASPL  )  RETURN 

3572 

116 

C 

YES.  REDRAW  LIKE-  THE  OLD  CONNECTION  VIOLATES  DIAGONAL  DOMINANCE 

3573 

117 

C 

DRAW  LINE  DIRECTED  FROM  14  TO  13 

3574 

118 

C 

HE  HAVE  LEFT  JE(  3  .  IE  )  THE  SAME  SINCE  IE  IS  STILL  INTERNAL. 

3575 

119 

IDONE  -  I 

3576 

120 

JE(  1  ,  IE  )  -  14 

3577 

121 

JE(  2  ,  IE  )  -  13 

3578 

122 

XE(  1  ,  IE  )  -  XLL 

3579 

123 

C 

3580 

124 

c 

ITR  IS  STILL  TO  THE  RIGHT,  ITL  TO  THE  LEFT  OF  THE  NEW  LINE  IE  . 

3581 

125 

c 

FIND  THE  OTHER  DIRECTED  LINE  SEGMENTS 

3582 

126 

c 

3583 

127 

DO  30  I  >  1  ,  2 

3584 

128 

IM5  -  5  -  1 

3585 

129 

IF(  JE(  IH5  ,  JB  )  .  NE  .  ITL  )  GO  TO  26 

3586 

130 

JE(  IMS  .  JB  )  -  ITR 

3587 

131 

26 

CONTINUE 

3588 

132 

IF(  JE{  IH5  ,  JO  )  .  NE  .  ITR  )  GO  TO  28 

3589 

133 

JE(  IMS  ,  JD  )  -  ITL 

3590 

134 

28 

CONTINUE 

3591 

135 

30 

CONTINUE 

3592 

136 

C 

3593 

137 

C 

RESET  JS(  1  -  6  ,  ITL  AND  ITR  ) 

3594 

138 

C 

START  BOTH  TRIANGLES  AT  14  WITH  (  AND  PUT  IN  COUNTERCLOCKWISE 

3595 

139 

C 

MANNER) 

3596 

140 

JS{  4  .  ITR  )  -  IB 

3597 

141 

JS{  5  ,  ITR  )  -  lA 

3598 

142 

JS(  6  .  ITR  )  -  -  IE 

3599 

143 

JS(  1  ,  ITR  )  -  14 

3600 

144 

JS(  2  ,  ITR  )  -  11 

3601 

145 

JS(  3  ,  ITR  )  =  13 

3602 

146 

JS(  4  ,  ITL  )  «  IE 

3603 

147 

JS{  5  .  ITL  )  -  ID 

3604 

148 

JS(  6  ,  ITL  )  -  IC 
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3605 

149 

JS(  1  .  ITL  )  >  14 

3605 

3606 

150 

JS(  2  .  ITL  )  =  13 

3606 

3607 

151 

JS(  3  ,  ITL  )  -  12 

3607 

3608 

152 

C 

3608 

3609 

153 

IF(  JV(  2  .  11  )  .  GT  .  0  )  JV{  2  ,  11  )  -  JA 

3609 

3610 

154 

IF(  JV(  2  ,  12  )  .  GT  .  0  )  JV(  2  ,  12  )  -  JC 

3610 

3611 

155 

C 

3611 

3612 

156 

XEL  -  (  XV(  1  .  13  )  +  XV(  1  .  12  )  +  XV(  1  ,  14  ) 

) 

*  THIRD 

3612 

3613 

157 

YEL  -  (  XV(  2  ,  13  )  +  XV(  2  .  12  )  +  XV(  2  .  14  ) 

) 

*  THIRD 

3613 

3614 

158 

XER  -  (  XV(  1  ,  13  )  ♦  XW(  1  .  11  )  +  XV(  1  ,  14  ) 

) 

•  THIRD 

3614 

3615 

159 

YER  -  (  XV(  2  ,  13  )  ♦  XV(  2  .  11  )  +  XV(  2  ,  14  ) 

) 

»  THIRD 

3615 

3616 

160 

c 

3616 

3617 

161 

00  92  IR  •  1  ,  MHQ 

3617 

3618 

162 

HYDV(  ITL  .  IR  )  -  (  HYDWW(  13  ,  IR  )  + 

3618 

3619 

163 

a 

HYDWV(  12  .  IR  )  + 

3619 

3620 

164 

, 

HYOVVV(  14  .  IR  )  )  ‘  THIRD 

3620 

3621 

165 

C 

3621 

3622 

166 

HYOV(  ITR  .  IR  )  -  (  HYDVW(  13  .  IR  )  + 

3622 

3623 

167 

, 

HYDWV(  11  .  IR  )  + 

3623 

3624 

166 

a 

HYDWV{  14  .  IR  )  )  *  THIRD 

3624 

3625 

169 

92 

CONTINUE 

3625 

3626 

170 

C 

3626 

3627 

171 

HDUH  =  1.  /  (  HYOV{  ITL  .  1  )  +  1.E-I2  ) 

3627 

3628 

172 

HYDV(  ITL  .  2  )  =  HYDV(  ITL  ,  2  )  *  HDUH 

3628 

3629 

173 

HYDV{  ITL  .  3  )  -  HYOV(  ITL  .  3  )  »  HDUH 

3629 

3630 

174 

HYDV{  ITL  ,  4  )  =  (  HYOV(  ITL  .  4  )  - 

3630 

3631 

175 

.5  *  HYDV(  ITL  .  1  )  • 

3631 

3632 

176 

a 

(  HYOV(  ITL  ,  2  )  *  HYDV(  ITL  .  2  )  + 

3632 

3633 

177 

a 

HYDV(  ITL  .  3  )  •  HYDV(  ITL  .  3  )  )  )  * 

3633 

3634 

178 

a 

(  HYDV{  ITL  .  5  )  -  1.  ) 

3634 

3635 

179 

C 

3635 

3636 

180 

HDUH  -  1.  /  (  HY0V(  ITR  ,  I  )  +  I.E-12  ) 

3636 

3637 

181 

HYOV(  ITR  .  2  )  -  HYOV{  ITR  .  2  )  •  HDUH 

3637 

3638 

182 

HY0V(  ITR  ,  3  )  •  HY0V(  ITR  ,  3  )  *  HDUH 

3638 

3639 

183 

HYOV(  ITR  .  4  )  -  (  HY0V(  ITR  ,  4  )  - 

3639 

3640 

184 

a 

.5  *  HYOV(  ITR  .  1  )  * 

3640 

3641 

165 

a 

(  HYOV(  ITR  .  2  )  *  HYDV(  ITR  ,  2  )  f 

3641 

3642 

186 

a 

HYOV(  ITR  ,  3  )  *  HYOV(  ITR  .  3  )  )  )  * 

3642 

3643 

187 

a 

(  HYDV(  ITR  .  5  )  -  1.  ) 

3643 

3644 

188 

C 

3644 

3645 

189 

RGRAOl  «  RGRAD(  ITL  .  1  )  >  RGRAO(  ITR  ,  1  ) 

3645 

3646 

190 

RGRA02  -  RGRAO(  ITL  .  2  )  +  RGRAD(  ITR  ,  2  ) 

3646 

3647 

191 

RGRAO(  ITL  .  1  )  -  .5  *  RGRADl 

3647 

3648 

192 

RGRAD(  ITR  .  1  )  -  .5  *  RGRADl 

3648 

3649 

193 

RGRAD(  ITL  .  2  )  -  .5  *  RGRAD2 

3649 

3650 

194 

RGRADl  ITR  .  2  )  »  .5  *  RGRAD2 

3650 

3651 

195 

c 

3651 

3652 

196 

UGRADl  =  UGRAD(  ITL  .  I  )  UGRAD(  ITR  ,  1  ) 

3652 

3653 

197 

UGRAD2  =  UGRAO(  ITL  .  2  )  +  UGRAD(  ITR  .  2  ) 

3653 

3654 

198 

UGRAD(  ITL  .  1  )  -  .5  *  UGRADl 

3654 

3655 

199 

UGRAO{  ITR  ,  1  )  -  .5  '  UGRADl 

3655 

3656 

200 

UGRADl  ITL  .  2  )  -  .5  *  UGRAD2 

3656 

3657 

201 

UGRADl  ITR  .  2  )  -  .5  *  UGRAD2 

3657 

3658 

202 

c 

3658 

3659 

203 

VGRADl  -  VGRADI  ITL  .  1  )  +  VGRAD(  ITR  ,  1  ) 

3659 

3660 

204 

VGRAD2  -  VGRAD(  ITL  ,  2  )  +  VGRAD{  ITR  ,  2  ) 

3660 

3661 

205 

VGRADI  ITL  ,  1  )  -  .5  •  VGRADl 

3661 

3662 

206 

VGRADI  ITR  ,  1  )  -  .5  *  VGRADl 

3662 

3663 

207 

VGRADl  ITL  .  2  )  -  .5  *  VGRAD2 

3663 

3664 

208 

VGRADI  ITR  .  2  )  -  .5  •  V6RAD2 

3664 

3665 

209 

c 

3665 

3666 

210 

PGRAOl  «  PGRADI  ITL  .  1  )  +  PGPADI  ITR  .  1  ) 

3666 

3667 

211 

PGRAD2  -  PGRADI  ITL  .  2  )  ♦  PGRADI  ITR  .  2  ) 

3667 

3668 

212 

PGRADI  ITL  .  1  )  -  .5  *  PGRADI 

3668 

3669 

213 

PGRADI  ITR  ,  1  )  -  .5  *  PGRADI 

3669 

3670 

214 

PGR«)I  ITL  ,  2  )  =  .5  *  PGRAD2 

3670 

3671 

215 

PGRADI  ITR  ,  2  )  -  .5  *  PGRAD2 

3671 

3672 

216 

c 

3672 

3673 

217 

XSI  1  ,  ITL  )  -  XEL 

3673 

3674 

218 

XSI  2  .  ITL  )  -  YEL 

3674 

3675 

219 

XSI  1  .  ITR  )  -  XER 

3675 

3676 

220 

XSI  2  .  ITR  )  *  YER 

3676 

3677 

221 

c 

3677 

3678 

222 

XSI  3  .  ITR  )  -  XSISR 

3678 
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3679 

223 

3680 

224 

C 

3681 

225 

3682 

226 

3683 

227 

C 

3684 

228 

3685 

229 

3686 

230 

3687 

231 

3688 

232 

3689 

233 

c 

3690 

234 

3691 

235 

3692 

236 

3693 

237 

3694 

238 

3695 

239 

3696 

240 

3697 

241 

3698 

242 

3699 

243 

3700 

244 

3701 

245 

3702 

246 

3703 

247 

c 

3704 

248 

3705 

249 

3706 

250 

3707 

251 

3708 

252 

3709 

253 

3710 

254 

3711 

255 

3712 

256 

3713 

257 

3714 

258 

3715 

259 

3716 

260 

3717 

261 

3718 

262 

3719 

263 

3720 

264 

3721 

265 

3722 

266 

3723 

267 

c 

3724 

268 

3725 

269 

c 

3726 

270 

3727 

271 

3728 

272 

3729 

273 

3730 

274 

c 

3731 

275 

3732 

276 

3733 

277 

3734 

278 

3735 

279 

3736 

280 

3737 

281 

3738 

282 

3739 

283 

3740 

284 

c 

3711 

285 

3742 

286 

3743 

287 

c 

3744 

288 

3745 

289 

3746 

290 

3747 

291 

3748 

292 

3749 

293 

3750 

294 

c 

3751 

295 

3752 

296 

c 
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XS(  3  .  ITL  ) 

-  XSISL 

SAREA(  ITL  )  = 

=  XSINSL 

SAREA(  ITR  )  • 

■  XSINSR 

JEN(  1  )  -  JA 

JEN<  2  )  -  JB 

JEN(  3  )  .  JC 

JEM(  4  )  -  JO 

JEH(  5  )  -  IE 

DO  80  lENN  -  1 

.  5 

lEh  -  JEN(  lEHN  ) 

JVl  -  JE(  1  . 

lEN  ) 

JV2  -  JE{  2  . 

lEN  ) 

AX  -  XV<  1  .  JV2  )  -  XV( 

AY  -  XV(  2  ,  JV2  )  -  XV( 

XEREV  -  1.  /  XE{  1  ,  lEH 

XN(  lEN  )  -  AY 

*  XEREV 

YN(  lEN  )  -  - 

AX  •  XEREV 

ISSR  •  JE{  4  . 

lEN  ) 

ISSL  -  JE(  3  . 

lEN  ) 

IJE5  -  JE(  5  , 

lEN  ) 

1F(  IJE5  .  NE 

.  0  )  THEN 

AA  -  XV(  1  ,  JV2  )  -  XV(  1  ,  JVl  ) 

BB  •  XV(  2  .  JV2  )  -  XV(  2  .  JVl  ) 

XEL  »  XS(  1  .  ISSL  ) 

YEL  -  XS(  2  ,  ISSL  ) 

CC  -  XEL  -  XV(  1  .  JVl  ) 

DO  -  YEL  -  XV(  2  ,  JVl  ) 

EE  -  (  AA  •  CC  +  BB  •  DO  )  *  XEREV  *  XEREV 

XER  -  XV(  1  ,  JVl  )  +  AA  *  EE 

YER  -  XV(  2  .  JVl  )  +  Bfl  *  EE 

AX  •  XER  -  XEL 
AY  -  YER  -  YEL 

XE(  2  .  lEN  )  -  SQRT(  AX  *  AX  +  AY  *  AY  ) 

XEREV  -  1.  /  XE(  2  .  lEH  ) 

XXH(  lEN  )  •  AX  •  XEREV 
YYN(  lEN  )  .  AY  •  XEREV 
XE(  2  .  lEK  )  -  2.  *  XE(  2  .  lEN  ) 

XYMIDL(  lEN  )  .  ,5 
XNIDL(  lEN  )  -  XER 
YHIDL(  lEN  )  -  YER 

ELSE 

XER  -  XS(  1  .  ISSR  ) 

YER  -  XS(  2  .  ISSR  ) 

XEL  -  XS(  1  ,  ISSL  ) 

YEL  -  XS(  2  ,  ISSL  ) 

AA  -  XV(  1  ,  JV2  )  -  XV(  I  .  JVl  ) 

BB  -  XV(  2  .  JV2  )  -  XV(  2  ,  JVl  ) 

CC  -  XEL  -  XER 
DO  -  YEL  -  YER 
ACA  -  XER  -  XV(  I  .  JVl  ) 

DBO  -  YER  -  XV(  2  .  JVl  ) 

EE  -  (  ACA  •  OD  -  OBD  *  CC  )  /  {  AA  *  OD  -  BB  *  CC  ) 
XMIOL(  lEN  )  =•  XV{  1  .  JVl  )  ♦  AA  *  EE 

YNIOL(  lEN  )  »  XV(  2  .  JVl  )  +  BB  »  EE 

XEMID  -  XMIDL{  lEN  )  -  XEL 
YEMIO  -  YHIDL(  lEN  )  -  YEL 

AX  -  XER  -  XEL 
AY  -  YER  -  YEL 

XE(  2  ,  lEH  )  =  S0RT(  AX  »  AX  ♦  AY  *  AY  ) 

XEREV  -  1.  /  XE(  2  .  lEK  ) 

XXN(  lEN  )  *  AX  •  XEREV 
yYH(  lEN  )  -  AY  *  XEREV 

XYMIOL(  lEH  )  .  SqRT(  XEHID  *  XEMID  +  YEMIO  *  YEMIO  ) 


XEREV 
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3680 

3681 

3682 

3683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

3714 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 
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3753 

297 

END  IF 

3753 

3754 

298 

C 

3754 

3755 

299 

80 

CONTINUE 

3755 

3756 

300 

C 

3756 

3757 

301 

RETURN 

3757 

3758 

302 

C 

3758 

3759 

303 

999  WRITE  (6.1000)  IE 

3759 

3760 

304 

C 

3760 

3761 

305 

C  - 

-  EXIT  POINT  FROM  SUBROUTINE  . 

.  3761 

3762 

306 

C 

3762 

3763 

307 

C 

3763 

3764 

308 

RETURN 

3764 

3765 

309 

C 

3765 

3766 

310 

C 

3766 

3767 

311 

C  - 

-  FORMATS  . 

-  3767 

3768 

312 

C 

3768 

3769 

313 

1000  FORMATCOITS  ABOUT  TO  BOHB-RECHC  ON  EDGE  ’,15) 

3769 

3770 

314 

C 

3770 

3771 

315 

C 

... 

3771 

3772 

316 

END 

3772 
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3773 

1 

SUBROUTINE  EOS  (RRR.EEE.N. GAMMA) 

3773 

3774 

2 

C 

3774 

3775 

3 

C— 

. I  3775 

3776 

4 

C 

3776 

3777 

5 

C 

AIR  IS  ASSUMED  TO  BE  CALORICALLY  IMPERFECT.  THERMALLY 

3777 

3778 

6 

C 

PERFECT.  THEREFORE,  INCLUDE  IMPERFECTIONS  VIA  A  VARIABLE 

3778 

3779 

7 

C 

GAMMA  DEPENDENTON  DENSITY  AND  INTERNAL  ENERGY. 

3779 

3780 

8 

C 

THIS  ROUTINE  PERFORMS  A  TABLE  LOOK  UP  FOR  GAMMA. 

3780 

3781 

9 

C 

3781 

3782 

10 

C— 

3783 

11 

C 

3783 

3784 

12 

C 

INPUT  VARIBLE  DEFINITIONS. 

3784 

3785 

13 

C 

RRR  -  MASS  DENSITY 

3785 

3786 

14 

C 

EEE  -  INTERNAL  ENERGY  PER  UNIT  VOLUME 

3786 

3787 

15 

C 

(CONVERTED  FOR  INTERNAL  ‘CALL  TO  ENERGY  PER  UNIT  MASS) 

3787 

3788 

16 

C 

N  -  NIWBER  OF  ENTRIES  IN  ARRAYS  RRR  S  EEE 

3788 

3789 

17 

c 

3789 

3790 

18 

PARAMETER  (M  -  64  ) 

3790 

3791 

19 

c 

3791 

3792 

20 

DIMENSION  RRR(N),  EEE(N),  GAMKA(N) 

3792 

3793 

21 

DIMENSION  Tll(M),  T12(M).  T21(M).  TZZ(M).  RHO(H).  E(H) 

3793 

3794 

22 

DIMENSION  OMP(M).  Q(M).  I(K).  J(M) 

3794 

3795 

23 

DIMENSION  G1(168).G2(112).G3(112).G4(112),G5(112), 

3795 

3796 

24 

1  G6(112),G7(112).GF(840) 

3796 

3797 

25 

c 

3797 

3798 

26 

c 

NOTE;  THE  TABLE  LOOK  UP  TREATS  ARRAY  GF  AS  THOUGH  IT 

3798 

3799 

27 

c 

WERE  DIMENSIONED  (8.105). 

3799 

3800 

28 

c 

3800 

3801 

29 

EQUIVALENCE  (G1(1).GF(  1)).  (G2(1).GF{169)) ,  (G3(1).GF(281)).  3801 

3802 

30 

t  (G4(1).GF(393)).  {G5(1).GF(505)).  (G6(1).GF(617)).  3802 

3803 

31 

1  (G7(1).GF(729)) 

3803 

3804 

32 

c 

3804 

3805 

33 

DATA  XL16E  /2. 7725887222397744835689081810414791107177734375/  3805 

3806 

34 

c — 

3806 

3807 

35 

c 

G  -  GAM1A  -  1.0  IS  STORED  FOR  32  BIT  WORD  MACHINES  IN  POWERS  OF  3807 

3808 

36 

c 

16  ACROSS  FOR  MASS  DENSITY  VARIATION  AND  INTERMEDIATE  VALUES 

3808 

3809 

37 

c 

1  -  16  FOR  POWERS  OF  16  VERTICALLY  WHICH  REPRESENT  THE  INTERNAL  3809 

3810 

38 

c 

ENERGY  VARIATION. 

3810 

3811 

39 

c 

3811 

3812 

40 

c 

16**(2)  .GE.  RHO  .GE.  16**(-6) 

3812 

3813 

41 

c 

16**(15)  .GE.  E  .GE.  16**(8) 

3813 

3814 

42 

c— 

3814 

3815 

43 

DATA  G1  /8*. 4222, 8*. 4152,8*. 4110. 8*. 4081, 8*. 4058, 8*. 4040. 

3815 

3816 

44 

!  8* , 4024 , 8* . 401 1 ,8* . 3998 . 8* . 3988 . 8* . 39  78 , 8* , 3969 . 

3816 

3817 

45 

1  8*.3961. 8*. 3953,8*. 3935.8*. 3918, 

3817 

3818 

46 

1  . 3723 . . 37 1 5 . . 3707 . . 3699 . . 3690 . . 3680 . . 3663 . . 3637 , 

3818 

3819 

47 

1  . 3555 .. 3538 .. 3522 ., 3502 .. 3476 ,. 3430 .. 3344 ,. 32 38 . 

3819 

3820 

48 

1  .3370. .3370, .3370, .3364, ,3347. .3277. .3099, .2885, 

3820 

3821 

49 

1  . 3257 , , 3227 . .3201 . .3134, . 3062 . . 3014 . . 2884 . . 2591 , 

3821 

3822 

50 

1  .3166, ,3110. .3063, .2946, ,2831, .2783, .2677, .2358/ 

3822 

3823 

51 

DATA  G2/. 3111,. 3006.. 2940.. 2787.. 2635,. 2588,, 2502,. 2236, 

3823 
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1 

.3075, .2906, .2810, .2665, .2466, ,2418, .2350, .2131, 

3825 

53 

1 

.3043, ,2819. .2695. .2554, .2317, .2269, .2216, .2038, 

3826 

54 

1 

.2929, .2740, .2593, .2455, .2206, .2136, .2097, . 1955, 

3827 

55 

i 

.2840. .2672, .2500, .2366. .2166, .2015, . 1988, .1879, 

3828 

56 

1 

.2764. .2611 . .2429, .2285, .2125, . 1890, . 1890, . 1811 . 

3829 

57 

t 

.2714, .2555, .2384, .2210, .2079, . 1818, . 1799, .1747, 

3830 

58 

! 

.2669,. 2504,. 2343.. 2141,. 2037,. 1822,. 1709,, 1689, 

3831 

59 

! 

.2624. .2473, .2304, .2096. . 1998, . 1828, . 1684, , 1639. 

3832 

60 

1 

.2599,. 2446,. 2268.. 2087,. 1961,. 1834,. 1673,. 1601, 

3833 

61 

1 

.2401,. 2191,. 1972,. 1775,. 1592,. 1444,. 1358,. 1203, 

3834 

62 

1 

.2002, . 1960, .1749, .1536. .1376, . 1252, . 1107 , . 1044. 

3835 

63 

1 

. 1911 , . 1829 , . 1633, . 1420, . 1266, .1101,. 1012, .0933, 

3836 

64 

1 

. 1950 .,1781,. 1566. . 1415, . 1241 , . 1 1 18. . 1009, ,0948/ 

3837 

65 

DATA  G3/ . 2001 . . 1 789 , . 1594, . 1443, . 1306 , . 1 189 , . 1095, . 1013 , 

3838 

66 

1 

.2040, . 1826, .1657, .1494, . 1338, .1177, ,1081, ,0980, 

3839 

67 

1 

.2034 , . 1854 . . 1683 . . 1497 . . 1322 , . 1 169 , . 1051 , .0946 , 

3840 

68 

! 

. 1969, . 1855, . 1685. . 1487. . 1304, . 1149, .1024, .0916, 

3841 

69 

1 

. 1899 .. 1837 .. 1677 .. 1475, . 1287 ..1126,. 1002 . , 0900, 

3842 

70 

1 

. 1841 ,. 1817 . . 1667, . 1464, . 1272 .,1109, .0983, .0888, 

3843 

71 

1 

. 1800 ,. 1800 .. 1659 .. 1455 .. 1262 ,. 1097 . . 0965 , . 0878 , 

3844 

72 

1 

. 1779 ,. 1 787 .. 1657 .. 1450 ,. 1254, . 1087 . . 0949, . 0868, 

3845 

73 

1 

.1773,. 1778,. 1656,. 1447.. 1250,. 1080,. 0939,. 0859, 

3846 

74 

! 

.1783, ,1778. . 1658, . 1448, . 1248, . 1076, .0933. .0851 , 

3847 

75 

! 

. 1808, , 1781 . . 1667, . 1451 . . 1248, . 1074, .0930 , .0843 . 

3848 

76 

1 

.2134,. 2040 ,. 1978, . 1782 .. 1565 . . 1368, . 1206 ,. 1074 , 

3849 

77 

1 

.2210,. 2072.. 1957,. 1739,. 1516,. 1312,. 1137,. 1000, 

3850 

78 

1 

.2245, .2109, .1989, .1772, .1563. .1390, .1247, . 1133/ 

3851 

79 

DATA  G4/ .2299, .2132, .2017, .1795, . 1579, . 1384, . 1221 , . 1090, 

3852 

80 

1 

.2350, ,2157, .2023, .1798, . 1575. .1370. .1197, .1057, 

3853 

81 

! 

.2397,. 2194,. 2034,. 1796,. 1572,. 1372,. 1205,. 1070, 

3854 

82 

1 

. 2452 . . 222 7 . . 2050 . . 1805 . . 1576, . 1379 . , 1236 . . 1 1 18 . 

3855 

83 

1 

.2510 . . 2256 . .2069 . . 1814 . . 1581 . . 1383 , . 1231 , . 1 103 . 

3856 

84 

1 

, 2560 ,, 2282 ,. 209 1 ,. 1822 .. 1585 ,. 1385 ,. 1226 ,. 1 083 . 

3857 

85 

1 

.2605, .2312 , .2111, . 1829, . 1588, . 1386, . 1222, , 1070, 

3858 

86 

1 

.2677, .2358, .2129. .1836, .1592, . 1386, .1218, .1071, 

3859 

87 

1 

.2759,. 2403.. 2145,. 1857,. 1598.. 1389,. 1219,. 1078. 

3860 

88 

1 

.2834, .2445. .2160, .1878, .1603, . 1394, . 1223, . 1084, 

3861 

89 

1 

.2905, .2484, .2175, .1898. . 1613, . 1399, . 1226, . 1090, 

3862 

90 

! 

. 2963 , . 2  531 , . 2 199, . 1918, . 1 625 , . 1407 . . 1230 , . 1096 . 

3863 

91 

1 

,4323, .3582, .3109, .2889. .2803, .2706. .2410, .2224, 

3864 

92 

1 

.4610, .4026, ,3624, .3212. .2926, .2551, .2375, .2015/ 

3865 

93 

DATA  G5/.4199, .3837, .3401, .2979, .2623, .2318, .2108, .1854, 

3866 

94 

1 

,3924,. 3642,. 3194,.2760,, 2427,. 2157,. 1902,. 1721, 

3867 

95 

1 

.3794, .3479, .3025, .2673, .2311, .2019, , 1842, . 1613, 

3868 

96 

1 

.3674, ,3448. .2961. .2593, .2255, .1994, .1785, . 1594, 

3869 

97 

1 

,3573, .3443, .2910. .2517, .2293, .2006, . 1843, . 1679, 

3870 

98 

1 

.3661, .3438, ,2935, .2597, .2336. .2225, .2143, .2116, 

3871 

99 

1 

.3674, .3435, .3080, .2728. .2606, .2577, .2573, .2573, 

3872 

100 

1 

.3685, .3453, .3210, .3014, .2942, .2933, .2932, .2932, 

3873 

101 

! 

, 3814 ,. 3612 .. 3341 .. 3276 . .3257 . . 3253 .. 3252 ,. 3252 , 

3874 

102 

1 

. 3903 , , 3752 . . 3570 , .3522 . . 3513, . 35 10 , . 3506 , . 3496 . 

3875 

103 

1 

.4012,. 3899,. 3782,. 3751,. 3743,. 3741,. 3734,. 3713, 

3876 

104 

1 

.4155, .4057, .3956. .3930, .3920. .3913, .3907 , ,3890, 

3877 

105 

1 

.4290, .4205, ,4118, .4092. .4077. .4065, .4059, .4047, 

3878 

106 

1 

.5411, .5385, .5359, .5353, .5351, .5350, .5350, .5350/ 

3879 

107 

DATA  G6/. 5823,. 5812,. 5801,. 5797,. 5796,. 5797,. 5797,. 5797, 

3880 

108 

1 

.6096, .6090, .6085, .6082, .6082, .6083,. 6083, .6083, 

3881 

109 

1 

.6308, .6306, .6305, .6303, .6303, ,6305, .6305, ,6305, 

3882 

IIQ 

1 

.6481 . .6483 , .6485 , .6483, .6484, .6486 , .6487 , .6487 , 

3883 

111 

1 

.6627,. 6632 . . 6637 , . 6636, . 6637 ,. 6640 ,. 6640 .. 6640 , 

3884 

112 

1 

.6754, .6761, ,6769, .6768, .6770, .6773, .6773, .6773, 

3885 

113 

1 

. 6866 . . 6875 , . 6885 , . 6884 . , 6886 , . 6890, . 6890 , , 6890 . 

3886 

114 

1 

. 6966 , . 6977 , . 6989 . .6989 , . 6991 . . 6995 , . 6995 . , 6995 . 

3887 

115 

! 

. 7056, . 7070, . 7083. . 7083, . 7085 , . 7090, . 7090 . . 7090 , 

3888 

116 

! 

.7139,. 7154,. 7169,. 7169,. 7172,. 7176,. 7177,. 7177, 

3889 

117 

1 

. 7214, ,7231, , 7248, . 7248, . 7251, . 7256, . 7256. . 7256, 

3890 

118 

1 

. 7285 ,. 7303, . 7321 ,. 7321 , , 7325, . 7330, . 7330 , , 7330 , 

3891 

119 

1 

.7350,. 7370,. 7390,, 7390,. 7393,. 7398,.  7399,. 7399, 

3892 

120 

! 

. 741 1 , . 7432 , . 7453, . 7454, . 7457 , . 7463 , . 7463 . . 7463/ 

3893 

121 

DATA  G7/. 8069, .8103,. 8138, ,8139, .8145, ,8152, .8153, ,8153, 

3894 

122 

I 

.8454, .8496, .8538, ,8540, .8547, .8556, .8557, .8557, 

3895 

123 

1 

.8727, .8774. .8822, .8825, .8832, .8842, .8843, .8843, 

3896 

124 

1 

. 8938 , . 8990 , . 9042 . . 9046 ,. 9054 .. 9064 ,. 9065 , . 9065 , 

3897 

125 

! 

.9111 , .9166, .9222, .9226, .9235, .9246, .9247. .9247, 
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3824 

3825 

3826 

3827 

3828 

3829 

3830 

3831 

3832 

3833 

3834 

3835 

3836 

3837 

3838 

3839 

3840 

3841 

3842 

3843 

3844 

3845 

3846 

3847 

3848 

3849 

3850 

3851 

3852 

3853 

3854 

3855 

3856 

3857 

3858 

3859 

3860 

3861 

3862 

3863 

3864 

3865 

3866 

3867 

3868 

3869 

3870 

3871 

3872 

3873 

3874 

3875 

3876 

3877 

3878 

3879 

3880 

3881 

3882 

3883 

3884 

3885 

3886 

3887 

3888 

3889 

3890 

3891 

3892 

3893 

3894 

3895 

3896 

3897 
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3898 

126 

!  .9258, .9316, .9374, .9379.. 9387, .9399, .9400, .9400, 

3898 

3899 

127 

!  .9384, .9445. .9506, .9511,. 9520, .9532, .9533, .9533, 

3899 

3900 

128 

1  . 9496 .. 9559 ,. 9622 .. 9627 .. 9637 .. 9649 , . 9650 , . 9650 , 

3900 

3901 

129 

1  .9596, .9661, .9727, .9731, .9741, .9754, .9755, .9755. 

3901 

3902 

130 

!  . 9686 , . 97 53 . . 982 1 . . 9826 . . 9836 . . 9849 . . 9850 , . 9850 , 

3902 

3903 

131 

1  .9769, .9837, .9906, .9912, .9922, .9936, ,9937, .9937, 

3903 

3904 

132 

1  . 9845 . .  991 5 . .  9986 . .  999 1 . .  9999 ,,  9999 ,.  9999 , .  9999 . 

3904 

3905 

133 

!  . 9915 . . 9987 , . 9999 . . 9999 . . 9999 . , 9999 , . 9999 , . 9999 . 

3905 

3906 

134 

1  .9981, .9999, .9999, .9999, .9999, .9999, .9999, .9999/ 

3906 

3907 

135 

C — 

3907 

3908 

136 

C 

REAL  AIR  EOS.  TABLE  LOOKUP  ON  GILMORE  DATA.  (NO  TEMP.  MODEL) 

3908 

3909 

137 

c 

TO  AVOID  COSTLY  LOGARITHMIC  FUNCTIONS  THE  TABLE  "G”  IS  STORED  IN  A 

3909 

3910 

138 

c 

FORM  SO  THAT  THE  HEXADECIMAL  WORD  STRUCTURE  OF  A  32  BIT  MACHINE 

3910 

3911 

139 

c 

MAY  BE  EXPLOITED. 

3911 

3912 

140 

c 

THIS  LOGIC  MAY  BE  TRANSFERED  TO  OTHER  MACHINES  BY  RECALCULATING 

3912 

3913 

141 

c 

THE  TABLE  "G"  APPROPRIATE  TO  THE  WORD  ARCITECTURE  OF  THAT  MACHINE. 

3913 

3914 

142 

c 

MACHINE  DEPENDENT  FUNCTIONS  AND  KEY  NUMBERS  MUST  ALSO  BE  CHANGED. 

3914 

3915 

143 

c— 

3915 

3916 

144 

RL16E  -  1./XL16E 

3916 

3917 

145 

1ST  -  0 

3917 

3918 

146 

NR  -  N 

3918 

3919 

147 

c 

3919 

3920 

148 

10 

CONTINUE 

3920 

3921 

149 

NST  -  MINO(NR.M) 

3921 

3922 

150 

c 

3922 

3923 

151 

DO  20  IRE-1, NST 

3923 

3924 

152 

RHO(IRE)  =  .774413*RRR(IST+1RE) 

3924 

3925 

153 

E(IRE)  -  AMAXl(3.e8. 10000. *EEE(1ST+1RE)/RRR(I3T+IRE)) 

3925 

3926 

154 

c 

3926 

3927 

155 

c 

CALCULATE  HASS  DENSITY  VARIATION  INDEX 

3927 

3928 

156 

c 

3928 

3929 

157 

TEM  -  AL0G<RH0(IRE))»RL16£  500.0 

3929 

3930 

158 

I(IRE)  =  AINT(TEM) 

3930 

3931 

159 

OMP(IRE)  -  TEH  -  FLOAT(I(IRE)) 

3931 

3932 

160 

I (IRE)  -  502  -  I(IRE) 

3932 

3933 

161 

I(IRE)  =  MAXO(I{IRE).l) 

3933 

3934 

162 

c 

3934 

3935 

163 

c 

CALCUUTE  INTERNAL  ENERGY  VARIATION  INDEX  "J*. 

3935 

3936 

164 

c 

3936 

3937 

165 

TEH  -  AL0G(E(IR£))*RL16E 

3937 

3938 

166 

XY  •  AIHT(TEH) 

3938 

3939 

167 

TEM  -  TEH  -  FLOAT(XY) 

3939 

3940 

168 

TEM  -  EXP(XL16E*TEH) 

3940 

3941 

169 

XY  •  JCY  -  7 

3941 

3942 

170 

JS  -  AINT(TEH) 

3942 

3943 

171 

q(IRE)  -  TEM  -  FLOAT(JS) 

3943 

3944 

172 

J(IRE)  -  JS  +  15*XY 

3944 

3945 

173 

J(IRE)  -  H1N0(J(IRE).104) 

3945 

3946 

174 

J(IRE)  -  I(IRE)  +  8»J(1RE) 

3946 

3947 

175 

HIRE)  =  J(IRE)  -  8 

3947 

3948 

176 

20 

CONTINUE 

3948 

3949 

177 

c 

3949 

3950 

178 

00  30  IRE-1, NST 

3950 

3951 

179 

TIKIRE)  .  GF(I{IRE)) 

3951 

3952 

180 

T21(IRE)  -  GF(I(IRE)+1) 

3952 

3953 

181 

T12(IRE)  -  GF(J(1RE)) 

3953 

3954 

182 

T22(IRE)  -  GF(J(IR£)+1) 

3954 

3955 

133 

30 

CONTINUE 

3955 

3956 

184 

c 

3956 

3957 

185 

c 

CALCUUTE  GAMMA  BY  LINEAR  INTERPOUTION. 

3957 

3958 

186 

c 

3958 

3959 

187 

DO  40  IRE-l.HST 

3959 

3960 

188 

T12(IRE)  -  T12(IRE)  -  Tll(IRE) 

3960 

3961 

189 

T22(IRE)  -  T22(IRE)  -  T21(IRE) 

3961 

3962 

190 

GAMMA(IST+IRE)  -  OHP(IRE)  *(T11(IRE)  +  Q(IRE)ni2(IRE)) 

3962 

3963 

191 

1  +  (1.  -  0MP{IRE))*(T21(IRE)  +  q(IRE)*T22(IRE)) 

3963 

3964 

192 

1  +  1. 

3964 

3965 

193 

40 

CONTINUE 

3965 

3966 

194 

c 

3966 

3967 

195 

NR  -  NR  -  NST 

3967 

3968 

196 

1ST  -  1ST  +  NST 

3968 

3969 

197 

IF(HR.GT,0)  GO  TO  10 

3969 

3970 

198 

c 

3970 

3971 

199 

c  — 

EXIT  POINT  FROM  SUBROUTINE . . 

3971 

ft 


ft 


i 
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397Z 

200 

C 

3972 

3973 

201 

C 

3973 

3974 

202 

RETURN 

3974 

3975 

203 

c 

3975 

3976 

204 

c 

3976 

3977 

205 

c 

— 

3977 

3978 

206 

END 

3978 

Thu  Jul 

1  14: 

16:08  1993  adaphd.f  SU8R0UTINE  LIFTDR 

3979 

1 

SUBROUTINE  LIFTDR 

3979 

3980 

2 

C 

3980 

3981 

3 

include  'cmshOO.h' 

3981 

3982 

4 

Include  'chydOO.h' 

3982 

3983 

5 

include  'clntOO.h* 

3983 

3984 

6 

include  'cphslO.h' 

3984 

3985 

7 

include  'cphsZO.h' 

3985 

3986 

8 

REAL  PRESS(1000),OYNPRS(1000).XLOCAT(1000).YLOCAT(1000) 

3986 

3987 

9 

C 

3987 

3988 

10 

XLIFT  =.  0. 

3988 

3989 

11 

XORAG  •  0. 

3989 

3990 

12 

XMONN  •  0. 

3990 

3991 

13 

UIHVR  -  2.  /  UVIH  /  UVIN  /  RIH 

3991 

3992 

14 

XYU  -  COS(  ALPHA  ) 

3992 

3993 

15 

XYV  -  SIN(  ALPHA  ) 

3993 

3994 

16 

NBB  >  0 

3994 

3995 

17 

DO  210  IE  -  1  ,  NE 

3995 

3996 

18 

IJE5  -  JE(  5  ,  IE  ) 

3996 

3997 

19 

IF(  IJE5  .  EQ  .  5  )  THEN 

3997 

3998 

20 

NBB  -  NB8  4  1 

3998 

3999 

21 

IWl  -  JE{  1  ,  IE  ) 

3999 

4000 

22 

IV2  .  JE{  2  ,  IE  ) 

4000 

4001 

23 

ISL  •  JE(  3  .  IE  ) 

4001 

4002 

24 

PRES  -  HYOV(  ISL  .  4  )  -  PIHL 

4002 

4003 

25 

PRESS(  NBB  )  .  PRES 

4003 

4004 

26 

XLIFT  .  XLIFT  +  PRES  •  XE{  1  .  IE  )  * 

4004 

4005 

27 

(  -  XN(  IE  )  *  XYV  +  YN(  IE  )  *  XYU  ) 

400S 

4006 

28 

XDRAG  -  XDRAG  +  PRES  •  XE(  1  .  IE  )  • 

4006 

4007 

29 

(  XN{  IE  )  *  XYU  +  YN(  IE  )  *  XYV  ) 

4007 

4008 

30 

XLOCAT(  NBB  )  •  .5  *  (  XV(  1  ,  IVl  )  +  XV(  1  .  IV2  )  ) 

4008 

4009 

31 

XXV  -  XLOCAT(  NBB  ) 

4009 

4010 

32 

YLOCAT{  NBB  )  =  .5  *  (  XV(  2  ,  IVl  )  +  XV(  2  .  IV2  )  ) 

4010 

4011 

33 

YYV  -  YLOCAT(  NBB  ) 

4011 

4012 

34 

XNOMN  -  XHOHN  +  PRES  •  XE(  1  .  IE  )  • 

4012 

4013 

35 

(  XH(  IE  )  *  XXV  -  YN{  IE  )  *  YYV  ) 

4013 

4014 

36 

C 

4014 

4015 

37 

END  IF 

4015 

4016 

38 

C 

4016 

4017 

39 

210 

CONTINUE 

4017 

4018 

40 

C 

4018 

4019 

41 

XLIFT  -  XLIFT  *  UINVR 

4019 

4020 

42 

XDRAG  >  XORAG  *  UINVR 

4020 

4021 

43 

XMOHN  -  XHOMN  •  UINVR 

4021 

4022 

44 

WRITE  (4)  N8B.(XLOCAT(KK),YLOCAT(KK).PRESS{KK).KK-1.NBB) 

4022 

4023 

45 

WRITE  (9)  XLIFT, XDRAG. XHOHR.XMCHIN. ALFA 

4023 

4024 

46 

PRINT  *,  XLIFT, XDRAG, XMOMN.XHCHIH.ALFA 

4024 

4025 

47 

C 

4025 

4026 

48 

C  — 

•  EXIT  POINT  FROM  SUBROUTINE  . 

4026 

4027 

49 

C 

4027 

4028 

50 

C 

4028 

4029 

51 

RETURN 

4029 

4030 

52 

C 

4030 

4031 

53 

C 

4031 

4032 

54 

C 

... 

4032 

4033 

55 

END 

4033 

r 
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20 
21 
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23 

24 
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26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 
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SUBROUTINE  VERDELT(  KSD  .  INDCTR  .  NIDUMP  .  JJTRIG  .  IITRIG 


C 

C . - . 1 

C  1 

C  VERDEL  FORCE  DELETION  OF  CELL  NUMBER  KSD  I 

C  I 

C . - . I 


c 

IMPLICIT  REAL  (A-H.O-Z) 

C 

include  'cmshOO.h' 

include  'chydOO.h' 

include  'cintOO.h' 

include  'cphslO.h' 

include  'cphs20.h' 

C 

INTEGER  JUV(M£M) . JUE (MEM) . JUS(MEH) 

INTEGER  lUV(HEH) . lUE(MEH) . lUS(MEH) 

INTEGER  IITRIG(200) 

C 

EQUIVALENCE  (PR.JUV) 

EQUIVALENCE  (UR, JUE) 

EQUIVALENCE  (VR.JUS) 

EQUIVALENCE  (PL.IUV) 

EQUIVALENCE  (UL.IUE) 

EQUIVALENCE  (VL.IUS) 

C 

C  JUV(  IVV  )  »  NV 
C  IUV(  NV  )  »  IVV 
C 

C  DO  KI  -  1  ,  JVDELT 

C  IVH  -  NVOELT(  KI  ) 

C  JVM  -  IVOELT(  KI  ) 

C  JUV(  IVM  )  -  JVM 

C  IUV(  JVM  )»  IVM 

C 

C  DO  *•*  KI-  1  .  lETRIG 

C  lEH  -  NECRS5(  KI  ) 

C  JEM  -  IECRSS(  KI  ) 

C  JUE(  lEM  )  -  JEM 

C  IUE(  JEM  )  >  lEM 

C 

C  DO  ***  KI  -  1  .  ITRIG 

C  ISM  •  NSCRSS(  KI  ) 

C  JSM  »  ISCRSS(  KI  ) 

C  JUS(  ISM  )  >  JSM 

C  IUS(  JSM  )  -  ISM 

C 

FLUXPP  =  .00001  *  HYOHOM(  4  ) 

FLUXUU  =  .00001  *  HYDHOM(  2  ) 

FLUXRR  -  .00001  *  HY[)HOH(  1  ) 

AREVGG  *  AREDEL  '  SAREVG 
XYLOHG  -  0. 

XYSHRT  -  10000000. 

XYLNGT  -  0. 

C 

KVl  -  JS(  1  ,  KSD  ) 

KV2  -  JS(  2  .  KSD  ) 

KV3  -  JS(  3  .  KSD  ) 

JKVl  -  JV(  2  ,  KVl  ) 

JKV2  -  JV(  2  ,  KV2  ) 

JKV3  -  JV(  2  .  KV3  ) 

KEl  -  JS(  4  .  KSD  ) 

KE2  -  JS(  5  .  KSD  ) 

KE3  -  JS(  6  ,  KSD  ) 

IKEl  »  IA8S(  KEl  ) 

IKE2  -=  IABS(  KE2  ) 

IKE3  =  IABS(  KE3  ) 

1JE51  •  JE(  5  ,  IKEl  ) 

1JE52  -  JE(  5  .  1KE2  ) 

IJE53  -  JE(  5  ,  IKE3  ) 

IKKE  -  0 

IF(  IJE53  .  NE  .  0  .  AND  .  JKV2  .  LT  .  0  )  THEN 
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74 

74 

IKKE  -  4 

74 

75 

75 

lElNl  -  -  JKVl 

75 

76 

76 

IEIN2  «  -  JKV2 

76 

77 

77 

IKKEl  -  IKE3 

77 

78 

78 

KKEl  -  KE3 

78 

79 

79 

KKVl  -  KV3 

79 

80 

80 

1KKE2  =  IKEl 

80 

81 

81 

KKE2  -  KEl 

81 

82 

82 

KKV2  -  KVl 

82 

83 

83 

IKKE3  -  IKE2 

83 

84 

84 

KKE3  -  KE2 

84 

85 

85 

KKV3  *  KV2 

85 

86 

86 

C 

86 

87 

87 

ELSE  IE(  IJE52  . 

NE 

.  0 

.  AND 

.  JKVl  .  LT  , 

0  )  THEN 

87 

88 

88 

IKKE  -  4 

88 

89 

89 

lEINl  =  -  JKV3 

89 

90 

90 

IEIN2  -  -  JKVl 

90 

91 

91 

IKKEl  =  IKE2 

91 

92 

92 

KKEl  =  KE2 

92 

93 

93 

KKVl  -  KV2 

93 

94 

94 

IKKE2  -  IKE3 

94 

95 

95 

KKE2  -  KE3 

95 

96 

96 

KKV2  -  KV3 

96 

97 

97 

1KKE3  =  IKEl 

97 

98 

98 

KKE3  '  KEl 

98 

99 

99 

KKV3  -  KVl 

99 

100 

100 

C 

100 

101 

101 

ELSE  IF(  IJE51  . 

NE 

.  0 

.  AND 

.  JKV3  .  LT  . 

0  )  THEN 

101 

102 

102 

IKKE  -  4 

102 

103 

103 

lEINl  -  -  JKV2 

103 

104 

104 

IEIN2  -  -  JKV3 

104 

105 

105 

IKKEl  »  IKEl 

105 

106 

106 

KKEl  -  KEl 

106 

107 

107 

KKVl  -  KVl 

107 

108 

108 

IKKE2  ’  1KE2 

108 

109 

109 

KKE2  «  KE2 

109 

no 

no 

KKV2  -  KV2 

no 

111 

111 

IKKE3  -  IKE3 

111 

112 

112 

KKE3  -  KE3 

112 

113 

113 

KKV3  -  KV3 

113 

114 

114 

C 

114 

115 

115 

ELSE  IF(  1JE53  . 

EQ 

.  0 

.  AND 

.  JKV3  .  LT  . 

0  .  AND  . 

115 

lie 

116 

JKVl  .  LT  . 

0  )  THEN 

116 

117 

117 

IKKE  =  3 

117 

118 

118 

lEINl  -  -  JKV3 

118 

119 

119 

IEIN2  =  -  JKVl 

119 

120 

120 

IKKEl  =  1KE3 

120 

121 

121 

KKEl  '  KE3 

121 

122 

122 

KKVl  =  KV3 

122 

123 

123 

IKKE2  =  IKEl 

123 

124 

124 

KKE2  -  KEl 

124 

125 

125 

KKV2  =■  KVl 

125 

126 

126 

IKKE3  =  IKE2 

126 

127 

127 

KKE3  »  KE2 

VI 

128 

128 

KKV3  -  KV2 

128 

129 

129 

C 

129 

130 

130 

ELSE  IF(  IJE52  . 

EQ 

.  0 

.  AND 

.  JKV2  .  LT  . 

0  .  AND  . 

130 

131 

131 

JKV3  .  LT  . 

0  )  THEN 

131 

132 

132 

IKKE  -  3 

132 

133 

133 

lEINl  •  -  JKV2 

133 

134 

134 

IEIN2  >  -  JKV3 

134 

135 

135 

IKKEl  -  IKc2 

135 

136 

136 

KKEl  >  KE2 

136 

137 

137 

KKVl  -  KV2 

137 

138 

138 

IKKE2  "  IKE3 

138 

139 

139 

KKE2  -  KE3 

139 

140 

140 

KKV2  >  KV3 

140 

141 

141 

IKKE3  =  IKEl 

141 

142 

142 

KKE3  *  KEl 

142 

143 

143 

KKV3  .  KVl 

143 

144 

144 

c 

144 

145 

145 

ELSE  IF(  IJE51  . 

EQ 

.  0 

.  AND 

.  JKVl  .  LT  . 

0  .  AND  . 

145 

146 

146 

JKV2  .  LT  . 

0  )  THEN 

146 

147 

147 

IKKE  •  3 

147 
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148 

148 

lEINl  . 

-  JKVl 

149 

149 

IEIN2  - 

-  JKV2 

150 

150 

IKKEl  - 

IKEl 

151 

151 

KKEl  •  1 

<E1 

152 

152 

KKVl  -  t 

(VI 

153 

153 

IKKE2  - 

1KE2 

154 

154 

KKE2  .  I 

(E2 

155 

155 

KKV2  -  1 

(V2 

156 

156 

IKKE3  • 

IKE3 

157 

157 

KKE3  - 

(E3 

158 

158 

KKV3  -  i 

(V3 

159 

159 

C 

160 

160 

ELSE  1F( 

[  IJE53  .  N£ 

.  0  )  THEN 

161 

161 

IKKE  -  ] 

1 

162 

162 

lEIN  .  - 

■  JKVl 

163 

163 

IKKEl  > 

IKE3 

164 

164 

KKEl  >  K 

:E3 

165 

165 

KKVl  -  K 

:v3 

166 

166 

1KKE2  - 

IKEl 

167 

167 

KKE2  -  K 

;ei 

168 

168 

KKV2  >  K 

;vi 

169 

169 

KKE3  >  K 

;£2 

170 

170 

IKKE3  - 

IKE2 

171 

171 

KKV3  •  K 

:V2 

172 

172 

C 

173 

173 

ELSE  IF( 

IJE52  .  N£ 

.  0  )  THEN 

174 

174 

IKKE  *  1 

175 

175 

lEIN  •  - 

JKV3 

176 

176 

IKKEl  - 

1KE2 

177 

177 

KKEl  .  KE2 

178 

178 

KKVl  -  KV2 

179 

179 

IKKE2  - 

IK£3 

180 

180 

KKE2  -  KE3 

181 

181 

KKV2  «  KV3 

182 

182 

IKKE3  - 

IKEl 

183 

183 

KKE3  .  KEl 

184 

184 

KKV3  .  KVl 

185 

185 

c 

186 

186 

ELSE  1F( 

IJE51  .  NE 

.  0  )  THEN 

187 

187 

IKKE  -  1 

188 

188 

lEIN  .  - 

JKV2 

189 

189 

IKKEl  . 

IKEl 

190 

190 

KKEl  »  KEl 

191 

191 

KKVl  >  KVl 

192 

192 

IKKE2  » 

IKE2 

193 

193 

KKE2  -  KE2 

194 

194 

KKV2  =  KV2 

195 

195 

1KKE3  = 

[KE3 

196 

196 

KKE3  =  KE3 

197 

197 

KKV3  -  KV3 

198 

198 

c 

199 

199 

ELSE  IF(  JKV3  .  LT  . 

0  )  THEN 

200 

200 

IKKE  -  2 

201 

201 

lEIN  -  - 

JKV3 

202 

202 

IKKEl  »  1 

IKE3 

203 

203 

KKEl  *  KE3 

204 

204 

KKVl  -  KV3 

205 

205 

IKKE2  =  1 

IKEl 

206 

206 

KKE2  =  KEl 

207 

207 

KKV2  =  KVl 

208 

208 

1KKE3  =  ] 

:KE2 

209 

209 

KKE3  »  KE2 

210 

210 

KKV3  -  KV2 

211 

211 

c 

212 

212 

ELSE  1F(  JKV2  .  IT  . 

0  )  THEN 

213 

213 

IKKE  -  2 

214 

214 

lEIN  -  - 

JKV2 

215 

215 

IKKEl  =  I 

KE2 

216 

216 

KKEl  =  KE 

2 

217 

217 

KKVl  -  KV 

2 

218 

218 

1KKE2  -  I 

KE3 

219 

219 

KKE2  '  KE 

3 

220 

220 

KKV2  -  KV 

3 

221 

221 

IKKE3  =  I 

KEl 
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• 

222 

222 

KKE3  -  KEl 

222 

223 

223 

KKV3  -  KVl 

223 

224 

224 

C 

224 

225 

225 

ELSE  IF(  JKVl  .  LT  .  0  )  THEN 

225 

226 

226 

IKKE  -  2 

226 

in 

227 

lEIN  .  -  JKVl 

227 

228 

228 

IKKEl  »  IKEl 

228 

• 

229 

229 

KKEl  -  KEl 

229 

230 

230 

KKVl  -  KVl 

230 

231 

231 

IKKE2  -  1KE2 

231 

232 

232 

KKE2  -  KE2 

232 

233 

233 

KKV2  -  KV2 

233 

234 

234 

IKKE3  -  IKE3 

234 

235 

235 

KKE3  -  KE3 

235 

236 

236 

KKV3  -  KV3 

236 

• 

in 

237 

END  IF 

237 

238 

238 

c 

238 

239 

239 

IF(  IKKE  .  EQ  .  4  )  THEN 

239 

240 

240 

JVl  -  JE(  1  ,  IEIN2  ) 

240 

241 

241 

JV2  -  JE(  2  ,  1EIN2  ) 

241 

242 

242 

JJV3  -  JE(  1  ,  IKKE3  ) 

242 

243 

243 

JJV4  -  JE(  2  .  IKKE3  ) 

243 

A 

244 

244 

IF(  JJV3  .  EQ  .  JVl  )  THEN 

244 

W 

245 

245 

JV3  -  JJV3 

245 

246 

246 

JV4  -  JJV4 

246 

247 

247 

ELSE 

247 

248 

248 

JV3  -  JJV4 

248 

249 

249 

JV4  -  JJV3 

249 

250 

250 

END  IF 

250 

251 

251 

XA  -  XV(  1  .  JV2  )  -  XV{  1  ,  JVl  ) 

251 

A 

252 

252 

YA  -  XV(  2  ,  JV2  )  -  XV(  2  .  JVl  ) 

252 

w 

253 

253 

XB  -  XVn  .  JV4  )  -  XV(  1  ,  JV3  ) 

253 

254 

254 

YB  -  XV(  2  .  JV4  )  -  XV{  2  ,  JV3  ) 

254 

255 

255 

AB  -  XA  *  XB  +  YA  *  YB 

255 

256 

256 

IF(  AB  .  GT  .  0.  )  IKKE  -  5 

256 

257 

257 

END  IF 

257 

258 

258 

c 

258 

259 

259 

c 

IJTRIG  HUMBER  OF  CIRCUMFERENCE  EDGES  AROUND  VOID 

259 

A 

260 

260 

c 

ITRIG  NUMBER  OF  TRIANGLES  TO  BE  DELETED 

260 

w 

261 

261 

c 

lETRIG  HUMBER  OF  EDGES  TO  BE  DELETED 

261 

262 

262 

c 

JVOELT  HUMBER  OF  VERTICES  TO  BE  DELETED 

262 

263 

263 

c 

263 

264 

264 

c 

IVDELT(*)  SEQUENCE  OF  VERTICES  TO  BE  DELETED 

264 

265 

265 

c 

ISCRSS{*)  SEOUENCE  OF  TRIANGLES  TO  BE  DELETED 

265 

266 

266 

c 

IECRSS(*)  SEQUENCE  OF  EDGES  TO  BE  DELETED 

266 

267 

267 

c 

267 

ii 

268 

268 

IF(  JV(  1  .  KVl  )  .  EQ  .  3  )  RETURN 

268 

269 

269 

1F(  JV(  1  .  KV2  )  .  EQ  .  3  )  RETURN 

269 

270 

270 

1F(  JV(  1  ,  KV3  )  .  EQ  .  3  )  RETURN 

270 

271 

271 

IJTRIG  -  0 

271 

272 

272 

ITRIG  -  0 

272 

273 

273 

lETRIG  -  0 

273 

274 

274 

JVDELT  «  0 

274 

275 

275 

JLOOP  -  0 

275 

• 

276 

276 

c 

276 

277 

277 

IF(  IKKE  .  EQ  .  0  )  THEN 

277 

278 

278 

c 

278 

279 

279 

c 

THE  TRIANGLE  TO  BE  DELETED  IS  INTIRELY  IN  THE  DOMAIN  OF  COMPUTATION  . 

279 

280 

280 

c 

THE  FIRST  LOOP  IS  AROUND  VERTEX  KVl  . 

280 

281 

281 

c 

281 

282 

282 

IVV  •  KVl 

282 

283 

283 

IE  -  IKE3 

283 

• 

284 

284 

IVl  .  JE(  1  ,  IE  ) 

284 

285 

285 

IF(  IVl  .  EQ  .  IVV  )  THEN 

285 

286 

286 

ISI  -  JE(  3  ,  IE  ) 

286 

287 

287 

ELSE 

287 

288 

288 

ISI  -  JE(  4  ,  IE  ) 

288 

289 

289 

END  IF 

289 

290 

290 

IS  -  ISI 

290 

291 

291 

c 

291 

• 

292 

292 

no 

CONTINUE 

292 

293 

293 

c 

293 

294 

294 

ITRIG  =  ITRIG  +  1 

294 

295 

295 

ISCRSSI  ITRIG  )  -  IS 

295 

page  4 

• 

► 


► 


» 


¥ 


i 


I 


► 


Thu  Jul 

1  14:16:26 

1993  delthd.f  main  program 

page  5 

296 

296 

C 

296 

297 

297 

IF(  ITRIG  .  EQ  .  2  )  THEN 

297 

298 

298 

IJTRIG  -  0 

298 

299 

299 

lETRIG  .  lETRlG  ♦  1 

299 

300 

300 

lECRSSl  lETRIG  )  -  lElB 

300 

301 

301 

END  IF 

301 

302 

302 

C 

302 

303 

303 

lETRIG  -  lETRIG  +  1 

303 

304 

304 

IECRSS(  lETRIG  )  -  IE 

304 

305 

305 

C 

305 

306 

306 

1F( 

306 

307 

307 

HYDFLX(  IS  ,  4  )  .  GT  .  FLUXPP  .  OR  . 

307 

308 

308 

HYDFLX{  IS  .  2  )  .  GT  .  FLUXUU  .  OR  . 

308 

309 

309 

HYDFLX(  IS  ,  1  )  .  GT  .  FlUXRR  .  OR  . 

309 

310 

310 

KSOELT(  IS  )  .  GT  .  NIOUMP  .  OR  . 

310 

311 

311 

XS(  3  ,  IS  )  .  GT  .  AREVGG  )  THEN 

311 

312 

312 

INDCTR  .  3 

312 

313 

313 

RETURN 

313 

314 

314 

END  IF 

314 

315 

315 

C 

315 

316 

316 

00  120  IR  -  1  .  3 

316 

317 

317 

JR  -  M00(  IR  ,  3  )  ♦  1 

317 

318 

318 

lEA  -  IABS(  JS(  JR  ♦  3  .  iS  )  ) 

318 

319 

319 

IF(  lEA  .  EQ  .  IE  )  THEM 

319 

320 

320 

HR  -  H00(  JR  ,  3  )  ^  4 

320 

321 

321 

lEI  •  JS(  HR  .  IS 

321 

322 

322 

lEIB  •  IABS(  lEI  ) 

322 

323 

323 

XEIEB  «  XE(  1  ,  lEIB  ) 

323 

324 

324 

XYLNGT  -  XYLNGT  ♦  XEIEB 

324 

325 

325 

IF(  XYLONG  .  LT  .  XEIEB  )  XYLONG  -  XEIEB 

325 

326 

326 

IF(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  -  XEIEB 

326 

327 

327 

IJTRIG  -  IJTRIG  ♦  1 

327 

328 

328 

IICOLR(  IJTRIG  )  -  lEI 

328 

329 

329 

JJR  -  H00(  JR  +  1  ,  3  )  +  4 

329 

330 

330 

lER  •  IABS(  JS(  JJR  .  IS  )  ) 

330 

331 

331 

C 

331 

332 

332 

IVl  -  JE(  1  ,  lER  ) 

332 

333 

333 

IF(  IVl  .  EQ  .  IVV  )  THEN 

333 

334 

334 

ISR  •  JE{  3  ,  lER  ) 

334 

335 

335 

ELSE 

335 

336 

336 

ISR  -  JE(  4  ,  lER  ) 

336 

337 

337 

END  IF 

337 

338 

338 

END  IF 

338 

339 

339 

c 

339 

340 

340 

120 

CONTINUE 

340 

341 

341 

c 

341 

342 

342 

IF(  ISR  .  NE  .  ISI  )  THEN 

342 

343 

343 

IS  -  ISR 

343 

344 

344 

IE  -  lER 

344 

345 

345 

GO  TO  110 

345 

346 

346 

END  IF 

346 

347 

347 

c 

347 

348 

348 

lETRIG  «  lETRIG  +  1 

348 

349 

349 

IECRSS(  lETRIG  )  -  IKE2 

349 

350 

350 

IJTRIG  *  IJTRIG  -  2 

350 

351 

351 

c 

351 

352 

352 

c 

FIRST  LOOP  SUROUNOING  KVl  IS  DONE,  SECOND  LOOP  OVER  KV2  START  . 

352 

353 

353 

c 

353 

354 

354 

IVV  -  KV2 

354 

355 

355 

IE  -  IABS{  IICOLRf  IJTRIG  +  1  )  ) 

355 

356 

356 

IVl  -  JE(  1  ,  IE  ) 

356 

357 

357 

IF(  IVl  .  EQ  .  IVV  )  THEN 

357 

358 

358 

ISI  -  JE(  3  ,  IE  ) 

358 

359 

359 

ELSE 

359 

360 

360 

ISI  .  JE(  4  .  IE  ) 

360 

361 

361 

END  IF 

361 

362 

362 

IS  -  ISI 

362 

363 

363 

c 

363 

364 

364 

ILOOP  -  0 

364 

365 

365 

130 

CONTINUE 

365 

366 

366 

JOOUBL  >  IABS(  IICOLR(  IJTRIG  )  ) 

366 

367 

367 

c 

367 

368 

368 

ITRIG  "  ITRIG  +  1 

368 

369 

369 

ISCRSS(  ITRIG  )  -  IS 

369 
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370 

370 

lETRIG  -  lETRlG  +  1 

370 

371 

371 

IECRSS(  lETRIG  )  -  IE 

371 

372 

372 

C 

372 

373 

373 

373 

374 

374 

HYOFLXC  IS  .  4  )  .  GT  .  FLUXPP  .  OR  . 

374 

375 

375 

HYOFLX(  IS  .  2  )  .  GT  .  FLUXUU  .  OR  . 

375 

376 

376 

HYDFLX(  IS  .  1  )  .  GT  ,  FLUXRR  .  OR  . 

376 

377 

377 

KSDELT(  IS  )  .  GT  .  NIDUHP  .  OR  . 

377 

378 

378 

XS{  3  .  IS  )  .  GT  .  AREVGG  )  THEN 

378 

379 

379 

INDCTR  •  3 

379 

380 

380 

RETURN 

380 

381 

381 

END  IF 

381 

382 

382 

C 

382 

383 

383 

DO  140  IR  -  1  .  3 

383 

384 

384 

JR  -  M00{  IR  ,  3  )  +  1 

lEA  -  IABS(  JS(  JR  +  3  .  IS  )  ) 

384 

385 

385 

385 

386 

386 

IF(  lEA  .  EQ  .  IE  )  THEN 

386 

387 

387 

HR  -  M00(  JR  ,  3  )  +  4 

387 

388 

388 

lEI  -  JS(  HR  .  IS  ) 

388 

389 

389 

lEIB  •  IABS(  lEI  ) 

389 

390 

390 

XEIEB  ■  XE(  1  .  lEIB  ) 

390 

391 

391 

XYLNGT  -  XYLNGT  ♦  XEIEB 

391 

392 

392 

IF(  XYLONG  .  LT  .  XEIEB  )  XYLONG  -  XEIFB 

392 

393 

393 

IF(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  -  XEIEB 

393 

394 

394 

ILOOP  •  ILOOP  +  1 

394 

395 

395 

IF(  ILOOP  .  EQ  .  1  .  AND  .  JDOUBL  .  EQ  .  lEIB  )  THEN 

395 

396 

396 

JLOOP  -  1 

396 

397 

397 

lETRIG  -  lETRIG  +  1 

397 

398 

398 

IECRSS{  lETRIG  )  =  JDOUBL 

398 

399 

399 

IJTRIG  •  IJTRIG  -  1 

399 

400 

400 

IF(  lEl  .  GT  .  0  )  THEN 

400 

401 

401 

JKVV  •  JE(  1  ,  lEIB  ) 

401 

402 

402 

ELSE 

402 

403 

403 

JKVV  -  JE(  2  .  lEIB  ) 

403 

404 

404 

END  IF 

404 

405 

405 

JVOELT  .  JVDELT  +  1 

405 

406 

406 

IVDELT(  JVDELT  )  *  JKW 

406 

407 

407 

ILOOP  -  0 

407 

408 

408 

ELSE 

408 

409 

409 

IJTRIG  -  IJTRIG  +  1 

409 

410 

410 

I1C0LR(  IJTRIG  )  •  lEI 

410 

411 

411 

END  IF 

411 

412 

412 

JJR  -  M00(  JR  +  1  .  3  )  +  4 

412 

413 

413 

lER  ■  IABS(  JS(  JJR  .  IS  )  ) 

413 

414 

414 

C 

414 

415 

415 

IVl  -  JE(  1  .  lER  ) 

415 

416 

416 

IF(  IVl  .  EQ  .  IVV  )  THEN 

416 

417 

417 

ISR  >  JE{  3  .  lER  ) 

417 

418 

418 

ELSE 

418 

419 

419 

ISR  -  JE(  4  ,  lER  ) 

419 

420 

420 

END  IF 

420 

421 

421 

END  IF 

421 

422 

422 

C 

422 

423 

423 

140 

CONTINUE 

423 

424 

424 

C 

424 

425 

425 

IF(  lER  .  NE  .  IKE2  )  THEN 

425 

426 

426 

IS  -  ISR 

426 

427 

427 

IE  -  lER 

427 

428 

428 

GO  TO  130 

428 

429 

429 

END  IF 

429 

430 

430 

IJTRIG  =  IJTRIG  -  1 

430 

431 

431 

C 

431 

432 

432 

C  SECOND  LOOP  SUROUHDING  KWZ  IS  DONE.  THIRD  LOOP  OVER  KV3  START  . 

432 

433 

433 

C 

433 

434 

434 

KET  -  IECRSS(  2  ) 

434 

435 

435 

IVV  -  KV3 

435 

436 

436 

IE  -  IABS(  IlCOLRI  IJTRIG  +  1  )  ) 

436 

437 

437 

IF(  IE  ,  EQ  .  KET  )  THEN 

437 

438 

438 

JLOOP  -  2 

438 

439 

439 

c 

439 

440 

440 

150 

CONTINUE 

440 

441 

441 

IKET  -  nCOLR{  1  ) 

441 

442 

442 

KKET  =■  1ABS(  IKET  ) 

442 

443 

443 

MET  -  IABS(  IICOLR(  IJTRIG  )  ) 

443 
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444 

444 

IF(  JKET  .  EQ  .  KKET  )  THEN 

445 

445 

JLOOP  -  3 

446 

446 

IF(  IKET  .  GT  .  0  )  THEM 

447 

447 

JKVV  -  JE(  1  ,  KKET  ) 

448 

448 

ELSE 

449 

449 

JKVV  •  JE(  2  .  KKET  ) 

450 

450 

END  IF 

451 

451 

JVDELT  -  JVDELT  +  1 

452 

452 

IVDELT(  JVDELT  )  -  JKW 

453 

453 

DO  160  KK  -  2  .  IJTRIG 

454 

454 

IICOLR(  KK  -  1  )  -  nC0LR(  KK  ) 

455 

455 

160 

CONTINUE 

456 

456 

IJTRIG  -  IJTRIG  -  2 

457 

457 

lETRIG  -  lETRIG  ♦  1 

458 

458 

IECRSS(  lETRIG  )  -  KKET 

459 

459 

GO  TO  150 

460 

460 

END  IF 

461 

461 

GO  TO  170 

462 

462 

END  IF 

463 

463 

IVl  -  JE(  1  .  IE  ) 

464 

464 

IF(  IVl  .  EQ  .  IVV  )  THEM 

465 

465 

ISI  -  JE(  3  .  IE  ) 

466 

466 

ELSE 

467 

467 

ISI  -  JE(  4  ,  IE  ) 

468 

468 

END  IF 

469 

469 

IS  -  ISI 

470 

470 

C 

471 

471 

ILOOP  -  0 

472 

472 

180 

CONTINUE 

473 

473 

KDOUBL  -  IABS(  IICOLR(  IJTRIG  )  ) 

474 

474 

C 

475 

475 

ITRIG  =  ITRIG  +  1 

476 

476 

ISCRSS(  ITRIG  )  -  IS 

477 

477 

lETRIG  -  lETRIG  +  1 

478 

478 

IECRSS(  lETRIG  )  •  IE 

479 

479 

C 

480 

480 

IF{ 

481 

481 

, 

HYDFLX(  IS  ,  4  )  .  GT  .  FLUXPP  .  OR 

482 

482 

, 

HTDFLX(  IS  .  2  )  .  GT  .  FLUXUU  .  OR 

483 

483 

« 

HYOFLX(  IS  .  1  )  .  GT  .  FLUXRR  .  OR 

484 

484 

• 

KSOELT(  IS  )  .  GT  .  NlDUHP  .  OR  . 

485 

485 

XS(  3  ,  IS  )  .  GT  .  AREVGG  )  THEN 

486 

486 

INOCTR  -  3 

487 

487 

RETURN 

488 

488 

END  IF 

489 

489 

C 

490 

490 

DO  190  IR  -  1  .  3 

491 

491 

JR  -  M00(  IR  ,  3  )  +  1 

492 

492 

lEA  -  IABS(  JS(  JR  +  3  ,  IS  )  ) 

493 

493 

1F(  lEA  ,  £0  .  IE  )  THEN 

494 

494 

HR  -  H00(  JR  .  3  )  ♦  4 

495 

495 

lEI  .  JS(  HR  .  IS  ) 

496 

496 

lEIB  -  IABS(  lEl  ) 

497 

497 

XEIEB  -  XE(  1  ,  lEIB  ) 

498 

498 

XYLNGT  =  XYLNGT  *  XEIEB 

499 

499 

IF(  XYLONG  .  LT  ,  XEIEB  )  XYLONG  -  XEIEB 

500 

500 

IF(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  -  XEIEB 

501 

501 

ILOOP  -  ILOOP  +  1 

502 

502 

IF(  ILOOP  .  EQ  .  1  .  AND  .  KDOUBL  .  EQ  . 

503 

503 

JLOOP  -  4 

504 

504 

lETRIG  -  lETRIG  +  1 

505 

505 

IECRSS(  lETRIG  )  =  KDOUBL 

506 

506 

IJTRIG  ■=  IJTRIG  -  1 

507 

507 

IF(  lEI  .  GT  .  0  )  THEN 

508 

508 

JKVV  -  JE(  1  ,  lEIB  ) 

509 

509 

ELSE 

510 

510 

JKVV  »  JE(  2  ,  lEIB  ) 

511 

511 

END  IF 

512 

512 

JVDELT  >  JVDELT  +  1 

513 

513 

IVDELT(  JVDELT  )  -  JKVV 

514 

514 

ILOOP  -  0 

515 

515 

ELSE 

516 

516 

IJTRIG  =  IJTRIG  +  1 

517 

517 

HCOLR(  IJTRIG  )  -  lEl 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 
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518 

518 

END  IF 

518 

519 

519 

JJR  -  MOD(  JR  +  1  .  3  )  +  4 

519 

520 

520 

lER  -  IABS(  JS(  JJR  .  IS  )  ) 

520 

521 

521 

C 

521 

522 

522 

IVl  -  J£(  1  .  lER  J 

522 

523 

523 

IF(  IVl  .  EQ  .  IVV  )  THEN 

523 

524 

524 

ISR  -  JE(  3  .  lER  )  . 

524 

525 

525 

ELSE 

525 

526 

526 

iSR  -  JE(  4  .  lER  ) 

526 

527 

527 

END  IF 

527 

528 

528 

END  IF 

528 

529 

529 

C 

529 

530 

530 

190 

CONTINUE 

530 

531 

531 

C 

531 

532 

532 

IF(  lER  .  NE  .  KET  )  THEN 

532 

533 

533 

IS  -  ISR 

533 

534 

534 

IE  -  lER 

534 

535 

535 

GO  TO  180 

535 

536 

536 

END  IF 

536 

537 

537 

C 

537 

538 

538 

200 

CONTINUE 

538 

539 

539 

IKET  -  IICOLR(  1  ) 

539 

540 

540 

KKET  -  IABS(  IKET  ) 

540 

541 

541 

JKET  -  IABS{  IIC0LR(  IJTRIG  )  ) 

541 

542 

542 

1F(  JKET  .  EQ  .  KKET  )  THEN 

542 

543 

543 

JLOOP  -  5 

543 

544 

544 

IF(  IKET  ,  GT  .  0  )  THEN 

544 

545 

545 

JKVV  -  JE(  1  ,  KKET  ) 

545 

546 

546 

ELSE 

546 

547 

547 

JKVV  >  JE(  2  ,  KKET  ) 

547 

548 

548 

END  IF 

548 

549 

549 

JVDELT  -  JVDELT  +  1 

549 

550 

550 

IVOELT(  JVDELT  )  -  JKVV 

550 

551 

551 

00  210  KK  >  2  ,  IJTRIG 

551 

552 

552 

IICOLR(  KK  -  1  )  -  IICOLR(  KK  ) 

552 

553 

553 

210 

CONTINUE 

553 

554 

554 

IJTRIG  -  IJTRIG  -  2 

554 

555 

555 

lETRIG  -  lETRIG  +  1 

555 

556 

556 

IECRSS(  lETRIG  )  -  KKET 

556 

557 

557 

GO  TO  200 

557 

558 

558 

END  IF 

558 

559 

559 

C 

559 

560 

560 

170 

CONTINUE 

560 

561 

561 

c 

561 

562 

562 

INDCTR  =  2 

562 

563 

56? 

c 

IF(  XYLONG  /  XYSHRT  .  GT  .  10.  .  AND  .  JLOOP  ,  EQ 

.  0  )  RETURN 

563 

564 

564 

c 

564 

565 

565 

ELSE  IF(  IKKE  .  EQ  .  1  )  THEN 

565 

566 

566 

c 

566 

567 

567 

c 

BEGINING  THE  DELETION  PROCESS  IF  KSD  HAS  AN  EDGE  ON  THE 

BOUNDARY 

567 

568 

568 

c 

THE 

FIRST  LOOP  IS  AROUND  VERTEX  KKV2  . 

568 

569 

569 

c 

569 

570 

570 

IVV  «  KKV2 

570 

571 

571 

IE  -  lEIN 

571 

572 

572 

IVIN  .  JE(  2  .  IE  ) 

572 

573 

573 

XXYYIB  -  XE(  1  .  IE  )  +  XE(  1  .  IKKEl  ) 

573 

574 

574 

IVl  -  JE(  1  ,  IE  ) 

574 

575 

575 

1F(  IVl  .  EQ  ,  IVV  )  THEN 

575 

576 

576 

ISI  -  JE(  3  ,  IE  ) 

576 

577 

577 

ELSE 

577 

578 

578 

ISI  -  JE(  4  ,  IE  ) 

578 

579 

579 

END  IF 

579 

58r 

580 

IS  •  ISI 

580 

581 

581 

c 

581 

582 

582 

220 

CONTINUE 

582 

583 

583 

C 

583 

584 

584 

ITRIG  -  ITRIG  +  1 

584 

585 

585 

ISCRSS(  ITRIG  )  -  IS 

585 

586 

586 

C 

586 

587 

587 

lETRIG  -  lETRIG  +  1 

587 

588 

588 

lECRSSI  lETRIG  )  -  IE 

588 

589 

589 

C 

589 

590 

590 

IF( 

590 

591 

591 

HYDFLXI  IS  ,  4  )  .  GT  .  FLUXPP  .  OR  . 

591 

Thu  Jul 
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592 

592 

593 

593 

594 

594 

595 

595 

596 

596 

597 

597 

598 

598 

599 

599 

C 

600 

600 

601 

601 

602 

602 

603 

603 

604 

604 

605 

605 

606 

606 

607 

607 

608 

608 

609 

609 

610 

610 

611 

611 

612 

612 

613 

613 

614 

614 

615 

615 

c 

616 

616 

617 

617 

618 

618 

619 

619 

620 

620 

621 

621 

622 

622 

623 

623 

c 

624 

624 

230 

625 

625 

c 

626 

626 

627 

627 

628 

628 

629 

629 

630 

630 

631 

631 

C 

632 

632 

633 

633 

634 

634 

635 

635 

C 

636 

636 

C 

637 

637 

C 

638 

638 

639 

639 

640 

640 

641 

641 

642 

642 

643 

643 

644 

644 

645 

645 

646 

646 

647 

647 

C 

648 

648 

649 

649 

240 

650 

650 

651 

651 

C 

652 

652 

653 

653 

654 

654 

655 

655 

656 

656 

C 

657 

657 

658 

658 

659 

659 

660 

660 

661 

661 

662 

662 

663 

663 

664 

664 

665 

665 

delthd.f 

HYDFLX(  IS  . 
HYDFLX(  IS  , 
KSOELT(  IS  ) 
XS(  3  .  IS  ) 
IHOCTR  -  3 
RETURN 
END  IF 
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GT 

GT 


GT  .  FLUXUU 
GT  .  FLUXRR 
.  NIOUHP  ,  OR 
.  AREVGG  )  THEN 


OR 

OR 


DO  230  IR  .  1  .  3 

JR  «  H00{  IR  ,  3  )  +  1 

lEA  -  IABS(  JS(  JR  +  3  .  IS  )  ) 

IF(  lEA  .  EQ  .  IE  )  THEN 

HR  -  M00(  JR  .  3  )  ♦  4 

lEI  -  JS(  HR  .  IS  ) 

lEIB  -  1ABS(  lEI  ) 

XEIEB  -  XE(  1  .  lEIB  ) 

XYLNGT  -  XYLNGT  +  XEIEB 

IF(  XYLONG  .  LT  .  XEIEB  )  XYLONG 

IF(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT 

IJTRIG  -  IJTRIG  +  1 

IICOLR(  IJTRIG  )  -  lEI 

JJR  -  H00(  JR  +  1  .  3  )  +  4 

lER  -  IABS(  JS(  JJR  .  IS  )  ) 


XEIEB 

XEIEB 


1  , 
EQ 
3  . 


IVl  -  JE( 
IF(  IVl  . 
ISR  -  JE( 
ELSE 

ISR  -  JE{ 
END  IF 
END  IF 

CONTINUE 


IF(  lER  .  NE 
IS  •  ISR 
IE  -  lER 
GO  TO  220 
END  IF 


lER  ) 

.  IVV  )  THEN 
lER  ) 

lER  ) 


IKKEl  )  THEN 


lETRIG  -  lETRIG  +  1 
IECRSS(  lETRIG  )  -  IKKEI 
IJTRIG  -  IJTRIG  -  2 

FIRST  LOOP  SUROUNDIHG  KKV2  IS  DONE,  SECOND  LOOP  OVER  KKV3  START 
IVV  -  KKV3 

IE  -  IABS(  IICOLR(  IJTRIG  +  1  )  ) 

IVl  «  JE(  1  .  IE  ) 

IF(  IVl  .  EO  .  IVV  )  THEN 
ISI  -  JE(  3  ,  IE  ) 

ELSE 

ISI  -  JE(  4  ,  IE  ) 

END  IF 
IS  -  ISI 

I LOOP  -  0 
CONTINUE 

JDOUBL  •  IABS(  IICOLR(  IJTRIG  )  ) 

ITRI6  -  ITRIG  +  1 
ISCRSSI  ITRIG  )  =  IS 
lETRIG  -  lETRIG  +  1 
lECRSSI  lETRIG  )  -  IE 


m 

HYDFLX(  IS  ,  4  )  . 
HYDFLX(  IS  ,  2  )  . 
HYOFLX(  IS  .  1  )  . 
KSDELT(  IS  )  .  GT 
XS(  3  ,  IS  )  .  GT 
INDCTR  -  3 
RETURN 
END  IF 


GT  ,  FLUXPP  .  OR 
GT  ,  FLUXUU  .  OR 
GT  .  FLUXRR  .  OR 
.  NIDUMP  .  OR  . 

.  AREVGG  )  THEN 
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592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 
6% 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 
627 
626 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 
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666 

666 

C 

666 

667 

667 

DO  250  IR  -  1  .  3 

667 

668 

668 

JR  -  M0D(  IR  .  3  )  +  1 

668 

669 

669 

lEA  -  IABS(  JS(  JR  ♦  3  .  IS  )  ) 

669 

670 

670 

IF(  lEA  .  EQ  .  1£  )  THEN 

670 

671 

671 

HR  -  H00(  JR  .  3  )  ♦  4' 

671 

672 

672 

lEI  ■  JS{  HR  .  IS  ) 

672 

673 

673 

lEIB  -  IABS(  lEI  ) 

673 

674 

674 

XEIEB  -  XE(  1  ,  IEI8  ) 

674 

675 

675 

XYLNGT  -  XYLNGT  +  XEIEB 

675 

676 

676 

IF(  XYLONG  .  IT  .  XEIEB  )  XYLONG  -  XEIEB 

676 

677 

677 

IF(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  -  XEIEB 

677 

678 

678 

ILOOP  •  ILOOP  +  1 

678 

679 

679 

IF(  ILOOP  .  EQ  .  1  .  AND  .  JDOUBL  .  EQ  .  lEIB  )  THEN 

679 

680 

680 

JLOOP  -  1 

680 

681 

681 

lETRIG  -  lETRIG  +  1 

681 

682 

682 

IECRSS(  lETRIG  )  >  JDOUBL 

682 

683 

683 

IJTRIG  -  IJTRIG  -  1 

683 

684 

684 

IF(  lEI  .  GT  .  0  )  THEN 

684 

685 

685 

JKW  -  JE{  1  .  IEI8  ) 

685 

686 

686 

ELSE 

666 

687 

687 

JKW  -  JE(  2  ,  lEIB  ) 

687 

688 

688 

END  IF 

688 

689 

689 

JVDELT  =>  JVOELT  +  1 

689 

690 

690 

IVOELT(  JVOELT  )  •  JKW 

690 

691 

691 

ILOOP  -  0 

691 

692 

692 

ELSE 

692 

693 

693 

IJTRIG  •  IJTRIG  +  1 

693 

694 

694 

IICOLR(  IJTRIG  )  -  lEI 

694 

695 

695 

END  IF 

695 

696 

696 

JJR  -  MOD(  JR  +  1  .  3  )  ♦  4 

696 

697 

697 

lER  -  IABS(  JS(  JJR  .  IS  )  ) 

697 

698 

698 

C 

698 

699 

699 

lUl  -  JE(  1  .  lER  ) 

699 

700 

700 

IF(  IVl  .  EQ  .  IW  )  THEN 

700 

701 

701 

ISR  -  JE(  3  ,  lER  ) 

701 

702 

702 

ELSE 

702 

703 

703 

ISR  ■  JE{  4  .  lER  ) 

703 

704 

704 

END  IF 

704 

705 

705 

END  IF 

705 

706 

706 

C 

706 

707 

707 

250 

CONTINUE 

707 

708 

708 

C 

708 

709 

709 

IF(  lER  .  NE  .  IKKE3  )  THEN 

709 

710 

710 

IS  -  ISR 

710 

711 

711 

IE  -  lER 

711 

712 

712 

GO  TO  240 

712 

713 

713 

END  IF 

713 

714 

714 

c 

714 

715 

715 

5FTRir,  =  ietrIG  +  1 

715 

716 

716 

IECRSS(  lETRIG  )  =  iK,KE3 

716 

717 

717 

IJTRIG  =  IJTRIG  -  1 

717 

718 

718 

c 

718 

719 

719 

c 

SECOND  LOOP  SUROUNDING  KKV3  IS  DONE.  THIRD  LODP  OVER  KKVl  START  . 

719 

720 

720 

c 

720 

721 

721 

IW  -  KKVl 

721 

722 

722 

IE  -  IABS(  IICOLR(  IJTRIG  +  1  )  ) 

722 

723 

723 

IF(  JE{  5  ,  IE  )  .  NE  .  0  )  THEN 

723 

724 

724 

lER  -  IE 

724 

725 

725 

GO  TO  260 

725 

726 

726 

END  IF 

726 

727 

727 

IVl  -  JE(  1  ,  IE  ) 

727 

728 

728 

1F(  IVl  .  EQ  .  IW  )  THEN 

728 

729 

729 

ISI  -  JE{  3  .  IE  ) 

729 

730 

730 

ELSE 

730 

731 

731 

ISI  -  JE{  4  ,  IE  ) 

731 

732 

732 

END  IF 

732 

733 

733 

IS  -  ISI 

733 

734 

734 

IS!  '  n 

734 

735 

735 

c 

735 

736 

736 

ILOOP  -  0 

736 

737 

737 

270 

CONTINUE 

737 

738 

738 

KOOUBL  '  IABS(  IICOLR{  IJTRIG  )  ) 

738 

739 

739 

C 

739 
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740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 


740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 


ITRIG  -  ITRIG  +  1 
1SCRSS(  ITRIG  )  .  IS 
lETRIG  -  lETRIG  +  1 
IECRSS(  lETRIG  )  -  IE 

IF( 

HYOFLX{  IS  .  4  )  . 
HYDFLX(  IS  .  2  )  . 
HY0FLX(  IS  ,  1  )  . 
KSDELT(  IS  )  .  GT 
XS(  3  .  IS  )  .  GT 
INDCTR  -  3 
RETURN 
END  IF 


GT  .  FLUXPP 
GT  .  FLUXUU 
GT  .  FLUXRR 
.  NIOUMP  .  OR  , 
.  AREVGG  )  THEN 


OR 

OR 

OR 


DO  280  IR  -  1  .  3 
JR  -  M00(  IR  .  3  )  +  1 
lEA  -  IABS(  JS(  JR  +  3  . 
IF(  lEA  .  EO  .  IE  )  THEN 
HR  -  HCIO(  JR  .  3  )  t  4 
lEI  -  JS(  HR  ,  IS  ) 
lEIB  -  IABS(  lEI  ) 


IS  )  ) 


XEIEB  -  XE(  1 
XYLNGT  -  XYLNGT 
IF(  XYLONG  .  LT 
IF(  XYSHRT  .  GT 
ILOOP  »  I LOOP  + 


lEIB  ) 

+  XEIEB 

.  XEIEB  )  XYLONG 
.  XEIEB  )  XYSHRT 


XEIEB 

XEIEB 


767 

767 

IF(  ILOOP  .  EQ  .  1  .  AND  . 

768 

768 

JLQOP  -  2 

769 

769 

lETRIG  -  lETRIG  +  1 

770 

770 

IECRSS(  lETRIG  )  .  KDOUBL 

771 

771 

IJTRIG  -  IJTRIG  -  1 

772 

772 

IF{  lEI  .  GT  .  0  )  THEN 

773 

773 

JKVV  -  JE{  1  .  lEIB  ) 

774 

774 

ELSE 

775 

775 

JKVV  -  JE(  2  .  IEI8  ) 

776 

776 

END  IF 

777 

777 

JVDELT  =  JVOELT  +  1 

778 

778 

1VDELT(  JVDELT  )  -  JKW 

779 

779 

ILOOP  -  0 

780 

780 

ELSE 

781 

781 

IJTRIG  =  IJTRIG  +  1 

782 

782 

IICOLR{  IJTRIG  )  =  lEI 

783 

783 

END  IF 

784 

784 

JJR  -  H00(  JR  +  1  .  3  )  + 

785 

785 

lER  -  1ABS(  JS(  JJR  ,  IS  ) 

786 

786 

C 

787 

787 

IVl  =  JE(  1  .  lER  ) 

788 

788 

IF(  IVl  .  EO  .  IVV  )  THEN 

789 

789 

ISR  -  JE(  3  ,  lER  ) 

790 

790 

ELSE 

791 

791 

ISR  -  JE{  4  .  lER  ) 

792 

792 

END  IF 

793 

793 

END  IF 

794 

794 

C 

795 

795 

280 

CONTINUE 

796 

796 

C 

797 

797 

IF(  ISR  .  NE  .  ISI  )  THEN 

798 

798 

IS  -  ISR 

799 

799 

IE  -  lER 

800 

800 

GO  TO  270 

801 

801 

END  IF 

802 

802 

C 

803 

803 

260 

CONTINUE 

804 

804 

C 

805 

805 

lETRIG  «  lETRIG  +  1 

806 

806 

lECRSSI  lETRIG  )  =  lER 

807 

807 

c 

808 

808 

ITYPE  -  JE(  6  ,  lER  ) 

809 

809 

c 

810 

810 

XEIEB  -  XE(  1  .  lER  ) 

811 

811 

XEIEB  -  XXYYI8  +  XEIEB 

812 

812 

XYLNGT  •  XYLNGT  +  XEIEB 

813 

813 

IF(  XYLONG  .  LT  .  XEIEB  )  X 

KDOUBL  .  EQ  .  IE  IB  )  THEN 


XEIEB 


11 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 
801 
802 

803 

804 

805 

806 
807 
806 
609 
810 
811 
812 
813 
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814 

814 

IF(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  -  XEIEB 

814 

815 

815 

C 

815 

816 

816 

INDCTR  •  2 

816 

817 

817 

C 

IF{  XYLONG  /  XYSHRT  •  GT  .  10.  .  AND  .  JLOOP  , 

EQ  .  0  )  RETURN 

817 

818 

618 

c 

818 

819 

819 

IVl  -  IVIN 

819 

820 

820 

lEl  -  IICOLR{  IJTRIG  ) 

820 

821 

821 

IF{  lEl  .  GT  .  0  )  THEN 

821 

822 

822 

IV2  -  JE(  2  ,  lEl  ) 

822 

823 

823 

ELSE 

823 

824 

824 

IV2  -  JE(  1  .  -  lEl  ) 

824 

825 

825 

END  IF 

825 

826 

826 

c 

826 

827 

827 

NEC  -  IECRSS(  lETRIG  ) 

827 

828 

828 

lETRIG  -  lETRIG  -  1 

828 

829 

829 

c 

829 

830 

830 

JV(  2  .  IV2  )  -  -  NEC 

830 

831 

831 

JE(  1  .  NEC  )  -  IV2 

831 

832 

832 

JE(  2  ,  NEC  )  »  IVI 

832 

833 

833 

JE(  4  .  NEC  )  »  0 

833 

834 

834 

JE(  5  ,  NEC  )  =  ITYPE 

834 

835 

835 

c 

835 

836 

836 

IJTRIG  -  IJTRIG  +  1 

836 

837 

837 

IICOLR(  IJTRIG  )  -  NEC 

837 

838 

838 

c 

838 

839 

839 

ELSE  IF(  IKKE  .  EQ  .  2  )  THEN 

839 

840 

840 

c 

840 

841 

841 

c 

BEGINING  THE  DELETION  PROCESS  IF  KSD  HAS  A  VERTEX  ON 

THE  BOUNDARY 

841 

842 

842 

c 

THE 

FIRST  LOOP  IS  AROUND  VERTEX  KKVl  . 

842 

843 

843 

c 

843 

844 

844 

IW  -  KKVl 

844 

845 

845 

IE  •  lEIN 

845 

846 

846 

IVIN  -  JE(  2  .  IE  ) 

846 

847 

847 

XXYYIB  •  XE(  1  .  IE  ) 

847 

848 

848 

IVl  -  JE(  1  .  IE  ) 

848 

849 

849 

IF(  IVl  .  EQ  .  IW  )  THEN 

849 

850 

850 

ISI  -  JE(  3  .  IE  ) 

850 

851 

851 

ELSE 

851 

852 

852 

ISI  -  J£(  4  .  IE  ) 

852 

853 

853 

END  IF 

853 

854 

854 

IS  -  ISI 

854 

855 

855 

c 

855 

856 

856 

290 

CONTINUE 

856 

857 

857 

c 

857 

858 

858 

ITRIG  =  ITRIG  *  1 

858 

859 

859 

ISCRSS(  ITRIG  )  -  IS 

859 

860 

860 

c 

860 

861 

861 

lETRIG  -  lETRIG  +  1 

861 

862 

862 

IECRSS(  lETRIG  )  =  IE 

862 

863 

863 

c 

863 

864 

864 

IF( 

864 

865 

865 

HYDFLX(  IS  .  4  )  .  GT  .  FLUXPP  .  OR  . 

865 

866 

866 

HYDFLX(  IS  .  2  )  .  GT  .  FLUXUU  .  OR  . 

866 

867 

867 

HYDFLX(  IS  ,  1  )  .  GT  .  FLUXRR  .  OR  . 

867 

868 

868 

KSOELT(  IS  )  .  GT  .  NIOUMP  .  OR  . 

868 

869 

869 

XS(  3  ,  IS  )  .  GT  .  AREVGG  )  THEN 

869 

870 

870 

INDCTR  -  3 

870 

871 

871 

RETURN 

871 

872 

872 

END  IF 

872 

873 

873 

c 

873 

874 

874 

DO  300  IR  -  1  ,  3 

874 

875 

875 

JR  -  HOD(  IR  ,  3  )  +  1 

lEA  -  IABS(  JS(  JR  +  3  .  IS  )  ) 

875 

876 

876 

876 

877 

877 

IF(  lEA  .  EQ  .  IE  )  THEN 

877 

878 

878 

HR  -  H00{  JR  .  3  )  +  4 

878 

879 

879 

lEI  «  JS(  HR  .  IS  ) 

879 

860 

880 

lEIB  -  IABS(  lEI  ) 

880 

881 

881 

XEIEB  -  XE(  1  .  lEIB  ) 

881 

882 

882 

XYLNGT  -  XYLNGT  +  XEIEB 

882 

883 

883 

IF{  XYLONG  ,  LT  .  XEIEB  )  XYLONG  -  XEIEB 

883 

884 

884 

IF(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  -  XEIEB 

884 

885 

885 

IJTRIG  -  IJTRIG  +  1 

885 

886 

886 

HCOLR(  IJTRIG  )  -  lEI 

886 

887 

887 

JJR  -  MODI  JR  +  1  .  3  )  +  4 

887 
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888 

888 

lER  -  1ABS(  JS(  JJR  .  IS  )  ) 

888 

889 

889 

C 

889 

890 

890 

IVl  -  JE{  1  .  lER  ) 

890 

891 

891 

IF(  IVl  .  EQ  ,  IVV  )  THEN 

891 

892 

892 

ISR  -  JE(  3  .  lER  ) 

892 

893 

893 

ELSE 

893 

894 

894 

ISR  -  JE(  4  .  lER  ) 

894 

895 

895 

END  IF 

895 

896 

896 

END  IF 

896 

897 

897 

c 

897 

898 

898 

300 

CONTINUE 

898 

899 

899 

C 

899 

900 

900 

IF(  lER  .  NE  .  IKKE3  )  THEN 

900 

901 

901 

IS  -  ISR 

901 

902 

902 

IE  -  lER 

902 

903 

903 

GO  TO  290 

903 

904 

904 

END  IF 

904 

905 

905 

IJTRIG  -  IJTRIG  -  2 

90S 

906 

906 

C 

906 

907 

907 

c 

FIRST  LOOP  SUROUNDING  KKVl  IS  DONE,  SECOND  LOOP  OVER  KKV2  START  , 

907 

908 

908 

c 

908 

909 

909 

IVV  -  KKV2 

909 

910 

910 

IE  >  1ABS(  IICOLR(  IJTRIG  +  1  )  ) 

910 

911 

911 

IVl  =  JE(  1  .  IE  ) 

911 

912 

912 

IF(  IVl  .  EQ  .  IVV  )  THEN 

912- 

913 

913 

ISI  -  JE(  3  ,  IE  ) 

913 

914 

914 

ELSE 

914 

915 

915 

ISI  -  JE(  4  .  IE  ) 

E15 

916 

916 

END  IF 

916 

917 

917 

IS  -  ISI 

917 

918 

918 

c 

918 

919 

919 

I  LOOP  -  0 

919 

920 

920 

310 

CONTINUE 

920 

921 

921 

IDOUBL  >  IABS(  IICOLRC  IJTRIG  )  ) 

921 

922 

922 

C 

922 

923 

923 

ITRIG  -  ITRIG  +  1 

923 

924 

924 

ISCRSS(  ITRIG  )  •  IS 

924 

925 

925 

c 

925 

926 

926 

lETRlG  =  lETRIG  +  1 

926 

927 

927 

IECRSS(  lETRIG  )  -  IE 

927 

928 

928 

c 

928 

929 

929 

IF( 

929 

930 

930 

HYOFLX(  IS  .  4  )  .  GT  .  FLUXPP  .  OR  . 

930 

931 

931 

HYDFLX(  IS  ,  2  )  .  GT  .  FLUXUU  .  OR  . 

931 

932 

932 

HYOFLX{  IS  .  1  )  .  GT  .  FLUXRR  .  OR  . 

932 

933 

933 

KSDELT(  IS  )  .  GT  .  NIDUMP  .  OR  . 

933 

934 

934 

XS(  3  ,  IS  )  .  GT  .  AREVGG  )  THEN 

934 

935 

935 

INDCTR  =  3 

935 

936 

936 

RETURN 

936 

937 

937 

END  IF 

937 

938 

938 

c 

938 

939 

939 

DO  320  IR  -  1  .  3 

939 

940 

940 

JR  -  M00(  IR  .  3  )  +  1 

940 

941 

941 

lEA  -  IABS(  JS(  JR  +  3  ,  IS  )  ) 

941 

942 

942 

IF(  lEA  .  EQ  .  IE  )  THEN 

942 

943 

943 

HR  -  MODI  JR  .  3  )  +  4 

943 

944 

944 

lEI  -  JS(  HR  ,  IS  ) 

944 

945 

945 

lEIB  -  IABS(  lEI  ) 

945 

946 

946 

XEIE8  -  XE(  1  ,  lElB  ) 

946 

947 

947 

XYLNGT  *  XYLNGT  +  XEIEB 

947 

948 

948 

IF{  XYLONG  .  LT  .  XEIEB  )  XYLONG  -  XEIEB 

948 

949 

949 

IF{  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  -  XEIEB 

949 

950 

950 

I LOOP  -  I  LOOP  +  1 

950 

951 

951 

IF(  ILOOP  .  EQ  .  1  .  AND  .  IDOUBL  .  EQ  .  lEIB  )  THEN 

951 

952 

952 

JLOOP  -  1 

952 

953 

953 

lETRIG  =  lETRIG  +  1 

953 

954 

954 

IECRSS{  lETRIG  )  -  IDOUBL 

954 

955 

955 

IJTRIG  -  IJTRIG  -  1 

955 

956 

956 

IF(  lEI  .  GT  .  0  )  THEN 

956 

957 

957 

JKVV  *  JE(  1  ,  lEIB  ) 

957 

958 

958 

ELSE 

958 

959 

959 

JKVV  -  JE(  2  .  lEIB  ) 

959 

960 

960 

END  IF 

960 

961 

961 

JVDELT  =  JVDELT  +  1 

961 
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962 

962 

IVDELT(  JVOELT  )  »  JKVV 

962 

963 

963 

ILOOP  -  0 

963 

964 

964 

ELSE 

964 

965 

965 

IJTRIG  •  IJTRIG  +  1 

965 

966 

966 

IICOLR(  IJTRIG  )  -  lEI 

966 

967 

967 

END  IF 

967 

968 

968 

JJR  -  MOD(  JR  +  1  .  3  )  +  4 

968 

969 

969 

lER  -  IABS(  JS{  JJR  .  IS  )  ) 

969 

970 

970 

C 

970 

971 

971 

IVl  -  JE(  1  .  lER  ) 

971 

972 

972 

IF(  IVl  .  EQ  .  IVV  )  THEN 

972 

973 

973 

ISR  -  JE{  3  ,  lER  ) 

973 

974 

974 

ELSE 

974 

975 

975 

ISR  -  JE(  4  .  lER  ) 

975 

976 

976 

END  IF 

976 

977 

977 

END  IF 

977 

978 

978 

C 

978 

979 

979 

320 

CONTINUE 

979 

980 

980 

C 

980 

981 

981 

IF(  lER  .  NE  .  IKKE2  )  THEN 

981 

982 

982 

IS  •  ISR 

982 

983 

983 

IE  -  lER 

983 

984 

984 

GO  TO  310 

984 

985 

985 

END  IF 

985 

986 

986 

C 

986 

987 

987 

IJTRIG  -  IJTRIG  -  1 

987 

988 

988 

C 

988 

989 

989 

C 

SECOND  LOOP  SUROUNDIHG  KKV2  IS  DONE.  THIRD  LOOP  OVER  KKV3  START  . 

989 

990 

990 

C 

990 

991 

991 

IVV  -  KKV3 

991 

992 

992 

IE  -  IABS(  IIC0LR(  IJTRIG  +  1  )  ) 

992 

993 

993 

IVl  -  JE{  1  .  IE  ) 

993 

994 

994 

1F(  IVl  .  EQ  .  IVV  )  THEN 

994 

995 

995 

ISI  •  JE(  3  .  IE  ) 

995 

996 

996 

ELSE 

996 

997 

997 

ISI  •  JE(  4  ,  IE  ) 

997 

998 

998 

END  IF 

998 

999 

999 

IS  -  ISI 

999 

1000 

1000 

C 

1000 

1001 

1001 

ILOOP  •  0 

1001 

1002 

1002 

330 

CONTINUE 

1002 

1003 

1003 

KDOUBL  •  IABS(  IICOLR(  IJTRIG  )  } 

1003 

1004 

1004 

C 

1004 

1005 

1005 

ITRIG  •  ITRIG  +  1 

1005 

1006 

1006 

ISCRSS(  ITRIG  )  -  IS 

1006 

1007 

1007 

lETRIG  -  lETRIG  +  1 

1007 

1008 

1008 

IECRSS{  lETRIG  )  -  IE 

1008 

1009 

1009 

c 

1009 

1010 

1010 

IF{ 

1010 

1011 

1011 

HYDFLX(  IS  .  4  )  .  GT  .  FLUXPP  .  OR  . 

1011 

1012 

1012 

HYDFLX(  IS  .  2  )  .  GT  ,  FLUXUU  .  OR  . 

1012 

1013 

1013 

HYDFLX(  IS  ,  1  )  .  GT  .  FLUXRR  .  OR  . 

1013 

1014 

1014 

KSOELT(  IS  )  ,  GT  .  NIDUMP  .  OR  . 

1014 

1015 

1015 

XS(  3  .  IS  )  .  GT  .  AREVGG  )  THEN 

1015 

1016 

1016 

INDCTR  -  3 

1016 

1017 

1017 

RETURN 

1017 

1018 

1018 

END  IF 

1018 

1019 

1019 

c 

1019 

1020 

1020 

DO  340  IR  -  1  ,  3 

1020 

1021 

1021 

JR  -  MOD(  IR  ,  3  )  +  I 

1021 

1022 

1022 

lEA  -  IABS(  JS(  JR  +  3  .  IS  )  ) 

1022 

1023 

1023 

IF(  lEA  .  EQ  .  IE  )  THEN 

1023 

1024 

1024 

HR  -  MODI  JR  ,  3  )  +  4 

1024 

1025 

1025 

lEI  -  JS(  HR  ,  IS  ) 

1025 

1026 

1026 

lEIB  -  IABS(  lEI  ) 

1026 

1027 

1027 

XEIEB  >  XE(  1  .  lEIB  ) 

1027 

1028 

1028 

XYLNGT  .  XYLNGT  +  XEIEB 

1028 

1029 

1029 

IF(  XYLONG  .  LT  .  XEIEB  )  XYLONG  •  XEIEB 

1029 

1030 

1030 

IF(  XYSHRT  .  GT  ,  XEIEB  )  XYSHRT  -  XEIEB 

1030 

1031 

1031 

ILOOP  -  ILOOP  +  1 

1031 

1032 

1032 

IF(  ILOOP  .  EQ  .  1  .  AND  .  KDOUBL  .  EQ  .  lEIB  )  THEN 

1032 

1033 

1033 

JLOOP  -  2 

1033 

1034 

1034 

lETRIG  -  lETRIG  +  1 

1034 

1035 

1035 

IECRSS(  lETRIG  )  -  KDOUBL 

1035 
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1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 
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340 
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C 

C 

C 
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C 

360 

C 
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IJTRIG  -  IJTRIG  -  1 
IF(  lEI  .  GT  .  0  )  THEN 
JKVV  -  J£(  1  ,  lEIB  ) 

ELSE 

JKVV  •  JE{  2  .  lEIB  ) 

END  IF 

JVDELT  =  JVDELT  +  1 
1V0ELT(  JVDELT  )  =  JKVV 
ILOOP  -  0 
ELSE 

IJTRIG  »  IJTRIG  +  1 
IIC0LR(  IJTRIG  )  -  lEI 
END  IF 

JJR  -  HOO(  JR  +  I  .  3  )  +  4 
lER  =  IABS(  JS(  JJR  .  IS  )  ) 

IVl  -  JE(  1  .  lER  ) 

IF{  IVl  .  Eg  .  IVV  )  THEN 
ISR  -  JE{  3  .  lER  ) 

ELSE 

ISR  ■  JE{  4  ,  lER  ) 

END  IF 
END  IF 

CONTINUE 

IF(  lER  .  NE  .  IKKE3  )  THEN 
IS  -  ISR 
IE  -  lER 
GO  TO  330 
END  IF 

lETRIG  =  lETRIG  +  1 
IECRSS(  lETRIG  )  -  1KKE3 
lETRIG  =  lETRIG  +  1 
IECRSS(  lETRIG  )  «  IKKE2 

IJTRIG  -  IJTRIG  -  1 


THIRD  LOOP  SUROUNDING  KKV3  IS  DONE,  FOURTH  LOOP  OVER  KKVl  START 


IVV  -  KKVl 

IE  -  IABS(  I1C0LR(  IJTRIG  +  1  )  ) 
IF(  JE(  5  ,  IE  )  .  NE  .  0  )  THEN 
lER  -  IE 
GO  TO  350 
END  IF 

IVl  -  JE(  1  ,  IE  ) 

IF(  IVl  .  EQ  .  IVV  )  THEN 
ISI  -  JE(  3  ,  IE  ) 

ELSE 

ISI  •  J£(  4  ,  IE  ) 

END  IF 
IS  -  ISI 
ISI  -  0 


ILOOP  -  0 
CONTINUE 

JDOUBL  =  1ABS(  IICOLR(  IJTRIG  )  ) 

ITRIG  .  ITRIG  +  I 
ISCRSS{  ITRIG  )  =  IS 
lETRIG  .  lETRIG  +  1 
lECRSSI  lETRIG  )  -  IE 


IF( 

HYOFLXI  IS  ,  4  )  .  GT  .  FLUXPP  .  OR  . 

HYDFLX(  IS  ,  2  )  .  GT  ,  FLUXUU  .  OR  . 

HYDFLXC  IS  .  1  )  .  G*  .  FLUXRR  .  OR  . 

KSOELT(  IS  )  .  GT  .  NIOUMP  .  OR  . 

XS(  3  .  IS  )  ,  GT  .  AREVGG  )  THEN 

INOCTR  -  3 
RETURN 
END  IF 
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1110 

1110 

C 

1110 

nil 

nil 

DO  370  IR  -  1  .  3 

nil 

1112 

1112 

JR  -  MOD(  IR  ,  3  )  +  1 

lEA  -  IA8S(  JS(  JR  +  3  .  IS  )  ) 

1112 

1113 

1113 

1113 

1114 

1114 

IF(  lEA  .  EQ  .  IE  r  THEN 

1114 

1115 

1115 

HR  -  M00(  JR  ,  3  )  +  4 

1115 

1116 

1116 

lEI  -  JS(  HR  .  IS  ) 

1116 

1117 

1117 

lEIB  =.  IABS(  lEI  ) 

1117 

1118 

1118 

XEIEB  ="  XE(  1  .  lEIB  ) 

1118 

1119 

1119 

XYLNGT  -  XYLNCT  +  XEIEB 

1119 

1120 

1120 

IF(  XYLONG  .  LT  .  XEIEB  )  XYLONG  -  XEIEB 

1120 

1121 

1121 

IF(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  -  XEIEB 

1121 

1122 

1122 

ILOOP  «  ILOOP  +  1 

1122 

1123 

1123 

IF{  ILOOP  .  EQ  .  1  .  AND  .  JDOUBL  .  EQ  .  lEIB  )  THEN  1123 

1124 

1124 

JLOOP  -  3 

1124 

1125 

1125 

lETRIG  «  lETRIG  +  1 

1125 

1126 

1126 

IECRSS(  lETRIG  )  =  JDOUBL 

1126 

1127 

1127 

IJTRIG  •  IJTRIG  -  1 

1127 

1128 

1128 

IF(  lEI  .  GT  .  0  )  THEN 

1128 

1129 

1129 

JKVV  -  JE(  1  ,  lEIB  ) 

1129 

1130 

1130 

ELSE 

1130 

1131 

1131 

JKVV  -  JE(  2  .  lEIB  ) 

1131 

1132 

1132 

END  IF 

1132 

1133 

1133 

JVOELT  =  JVOELT  +  1 

1133 

1134 

1134 

IVOELT(  JVOELT  )  .  JKW 

1134 

1135 

1135 

ILOOP  -  0 

1135 

1136 

1136 

ELSE 

1136 

1137 

1137 

IJTRIG  -  IJTRIG  +  1 

1137 

1138 

1138 

1IC0LR(  IJTRIG  )  -  lEI 

1138 

1139 

1139 

END  IF 

1139 

1140 

1140 

JJR  -  H00(  JR  +  1  .  3  )  ♦  4 

1140 

1141 

1141 

lER  -  IABS(  JS(  JJR  .  IS  )  ) 

1141 

1142 

1142 

C 

1142 

1143 

1143 

IVl  =  JE(  1  .  lER  ) 

1143 

1144 

1144 

IF(  IVl  ,  EQ  .  IVV  )  THEN 

1144 

1145 

1145 

ISR  -  JE(  3  .  lER  ) 

1145 

1146 

1146 

ELSE 

1146 

1147 

1147 

ISR  ■  JE(  4  ,  lER  ) 

1147 

1148 

1148 

END  IF 

1148 

1149 

1149 

END  IF 

1149 

1150 

1150 

C 

1150 

1151 

1151 

370 

CONTINUE 

1151 

1152 

1152 

C 

1152 

1153 

1153 

IF(  ISR  .  N£  .  ISI  )  THEN 

1153 

1154 

1154 

IS  -  ISR 

1154 

1155 

1155 

IE  -  lER 

1155 

1156 

1156 

GO  TO  360 

1156 

1157 

1157 

END  IF 

1157 

1158 

1158 

c 

1158 

1159 

1159 

350 

CONTINUE 

1159 

1160 

1160 

C 

1160 

1161 

1161 

lETRIG  •  lETRIG  +  1 

1161 

1162 

1162 

1ECR5S(  lETRIG  )  =  lER 

1162 

1163 

1163 

C 

1163 

1164 

1164 

ITYPE  =  JE(  5  ,  lER  ) 

1164 

1165 

1165 

C 

lies 

1166 

1166 

XEIEB  -  XE(  1  ,  lER  ) 

1166 

1167 

1167 

XEIEB  -  XXYYIB  ♦  XEIEB 

1167 

1168 

1168 

XYLii'^T  -  XYLNGT  +  XEIEB 

1168 

1169 

1169 

IF(  XTLONG  .  LT  .  XEIEB  )  XYLONG  -  XEIEB 

1169 

1170 

1170 

IF(  XYSHRT  .  GT  ,  XEIEB  )  XYSHRT  -  XEIEB 

1170 

1171 

1171 

C 

1171 

1172 

1172 

INDCTR  »  2 

1172 

1173 

1173 

C 

1F(  XYLONG  /  XYSHRT  .  GT  .  10.  .  AND  .  JLOOP  .  EQ  . 

.  0  )  RETURN  1173 

11 M 

1174 

C 

1174 

1175 

1175 

IVl  =  IVIN 

1175 

1176 

1176 

lEl  -  IICOLR(  IJTRIG  ) 

1176 

1177 

1177 

IF(  lEl  .  GT  .  0  )  THEN 

1177 

1178 

1178 

IV2  -  JE(  2  ,  lEl  ) 

1178 

n7's 

1179 

ELSE 

1179 

liCiO 

1180 

IV2  *  JE(  1  ,  -  lEl  ) 

1180 

1181 

1181 

END  IF 

1181 

1182 

1182 

C 

1182 

1183 

1183 

NEC  -  IECRSS{  lETRIG  ) 

1183 
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1184 

1184 

1185 

1185 

C 

1186 

1186 

1187 

1187 

1188 

1188 

1189 

1189 

1190 

1190 

1191 

1191 

C 

1192 

1192 

1193 

1193 

1194 

1194 

c 

1195 

1195 

1196 

1196 

c 

1197 

1197 

c 

1198 

1198 

c 

1199 

1199 

c 

1200 

1200 

c 

1201 

1201 

1202 

1202 

1203 

1203 

1204 

1204 

1205 

1205 

1206 

1206 

1207 

1207 

1208 

1208 

1209 

1209 

1210 

1210 

1211 

1211 

1212 

1212 

c 

1213 

1213 

380 

1214 

1214 

c 

1215 

1215 

1216 

1216 

1217 

1217 

1218 

1218 

1219 

1219 

C 

1220 

1220 

1221 

1221 

1222 

1222 

1223 

1223 

1224 

1224 

1225 

1225 

1226 

1226 

1227 

1227 

1228 

1228 

1229 

1229 

c 

1230 

1230 

1231 

1231 

1232 

1232 

1233 

1233 

1234 

1234 

1235 

1235 

1236 

1236 

1237 

1237 

1238 

1238 

1239 

1239 

1240 

1240 

1241 

1241 

1242 

1242 

1243 

1243 

1244 

1244 

1245 

1245 

c 

1246 

1246 

1247 

1247 

1248 

1248 

1249 

1249 

1250 

1250 

1251 

1251 

1252 

1252 

1253 

1253 

c 

1254 

1254 

390 

1255 

1255 

C 

1256 

1256 

1257 

1257 

lETRIG  =  lETRlG  -  1 

JV(  2  .  IV2  )  =  -  NEC 

JE(  1  ,  NEC  )  =  1V2 

J£(  2  .  NEC  )  -  IVl 

JE(  4  .  NEC  )  .  0 

JE(  5  ,  NEC  }  =  ITYPE 

IJTRIG  =.  IJTRIG  *  1 
HCOLRt  IJTRIG  )  =  NEC 

ELSE  IF(  IKKE  .  £Q  .  3  )  THEN 

BEGINING  THE  DELETION  PROCESS  IF  KSO  HAS  TWO  VERTECIS  ON  THE  BOUNDARY 
BUT  THE  EDGE  THAT  CONNECT  THEM  IS  IN  THE  COMPUTATIONAL  DOMAIN. 

THE  FIRST  LOOP  IS  AROUND  VERTEX  KKVl  . 

IVV  «  KKVl 
IE  -  lEINl 

XXYYI8  .  XE(  1  .  IE  ) 

IVl  -  JE(  1  ,  IE  ) 

IVINl  =  JE(  2  ,  IE  ) 

IF(  IVl  .  EQ  .  IVV  )  THEN 
ISI  .  JE(  3  ,  IE  ) 

ELSE 

ISI  >  JE(  4  ,  IE  ) 

END  IF 
IS  -  ISI 

CONTINUE 

ITRIG  -  ITRIG  +  1 
ISCRSS{  ITRIG  )  =  IS 
lETRIG  =  lETRIG  +  1 
IECRSS{  lETRIG  )  «  IE 

1F( 

HYDFLX{  IS  .  4  )  .  GT  .  FLUXPP  .  OR  . 

HYOFLX{  IS  ,  2  )  .  GT  .  FLUXUU  .  OR  . 

HYOFLX(  IS  .  1  )  .  GT  .  FLUXRR  .  OR  . 

KSO£LT(  IS  )  .  GT  .  NIDUMP  .  OR  . 

XS(  3  .  IS  )  .  GT  .  AREVGG  )  THEN 

IHOCTR  =  3 
RETURN 
END  IF 

00  390  IR  -  1  .  3 

JR  «  H0D(  IR  ,  3  )  +  1 

lEA  =  IABS(  JS(  JR  ♦  3  ,  IS  )  ) 

IF(  lEA  .  EQ  .  IE  )  THEN 
HR  =  HOD(  JR  ,  3  )  +  4 
lEl  =  JS(  HR  ,  IS  ) 
lEIB  ^  IABS(  lEI  ) 

XEIEB  -  XE(  1  .  IEI8  ) 

XYLNGT  =  XYLNGT  +  XEIEB 

IF(  XYLONG  .  LT  .  XEIEB  )  XYLONG  =  XEIEB 

IF{  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  -  XEIEB 

IJTRIG  -  IJTRIG  +  1 

IICOLR(  IJTRIG  )  =  lEI 

JJR  -  M00(  JR  *  1  ,  3  )  ♦  4 

lER  -  IABS(  JS(  JJR  ,  IS  )  ) 

IVl  =  JE(  1  ,  lER  ) 

IF(  IVl  .  EQ  .  IVV  )  THEN 
ISR  -  J£(  3  ,  lER  ) 

ELSE 

ISR  =  JE(  4  ,  lER  ) 

END  IF 
END  IF 

CONTINUE 

1F(  lER  .  NE  .  1KKE3  )  THEN 
IS  -  ISR 
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• 

1258 

1258 

IE  >  lER 

1258 

1259 

1259 

GO  TO  380 

1259 

1260 

1260 

END  IF 

1260 

1261 

1261 

C 

1261 

1262 

1262 

C 

FIRST  LOOP  SUROUHOING  KKVl  IS  DONE.  SECOND  LOOP  OVER  KKV2  START  . 

1262 

1263 

1263 

C 

1263 

• 

1264 

1264 

IJTRIG  -  IJTRIG  -  I 

1264 

1265 

1265 

400 

CONTINUE 

1265 

1266 

1266 

C 

1266 

1267 

1267 

lEJK  .  IICOLR(  IJTRIG  ) 

1267 

1268 

1268 

IF{  lEJK  .  GT  .  0  )  THEN 

1268 

1269 

1269 

IVIEJK  «  JE(  1  ,  lEJK  ) 

1269 

1270 

1270 

IJEJK5  -  JE(  5  .  lEJK  ) 

1270 

1271 

1271 

ELSE 

1271 

• 

1272 

1272 

IVIE.K  •  JE(  2  .  -lEJK  ) 

1272 

1273 

1273 

IJEJK5  -  JE(  5  .  -lEJK  ) 

1273 

1274 

1274 

END  IF 

1274 

1275 

1275 

c 

1275 

1276 

1276 

IF(  IJEJK5  .  £Q  .  0  )  THEN 

1276 

1277 

1277 

JLOOP  -  1 

1277 

1278 

1278 

c 

1278 

1279 

1279 

c 

INTERHEDIATE  LOOP  START  . 

1279 

• 

1280 

1280 

c 

1280 

1281 

1281 

lEJKI  -  IABS(  IICOLR(  IJTRIG  -  1  )  ) 

1281 

1282 

1282 

IEJK2  >  IABS(  lEJK  ) 

1282 

1283 

1283 

lETRIG  -  lETRIG  +  1 

1283 

1284 

1284 

IECRSS(  lETRIG  )  -  IEJK2 

1284 

1285 

1285 

IJTRIG  -  IJTRIG  -  2 

1285 

1286 

1286 

IVV  -  IVIEJK 

1286 

1287 

1287 

JVDELT  -  JVDELT  +  1 

1287 

• 

1288 

1288 

IVOELT(  JVDELT  )  -  !W 

1288 

1289 

1289 

IE  •  lEJKI 

1289 

1290 

1290 

IVl  -  JE(  1  ,  IE  ) 

1290 

1291 

1291 

IF(  IVl  .  EQ  .  IVV  )  THEN 

1291 

1292 

1292 

ISI  -  JE(  3  .  IE  ) 

1292 

1293 

1293 

ELSE 

1293 

1294 

1294 

ISI  -  JE(  4  ,  IE  ) 

1294 

1295 

1295 

END  IF 

1295 

• 

1296 

1296 

IS  ■  ISI 

1296 

1297 

1297 

lET  -  IEJK2 

1297 

1298 

1298 

c 

12% 

1299 

1299 

410 

CONTINUE 

1299 

1300 

1300 

c 

1300 

1301 

1301 

ITRIG  =  ITRIG  +  1 

1301 

1302 

1302 

ISCRSSI  ITRIG  )  -  IS 

1302 

1303 

1303 

c 

1303 

• 

1304 

1304 

lETRlG  -  lETRIG  +  1 

1304 

1305 

1305 

IECRSS(  lETRIG  )  -  IE 

1305 

1306 

1306 

c 

1306 

1307 

1307 

IF( 

1307 

1308 

1308 

HYDFLX(  IS  ,  4  )  .  GT  .  FLUXPP  .  OR  . 

1308 

1309 

1309 

HYOFLX(  IS  .  2  )  ,  GT  .  FLUXUU  .  OR  . 

1309 

1310 

1310 

HYDFLXI  IS  .  1  )  .  GT  .  FLUXRR  .  OR  . 

1310 

1311 

1311 

KSOELT(  IS  )  .  GT  .  NIDUHP  .  OR  . 

1311 

• 

1312 

1312 

XS(  3  ,  IS  )  .  GT  .  AREVGG  )  THEN 

1312 

1313 

1313 

INDCTR  -  3 

1313 

1314 

1314 

RETURN 

1314 

1315 

1315 

END  IF 

1315 

1316 

1316 

c 

1316 

1317 

1317 

DO  420  IR  -  1  ,  3 

1317 

1318 

1318 

JR  -  MOD(  IR  .  3  )  +  1 

1318 

1319 

1319 

lEA  -  IABS(  J5(  JR  +  3  ,  IS  )  ) 

1319 

• 

1320 

1320 

1F(  lEA  .  EQ  .  IE  )  THEN 

1320 

1321 

1321 

HR  -  H00(  JR  ,  3  )  ♦  4 

1321 

1322 

1322 

lEI  -  JS(  HR  ,  IS  ) 

1322 

1323 

1323 

lElB  -  IA8S(  lEI  ) 

1323 

1324 

1324 

XEIE8  '  XE(  1  ,  lEIB  ) 

1324 

1325 

1325 

XYLNGT  =  XYLNGT  +  XEIEB 

1325 

1326 

1326 

IF(  XYLONG  .  LT  .  XEIEB  )  XYLONG  -  XEIEB 

1326 

1327 

1327 

IF(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  -  XEIEB 

1327 

• 

1328 

1328 

I  IKK  -  IABS(  IICOLR{  IJTRIG  )  ) 

1328 

1329 

1329 

IF{  IIKK  .  EQ  .  lEIB  )  THEN 

1329 

1330 

1330 

JLOOP  -  Z 

1330 

1331 

1331 

lETRIG  -  lETRlG  +  1 
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1340 

1340 

1341 

1341 

1342 

1342 

1343 

1343 

1344 

1344 

1345 

1345 

1346 

1346 

1347 

1347 

C 

1348 

1348 

1349 

1349 

1350 

1350 

1351 

1351 

1352 

1352 

1353 

1353 

1354 

1354 

1355 

1355 

C 

1356 

1356 

420 

1357 

1357 

C 

1358 

1358 

1359 

1359 

1360 

1360 

1361 

1361 

1362 

1362 

1363 

1363 

C 

1364 

1364 

1365 

1365 

1366 

1366 

C 

1367 

1367 

C 

1368 

1368 

C 

1369 

1369 

1370 

1370 

1371 

1371 

1372 

1372 

1373 

1373 

1374 

1374 

1375 

1375 

1376 

1376 

1377 

1377 

1378 

1378 

1379 

1379 

1380 

1380 

C 

1381 

1381 

430 

1382 

1382 

C 

1383 

1383 

1384 

1384 

1385 

1385 

C 

1386 

1386 

1387 

1387 

1388 

1388 

C 

1389 

1389 

1390 

1390 

1391 

1391 

1392 

1392 

1393 

1393 

1394 

1394 

1395 

1395 

1396 

1396 

1397 

1397 

1398 

1398 

C 

1399 

1399 

1400 

1400 

1401 

1401 

1402 

1402 

1403 

1403 

1404 

1404 

1405 

1405 

delthd.f 

IECRSS(  lETRIG  )  =  1EI8 
IJTRIG  «  IJTRIG  -  1 
IF{  lEI  .  GT  .  0  )  THEM 
JKVV  -  JE(  1  ,  lEIB  ) 

ELSE 

JKVV  -  JE(  2  .  lElB  ) 

END  IF 

JVDELT  .  JVDELT  +  l 
IVDELT(  JVDELT  )  >  JKVV 
ELSE 

IJTRIG  .  IJTRIG  +  1 
IICOLR(  IJTRIG  )  -  lEI 
END  IF 

JJR  -  M00(  JR  +  1  ,  3  )  +  4 
lER  -  IABS(  JS(  JJR  .  IS  )  ) 
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IVl  -  JE(  1  . 
1F(  IVl  .  £Q 
ISR  -  JE(  3  . 
ELSE 

ISR  -  JE{  4  . 
END  IF 
END  IF 


lER  ) 

IVV  )  THEN 
lER  ) 

lER  ) 


CONTINUE 

IF(  lER  . 
IS  -  ISR 
IE  -  lER 
GO  TO  410 
END  IF 

GO  TO  400 
END  IF 


NE  .  lET  )  THEN 


INTERMEDIATE  LOOP  IS  DONE,  SECOND  LOOP  OVER  KKV2  START 


IW  -  KKV2 
IE  •  IEIH2 

IVIN2  -  JE(  2  ,  IE  ) 
lEJKK  =  IICOLR(  IJTRIG  ) 
IVl  -  JE(  1  .  IE  ) 

IF(  IVl  .  EQ  .  IVV  )  THEN 
ISI  -  JE(  3  .  IE  ) 

ELSE 

ISI  =  JE(  4  .  IE  ) 

END  IF 
IS  .  ISI 

CONTINUE 

ITRIG  =  ITRIG  +  1 
ISCRSS(  ITRIG  )  -  IS 

lETRIG  -  lETRIG  *  1 
IECRSS(  lETRIG  )  =  IE 

IF( 

HYOFLX(  IS  ,  4  )  . 
HYDFLX(  IS  ,  2  )  . 

hydflx(  is  ,  1  )  . 

KSDELT(  IS  )  .  GT 
XS{  3  ,  IS  )  .  GT 
INOCTR  -  3 
RETURN 
END  IF 


GT  .  FLUXPP  .  OR 
GT  .  FLUXUU  .  OR 
GT  .  FLUXRR  .  OR 
,  NIDUMP  .  OR  . 

,  AREVGG  )  THEN 


DO  440  IR  -  1  ,  3 

JR  -  HOD(  IR  ,  3  )  +  1 

lEA  -  IABS(  JS(  JR  +  3  .  IS  ) 

IF(  lEA  .  EO  .  IE  )  THEN 

HR  -  M00(  JR  ,  3  )  +  4 

lEI  -  JS(  HR  ,  IS  ) 

lEIB  *  IABS(  lEI  ) 
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1406 

1406 

XEIEB  -  XE(  1  .  lEIB  ) 

1406 

1407 

1407 

XYLHGT  -  XYLNGT  +  XEIEB 

1407 

1408 

1408 

IF(  XYLONG  .  LT  .  XEIEB  )  XYLONG  -  XEIEB 

1408 

1409 

1409 

IF(  XYSHRT  .  GT  .  XEIES  )  XYSHRT  -  XEIEB 

1409 

1410 

1410 

IJTRIG  -  IJTRIG  +  I 

1410 

1411 

1411 

IICOLR(  IJTRIG  )  -  lEI 

1411 

1412 

1412 

JJR  -  H00(  JR  +  1  ,  3  )  +  4 

1412 

1413 

1413 

lER  -  IABS(  JS(  JJR  .  IS  )  ) 

1413 

1414 

1414 

C 

1414 

1415 

1415 

IVl  -  JE{  1  ,  lER  ) 

1415 

1416 

1416 

IF(  IVl  .  EO  .  IVV  )  THEN 

1416 

1417 

1417 

ISR  -  JE(  3  ,  lER  ) 

1417 

1418 

1418 

ELSE 

1418 

1419 

1419 

ISR  -  JE(  4  .  lER  ) 

1419 

1420 

1420 

END  IF 

1420 

1421 

1421 

END  IF 

1421 

1422 

1422 

C 

1422 

1423 

1423 

440 

CONTINUE 

1423 

1424 

1424 

C 

1424 

1425 

1425 

IF(  lER  .  NE  .  IKKE2  )  THEN 

1425 

1426 

1426 

IS  -  ISR 

1426 

1427 

1427 

IE  -  lER 

1427 

1428 

1428 

GO  TO  430 

1428 

1429 

1429 

END  IF 

1429 

1430 

1430 

C 

1430 

1431 

1431 

IJTRIG  -  IJTRIG  -  1 

1431 

1432 

1432 

C 

1432 

1433 

1433 

C 

SECOND  LOOP  SUROUNDING  KKV2  IS  DONE,  THIRD  LOOP  OVER  KKV3  START  . 

1433 

1434 

1434 

C 

1434 

1435 

1435 

IVV  -  KKV3 

1435 

1436 

1436 

IE  -  1ABS(  IICOLR{  IJTRIG  +  1  )  ) 

1436 

1437 

1437 

IVl  -  JE(  1  .  IE  ) 

1437 

1438 

1438 

IF(  IVl  .  EQ  .  IVV  )  THEN 

1438 

1439 

1439 

ISI  -  JE(  3  ,  IE  ) 

1439 

1440 

1440 

ELSE 

1440 

1441 

1441 

ISI  ■  JE(  4  .  IE  ) 

1441 

1442 

1442 

END  IF 

1442 

1443 

1443 

IS  -  ISI 

1443 

1444 

1444 

C 

1444 

1445 

1445 

ILOOP  -  0 

1445 

1446 

1446 

450 

CONTINUE 

1446 

1447 

1447 

lOOUBL  >  IABS(  IICOLR(  IJTRIG  )  ) 

1447 

1448 

1448 

C 

1448 

1449 

1449 

ITRIG  .  ITRIG  +  1 

1449 

1450 

1450 

ISCRSSC  ITRIG  )  -  IS 

1450 

1451 

1451 

lETRIG  -  lETRlG  +  1 

1451 

1452 

1452 

IECRSS(  lETRIG  )  -  IE 

1452 

1453 

1453 

C 

1453 

1454 

1454 

IF( 

1454 

1455 

1455 

HYOFLX(  IS  .  4  )  .  GT  .  FLUXPP  .  OR  . 

1455 

1456 

1456 

HYDFLX(  IS  .  2  )  .  GT  .  FLUXUU  .  OR  . 

1456 

1457 

1457 

HYOFLX(  IS  .  1  )  .  GT  .  FLUXRR  .  OR  . 

1457 

1458 

1458 

KSDELT(  IS  )  .  GT  .  NIOUHP  .  OR  . 

1458 

1459 

1459 

XS(  3  ,  IS  )  .  GT  .  AREVGG  )  THEN 

1459 

1460 

1460 

INDCTR  -  3 

1460 

1461 

1461 

RETURN 

1461 

1462 

1462 

END  IF 

1462 

1463 

1463 

c 

1463 

1464 

1464 

DO  460  IR  -  1  .  3 

1464 

1465 

1465 

JR  -  HOD(  IR  ,  3  )  +  1 

1465 

1466 

1466 

lEA  «  1A8S(  JS(  JR  +  3  .  IS  )  ) 

1466 

1467 

1467 

IF(  lEA  .  EQ  .  IE  )  THEN 

1467 

1468 

1468 

HR  -  H00(  JR  .  3  )  +  4 

1468 

1469 

1469 

lEI  -  JS(  UR  ,  IS  ) 

1469 

1470 

1470 

lEIB  -  IA8S(  lEI  ) 

1470 

1471 

1471 

XEIEB  *  XE(  1  .  lEIB  ) 

1471 

1472 

1472 

XYLNGT  -  XYLNGT  +  XEIEB 

1472 

1473 

1473 

1F(  XYLONG  .  LT  .  XEIEB  )  XYLONG  -  XEIEB 

1473 

1474 

1474 

1F{  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  -  XEIEB 

1474 

1475 

1475 

ILOOP  =  ILOOP  +  1 

1475 

1476 

1476 

1F(  ILOOP  .  EQ  .  1  .  AND  .  IDOUBL  .  EQ  .  IEI8  )  THEN 

1476 

1477 

1477 

JLOOP  -  3 

1477 

1478 

1478 

lETRIG  -  lETRIG  +  1 

1478 

1479 

1479 

IECRSS{  lETRIG  )  >  IDOUBL 

1479 
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1480 

1480 

IJTRIG  -  IJTRIG  -  1 

1481 

1481 

IF(  lEI  .  GT  .  0  )  THEN 

1482 

1482 

JKVV  -  JE(  1  ,  lEIB  ) 

1483 

1483 

ELSE 

1484 

1484 

JKVV  -  JE{  2  ,  lEIB  ) 

1485 

1485 

END  IF 

1486 

1486 

JVDELT  -  JVDELT  +  1 

1487 

1487 

IVDELT(  JVDELT  )  =■  JKVV 

1488 

1488 

ILOOP  -  0 

1489 

1489 

ELSE 

1490 

1490 

IJTRIG  -  IJTRIG  +  1 

1491 

1491 

IICOLR(  IJTRIG  )  =  lEI 

1492 

1492 

END  IF 

1493 

1493 

JJR  -  H00(  JR  +  1  .  3  )  +  4 

1494 

1494 

lER  -  IABS(  JS(  JJR  .  IS  )  : 

1495 

1495 

C 

1496 

1496 

IVl  -  JE{  1  .  lER  ) 

1497 

1497 

IF(  IVl  .  EO  .  IVV  )  THEN 

1498 

1498 

ISR  -  JE(  3  ,  lER  ) 

1499 

1499 

ELSE 

1500 

1500 

ISR  -  JE{  4  ,  lER  ) 

1501 

1501 

END  IF 

1502 

1502 

END  IF 

1503 

1503 

C 

1504 

1504 

460 

CONTINUE 

1505 

1505 

C 

1506 

1506 

IF(  lER  .  HE  .  IKKE3  )  THEN 

1507 

1507 

IS  -  ISR 

1508 

1508 

IE  •  lER 

1509 

1509 

GO  TO  450 

1510 

1510 

END  If 

1511 

1511 

C 

1512 

1512 

lETRIG  -  lETRIG  +  1 

1513 

1513 

IECRSS(  lETRIG  )  -  IKKE3 

1514 

1514 

lETRIG  «  lETRIG  +  1 

1515 

1515 

1ECRSS(  lETRIG  )  -  IKKE2 

1516 

1516 

C 

1517 

1517 

IJTRIG  •  IJTRIG  -  1 

1518 

1518 

C 

1519 

1519 

c 

THIRD  LOOP  SUROUNDING  KKV3  IS  DON 

1520 

1520 

c 

1521 

1521 

IVV  -  KKVl 

1522 

1522 

IE  -  IABS(  IICOLR(  IJTRIG  + 

1523 

1523 

IF(  JE(  5  .  IE  )  .  NE  .  0  ) 

1524 

1524 

lER  -  IE 

1525 

1525 

GO  TO  470 

1526 

1526 

END  IF 

1527 

1527 

IVl  -  JE{  1  .  IE  ) 

1528 

1528 

IF(  IVl  .  EQ  .  IVV  )  THEN 

1529 

1529 

ISl  .  JE(  3  ,  IE  ) 

1530 

1530 

ELSE 

1531 

1531 

ISI  -  JE(  4  .  IE  ) 

1532 

1532 

END  IF 

1533 

1533 

IS  -  ISI 

1534 

1534 

ISI  -  0 

1535 

1535 

c 

1536 

1536 

ILOOP  -  0 

1537 

1537 

480 

CONTINUE 

1538 

1538 

JOOU6L  •  IABS{  IICOLR(  IJTRK 

1539 

1539 

C 

1540 

1540 

FRIG  =  ITRIG  +  1 

1541 

1541 

I3CRSS(  ITRIG  )  -  IS 

1542 

1542 

lETRIG  »  lETRlG  +  1 

1543 

1543 

;ECRSS(  lETRIG  )  -  IE 

1544 

1544 

C 
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IH 

HYDFLXC  IS  ,  4  ) 

HY0FLX(  IS  ,  2  ) 

HYOFLX(  IS  ,  I  ) 

KS0ELT(  IS  )  .  GT 

XS(  3  ,  IS  )  ,  G1 

INDCTR  -  3 
RETURN 
END  IF 


GT  .  FLUXPP  .  OR 
GT  .  FLUXUU  .  OR 
GT  .  FLUXRR  .  OR 
.  NlDUHP  .  OR  . 

.  AREVGG  )  THEN 
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1554 

1554 

C 

1554 

1555 

1555 

00  490  IR  -  1  .  3 

1555 

1556 

1556 

JR  -  M00(  IR  .  3  )  +  1 

1556 

1557 

1557 

lEA  -  IABS(  JS(  JR  +  3  ,  IS  )  ) 

1557 

1558 

1558 

IF(  lEA  .  EQ  .  IE  J  THEN 

1558 

1559 

1559 

HR  -  M0D(  JR  .  3  )  +  4 

1559 

1560 

1560 

lEI  -  JS(  HR  .  IS  ) 

1560 

1561 

1561 

lEIB  •  IABS(  lEI  ) 

1561 

1562 

1562 

XEIEB  -  XE(  1  .  lEIB  ) 

1562 

1563 

1563 

XYLNGT  -  XYLNGT  +  XEIEB 

1563 

1564 

1564 

IF(  XYLONG  .  LT  .  XEIEB  )  XYLONG  - 

XEIEB 

1564 

1565 

1565 

IF(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  - 

XEIEB 

1565 

1566 

1566 

ILOOP  -  I  LOOP  +  1 

1566 

1567 

1567 

IF(  ILOOP  .  £0  .  1  .  AMD  .  JDOOBL  . 

.  EQ  .  lEIB  ) 

THEN 

1567 

1568 

1568 

JLOOP  -  4 

1568 

1569 

1569 

lETRIG  -  lETRIG  +  1 

1569 

1570 

1570 

IECRSS{  lETRIG  )  >  JDOUBL 

1570 

1571 

1571 

IJTRIG  >  IJTRIG  -  I 

1571 

1572 

1572 

IF(  lEI  .  GT  .  0  )  THEN 

1572 

1573 

1573 

JKVV  -  JE(  1  .  lEIB  ) 

1573 

1574 

1574 

ELSE 

1574 

1575 

1575 

JKW  -  JE(  2  .  lEIB  ) 

1575 

1576 

1576 

END  IF 

1576 

1577 

1577 

JVOELT  -  JVOELT  +  1 

1577 

1578 

1578 

IVDELT(  JVOELT  )  -  JKW 

1578 

1579 

1579 

ILOOP  -  0 

1579 

1580 

1580 

ELSE 

1580 

1581 

1581 

IJTRIG  -  IJTRIG  +  1 

1581 

1582 

1582 

HCOLR(  IJTRIG  )  =  I£I 

1582 

1583 

1583 

END  IF 

1583 

1584 

1584 

JJR  -  M00(  JR  +  1  .  3  )  +  4 

1584 

1585 

1585 

lER  •  IABS{  JS(  JJR  ,  IS  )  ) 

1585 

1586 

1586 

C 

1586 

1587 

1587 

IVl  -  JE(  1  .  lER  ) 

1587 

1588 

1588 

IF(  IVl  .  EQ  .  IVV  )  THEN 

1588 

1589 

1589 

ISR  -  JE(  3  ,  lER  ) 

1589 

1590 

1590 

ELSE 

1590 

1591 

1591 

ISR  ■  JE(  4  .  lER  ) 

1591 

1592 

1592 

END  IF 

1592 

1593 

1593 

END  IF 

1593 

1594 

1594 

C 

1594 

1595 

1595 

490 

CONTINUE 

1595 

1596 

1596 

C 

1596 

1597 

1597 

IF(  ISR  .  NE  .  ISI  )  THEN 

1597 

1598 

1598 

IS  -  ISR 

1598 

1599 

1599 

IE  -  lER 

1599 

1600 

1600 

GO  TO  480 

1600 

1601 

1601 

END  IF 

1601 

1602 

1602 

c 

1602 

1603 

1603 

470 

CONTINUE 

1603 

1604 

1604 

c 

1604 

1605 

1605 

lETRIG  .  lETRIG  +  1 

1605 

1606 

1606 

lECRSSI  lETRIG  )  -  lER 

1606 

1607 

1607 

c 

1607 

1608 

1608 

ITYPE  -  JE(  5  ,  lER  ) 

1608 

1609 

1609 

c 

1609 

1610 

1610 

XEIEB  -  XE(  I  .  lER  ) 

1610 

1611 

1611 

XEIEB  -  XXYYIB  +  XEIEB 

. 

1611 

1612 

1612 

XYLNGT  -  XYLNGT  ♦  XEIEB 

1612 

1613 

1613 

IF{  XYLONG  .  LT  .  XEIEB  )  XYLONG  - 

XEIEB 

1613 

1614 

1614 

IF(  XYSHRT  ,  GT  .  XEIEB  )  XYSHRT  - 

XEIEB 

1614 

1615 

1615 

c 

1615 

1616 

1616 

INDCTR  -  2 

1616 

1617 

1617 

c 

IF(  XYLONG  !  XYSHRT  .  GT  .  10.  .  AND  .  JLOOP  . 

EQ  .  0  )  RETURN 

1617 

1618 

1618 

c 

1618 

1619 

1619 

JE(  2  ,  lEJKK  )  =  IV1N2 

1619 

1620 

1620 

c 

1620 

1621 

1621 

IVl  =  IVINl 

1621 

1622 

1622 

lEl  *  HCOLR(  IJTRIG  ) 

1622 

1623 

1623 

IF(  lEl  .  GT  .  0  )  THEN 

1623 

1624 

1624 

IV2  -  JE(  2  .  lEl  ) 

1624 

1625 

1625 

ELSE 

1625 

1626 

1626 

IV2  -  JE(  1  ,  -  lEl  ) 

1626 

1627 

1627 

END  IF 

1627 
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1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 


1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 


NEC  -  1ECRSS(  lETRIG  ) 
lETRIG  -  lETRIG  -  1 


JV(  2 
JE(  1 
JE(  2 
JE{  4 
JE(  5 


1V2  )  »  -  NEC 
NEC  )  =  IV2 
NEC  )  .  IVl 
NEC  )  -  0 
NEC  )  »  I TYPE 


1638 

1638 

IJTRIG  -  IJTRIG  +  1 

1639 

1639 

irCOLR(  IJTRIG  )  -  NEC 

1640 

1640 

C 

1641 

1641 

ELSE  IF(  IKKE  .  EQ  .  4  )  THEN 

1642 

1642 

print*, ‘ikke«4‘ ,ksd,ikke 

1643 

1643 

C 

1644 

1644 

C 

BEGINING  THE  DELETION  PROCESS  IF  KSO  HAS  AN  I 

1645 

1645 

C 

AND  THE  THIRD  VERTEX  IS  OLSO  ON  THE  BOUNDARY 

1646 

1646 

C 

THE  FIRST  LOOP  IS  AROUND  VERTEX  KKV2  . 

1647 

1647 

C 

1648 

1648 

IVV  -  KKV2 

1649 

1649 

IE  •  lEINl 

1650 

1650 

XXYYIB  -  XE(  1  .  IE  )  +  XE(  1  .  IKKEl  ) 

1651 

1651 

IVl  -  JE(  1  .  IE  ) 

1652 

1652 

IVINl  -  JE{  2  .  IE  ) 

1653 

1653 

IF(  IVl  .  EQ  .  IVV  )  THEN 

1654 

1654 

ISI  -  JE(  3  .  IE  ) 

1655 

1655 

ELSE 

1656 

1656 

ISI  -  JE(  4  ,  IE  ) 

1657 

1657 

END  IF 

1658 

1658 

IS  •  ISI 

1659 

1659 

C 

1660 

1660 

500 

CONTINUE 

1661 

1661 

C 

1662 

1662 

ITRIG  -  ITRIG  4  1 

1663 

1663 

ISCRSS(  ITRIG  )  =  IS 

1664 

1664 

lETRIG  -  lETRIG  +  1 

1665 

1665 

IECRSS(  lETRlG  )  -  IE 

1666 

1666 

C 

1667 

1667 

IF( 

1668 

1668 

HYDFLX(  IS  .  4  )  .  GT  .  FLUXPP  .  OR 

1669 

1669 

HYDFLX(  IS  .  2  )  .  GT  .  FLUXUU  .  OR 

1670 

1670 

HYOFLX{  IS  .  1  )  .  GT  .  FLUXRR  .  OR 

1671 

1671 

KSOELT(  IS  )  .  GT  .  NIDUMP  .  OR  . 

1672 

1672 

XS{  3  .  IS  )  .  GT  .  AREVGG  )  THEN 

1673 

1673 

INOCTR  -  3 

1674 

1674 

RETURN 

1675 

1675 

END  IF 

1676 

1676 

C 

1677 

1677 

DO  510  IR  •  1  .  3 

1678 

1678 

JR  -  M00(  IR  .  3  )  +  1 

1679 

1679 

lEA  -  IABS(  JS{  JR  +  3  ,  IS  )  ) 

1680 

1680 

IF(  lEA  .  EQ  ,  IE  )  THEN 

1681 

1681 

HR  -  H00(  JR  .  3  )  +  4 

1682 

1682 

lEI  -  JS(  HR  .  IS  ) 

1683 

1683 

lEIB  -  IABS(  lEI  ) 

1684 

1684 

XEIEB  »  XE(  1  ,  lEIB  ) 

1685 

1685 

XYLNGT  -  XYLNGT  +  XEIEB 

1686 

1686 

IF(  XYLONG  .  LT  ,  XEIEB  )  XYLONG  -  XEIEB 

1687 

1687 

IF(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  -  XEIEB 

1688 

1688 

IJTRIG  -  IJTRIG  +  1 

1689 

1689 

HCOLR(  IJTRIG  )  =  lEI 

1690 

1690 

JJR  -  M00(  JR  +  1  .  3  )  +  4 

1691 

1691 

lER  «  IA8S(  JS(  JJR  ,  IS  )  ) 

1692 

1692 

C 

1693 

1693 

IVl  -  JE(  1  .  lER  ) 

1694 

1694 

IF(  IVl  .  EQ  .  IVV  )  THEN 

1695 

1695 

ISR  -  JE(  3  ,  lER  ) 

1696 

1696 

ELSE 

1697 

1697 

ISR  -  JE(  4  ,  lER  ) 

1698 

1698 

END  IF 

1699 

1699 

END  IF 

1700 

1700 

C 

1701 

1701 

510 

CONTINUE 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 
1661 
1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 
1681 
1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 
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1702 

1702 

C 

1702 

1703 

1703 

IF(  lER  -  NE  .  IKKEl  )  THEN 

1703 

1704 

1704 

IS  -  ISR 

1704 

1705 

1705 

IE  -  lER 

1705 

1706 

1706 

GO  TO  500 

1706 

1707 

1707 

END  IF 

1707 

1708 

1708 

C 

1708 

1709 

1709 

C 

FIRST  LOOP  SUROUNDING  KKV2  IS  DONE.  SECOND  LOOP  OVER  KKV3  START  . 

1709 

1710 

1710 

C 

1710 

1711 

1711 

IJTRIG  =  IJTRIG  -  1 

1711 

1712 

1712 

520 

CONTINUE 

1712 

1713 

1713 

C 

1713 

1714 

1714 

lEJK  -  1IC0LR(  IJTRIG  ) 

1714 

1715 

1715 

IF(  lEJK  .  GT  .  0  )  THEN 

1715 

1716 

1716 

IVIEJK  -  JE{  1  .  lEJK  ) 

1716 

1717 

1717 

IJEJK5  •  JE(  5  .  lEJK  ) 

1717 

1718 

1718 

ELSE 

1718 

1719 

1719 

IVIEJK  •  JE(  2  .  -lEJK  ) 

1719 

1720 

1720 

IJEJK5  -  JE{  5  .  -lEJK  ) 

1720 

1721 

1721 

END  IF 

1721 

1722 

1722 

c 

1722 

1723 

1723 

IF(  IJEJK5  .  EQ  .  0  )  THEN 

1723 

1724 

1724 

c 

1724 

1725 

1725 

c 

INTERMEDIATE  LOOP  START  . 

1725 

1726 

1726 

c 

1726 

1727 

1727 

JLOOP  -  1 

1727 

1728 

1728 

lEJKI  •  1ABS(  IICOLR(  IJTRIG  -  1  )  ) 

1728 

1729 

1729 

IEJK2  •  1ABS(  lEJK  ) 

1729 

1730 

1730 

lETRIG  -  lETRIG  +  1 

1730 

1731 

1731 

IECRSS(  lETRIG  )  -  IEJK2 

1731 

1732 

1732 

IJTRIG  -  IJTRIG  -  2 

1732 

1733 

1733 

IW  .  IVIEJK 

1733 

1734 

1734 

JVDELT  =  JVDELT  +  1 

1734 

1735 

1735 

IVOELT(  JVDELT  )  »  IW 

1735 

1736 

1736 

IE  -  lEJKI 

1736 

1737 

1737 

IVl  -  JE(  1  ,  IE  ) 

1737 

1738 

1738 

IF(  IVl  .  EO  •  IW  )  THEN 

1738 

1739 

1739 

ISI  «  JE(  3  .  It  ) 

1739 

1740 

1740 

ELSE 

1740 

1741 

1741 

ISI  -  JE(  4  .  IE  ) 

1741 

1742 

1742 

END  IF 

1742 

1743 

1743 

IS  -  ISI 

1743 

1744 

1744 

lET  -  IEJK2 

1744 

1745 

1745 

c 

1745 

1746 

1746 

530 

CONTINUE 

1746 

1747 

1747 

c 

1747 

1748 

1748 

ITRIG  >  ITRIG  +  1 

1748 

1749 

1749 

ISCRSS(  ITRIG  )  =  IS 

1749 

1750 

1750 

c 

1750 

1751 

1751 

lETRIG  -  lETRIG  +  1 

1751 

1752 

1752 

IFCRSS(  lETRIG  )  =  IE 

1752 

1753 

1753 

c 

1753 

1754 

1754 

IF( 

1754 

1755 

1755 

HYDFLX(  IS  .  4  )  .  GT  ,  FLUXPP  .  OR  . 

1755 

1756 

1756 

HYDFLX(  IS  .  2  )  .  GT  .  FLUXUU  .  OR  . 

1756 

1757 

1757 

HYDFLX(  IS  ,  1  )  .  GT  .  FLUXRR  .  OR  . 

1757 

1758 

1758 

KSOFLT(  IS  )  .  GT  .  NIOUMP  .  OR  . 

1758 

1759 

1759 

XS(  3  .  IS  )  .  GT  .  AREVGG  )  THEN 

1759 

1760 

1760 

INOCTR  -  3 

1760 

1761 

1761 

RETURN 

1761 

1762 

1762 

END  IF 

1762 

1763 

1763 

c 

1763 

1764 

1764 

DO  540  IR  -  1  .  3 

1764 

1765 

1765 

JR  -  HOD(  IR  .  3  )  +  1 

1765 

1766 

1766 

lEA  -  IABS(  JS(  JR  +  3  ,  IS  )  ) 

1766 

1767 

1767 

IF(  lEA  .  EQ  .  IE  )  THEN 

1767 

1768 

1768 

HR  -  MOD(  JR  ,  3  )  +  4 

1768 

1769 

1769 

lEI  -  JS(  HR  ,  IS  ) 

1769 

1770 

1770 

lEIB  -  IABS(  lEI  ) 

1770 

1771 

1771 

XEIE8  -  XE(  1  ,  lEIB  ) 

1771 

1772 

1772 

XYLNGT  -  XYLNGT  +  XEIEB 

1772 

1773 

1773 

IF(  XYLOMG  .  LT  .  XEIEB  )  XYLONG  -  XEIEB 

1773 

1774 

1774 

IF(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  -  XEIEB 

1774 

1775 

1775 

I IKK  >  IABS(  IICOLR(  IJTRIG  )  ) 

1775 
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1776 

1776 

IF(  IIKK  .  EQ  .  lEIB  )  TH 

1777 

1777 

JLOOP  -  2 

1778 

1778 

lETRIG  -  lETRIG  +  1 

1779 

1779 

IECRSS(  lETRIG  )  >  lElB 

1780 

1780 

IJTRIG  -  IJTRIG  -  1 

1781 

1781 

IF(  lEl  .  GT  .  0  )  THEN 

1782 

1782 

JKVV  .  JE(  1  ,  lEIB  ) 

1783 

1783 

ELSE 

1784 

1784 

JKVV  -  JE(  2  ,  lEIB  ) 

1785 

1785 

END  IF 

1786 

1786 

JVOELT  >  JVDELT  +  1 

1787 

1787 

IVDELT(  JVDELT  )  =  JKVV 

1788 

1788 

ELSE 

1789 

1789 

IJTRIG  «  IJTRIG  +  1 

1790 

1790 

IIC0LR(  IJTRIG  )  =  lEI 

1791 

1791 

END  IF 

1792 

1792 

JJR  -  M00(  JR  +  1  .  3  )  ♦ 

1793 

1793 

lER  -  IABS(  JS(  JJR  .  IS  : 

1794 

1794 

C 

1795 

1795 

IVl  -  JE(  1  .  lER  ) 

1796 

1796 

IF(  IVl  .  EQ  .  IW  )  THEN 

1797 

1797 

ISR  -  JE(  3  ,  lER  ) 

1798 

1798 

ELSE 

1799 

1799 

ISR  -  J£(  4  .  lER  ) 

1800 

1800 

END  IF 

1801 

1801 

END  IF 

1802 

1802 

c 

1803 

1803 

540 

CONTINUE 

1804 

1804 

C 

1805 

1805 

IF(  lER  .  NE  .  lET  )  THEN 

1806 

1806 

IS  -  ISR 

1807 

1807 

IE  -  lER 

1808 

1808 

GO  TO  530 

1809 

1809 

END  IF 

1810 

1810 

c 

1811 

1811 

GO  TO  520 

1812 

1812 

END  IF 

1813 

1813 

c 

1814 

1814 

c 

INTERHEDIATE  LOOP  IS  DONE,  SECO 

1815 

1815 

c 

1816 

1816 

IVV  -  KKV3 

1817 

1817 

IE  •  1EIN2 

1818 

1818 

1VIN2  -  0E{  2  ,  IE  ) 

1819 

1819 

lEJKK  »  IICOLR{  IJTRIG  ) 

1820 

1820 

IVl  .  JE(  1  .  IE  ) 

1821 

1821 

IF(  IVl  .  EQ  .  IVV  )  THEN 

1822 

1822 

ISI  .  JE(  3  ,  IE  ) 

1823 

1823 

ELSE 

1824 

1824 

ISI  -  JE(  4  ,  IE  ) 

1825 

1825 

END  IF 

1826 

1826 

IS  .  ISI 

1827 

1827 

c 

1828 

1828 

550 

CONTINUE 

1829 

1829 

C 

1830 

1830 

ITRIG  -  ITRIG  +  1 

1831 

1831 

ISCRSS{  ITRIG  )  -  IS 

1832 

1832 

c 

1833 

1833 

lETRIG  =  lETRIG  +  1 

1834 

1834 

IECRSS(  lETRIG  )  >  IE 

1835 

1835 

c 

mam  program 


1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 


1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 


IF( 

HyOFLX(  IS 
HY0FLX(  IS 
HYDFLX(  IS 
KS0ELT(  IS 
XS(  3  ,  IS 
INOCTR  -  3 
RETURN 
END  IF 


4  )  , 
2  )  . 
1  )  . 
.  GT 
.  GT 


GT  .  FLUXPP 
GT  .  FLUXUU 
GT  .  FLUXRR 
.  NIDUHP  .  OR 
.  AREVGG  )  THEN 


OR 

OR 

OR 


DO  560  IR  -  1  ,  3 

JR  -  MOD(  IR  ,  3  )  ♦  1 

lEA  .  IABS{  JS(  JR  +  3  ,  IS  )  ) 

IF(  lEA  .  EQ  .  IE  )  THEN 


page  25 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 
1801 
1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 
1811 
1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 
1821 
1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 
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1850 

1850 

HR  •  H00(  JR  .  3  )  ♦  4 

1850 

1851 

1851 

lEi  -  JS(  HR  .  IS  ) 

1851 

1852 

1852 

lEIB  «  IABS(  lEI  ) 

1852 

1853 

1853 

XEIEB  >  XE(  1  .  lEIB  } 

1853 

1854 

1854 

XYLNGT  -  XYLMGT  +  XEIEB 

1854 

1855 

1855 

1F(  XYLONG  .  LT  .  XEIEB  )  XYLONG  -  XEIEB 

1855 

1856 

1856 

1F(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  -  XEIEB 

1856 

1857 

1857 

IJTRIG  -  IJTRIG  +  1 

1857 

1858 

1858 

IIC0LR(  IJTRIG  )  -  !EI 

1858 

1859 

1859 

JJR  -  M00(  JR  t  1  .  3  )  +  4 

1859 

1860 

1860 

lER  -  1ABS(  JS(  JJR  .  IS  )  ) 

1860 

1861 

1861 

C 

1861 

1862 

1862 

IVl  -  JE(  1  .  lER  ) 

1862 

1863 

1863 

IF(  IVl  .  EQ  .  IVV  )  THEN 

1863 

1864 

1864 

ISR  -  JE(  3  ,  lER  ) 

1864 

1865 

1865 

ELSE 

1865 

1866 

1866 

ISR  -  JE(  4  .  lER  ) 

1866 

1867 

1867 

END  IF 

1867 

1868 

1868 

END  IF 

1868 

1869 

1869 

c 

1869 

1870 

1870 

560 

CONTINUE 

1870 

1871 

1871 

C 

1871 

1872 

1872 

IF(  lER  .  NE  .  IKKE3  )  THEN 

1872 

1873 

1873 

IS  -  ISR 

1873 

1874 

1874 

IE  -  lER 

1874 

1875 

1875 

GO  TO  550 

1875 

1876 

1876 

END  IF 

1876 

1877 

1877 

C 

1877 

1878 

1878 

IJTRIG  =■  IJTRIG  -  1 

1878 

1879 

1879 

lETRIG  -  lETRIG  +  1 

1879 

1880 

1880 

IECRSS(  lETRIG  )  =  1KKE3 

1880 

1881 

1881 

lETRIG  -  lETRIG  +  1 

1881 

1882 

1882 

IECRSS(  lETRIG  )  =  IKKEl 

1882 

1883 

1883 

C 

1883 

1884 

1884 

C 

SECOND  LOOP  SUROUNOING  KKV3  IS  DONE.  THIRD  LODP  OVER  KKVl  START  . 

1884 

1885 

1885 

c 

1885 

1886 

1886 

IW  •  KKVl 

1886 

1887 

1887 

IE  •  IABS(  IICOLR(  IJTRIG  +  1  )  ) 

1887 

1888 

1888 

IF(  JE(  5  ,  IE  )  .  NE  .  0  )  THEN 

1888 

1889 

1889 

lER  -  IE 

1889 

1890 

1890 

GO  TO  570 

1890 

1891 

1891 

END  IF 

1891 

1892 

1892 

IVl  -  JE(  1  .  IE  ) 

1892 

1893 

1893 

IF(  IVl  .  EQ  .  IVV  )  THEN 

1893 

1894 

1894 

ISI  -  JE(  3  .  IE  ) 

1894 

1895 

1895 

ELSE 

1895 

1896 

1896 

ISI  -  JE{  4  ,  IE  ) 

1896 

1897 

1897 

END  IF 

1897 

1898 

1898 

IS  -  ISI 

1898 

1899 

1899 

ISI  •  0 

1899 

1900 

1900 

c 

1900 

1901 

1901 

580 

CONTINUE 

1901 

1902 

1902 

C 

1902 

1903 

1903 

ITRIG  =  ITRIG  +  1 

1903 

1904 

1904 

ISCRSS(  ITRIG  )  =  IS 

1904 

1905 

1905 

lETRIG  »  lETRIG  +  1 

1905 

1906 

1906 

IECRSS(  lETRIG  )  -  IE 

1906 

1907 

1907 

C 

1907 

1908 

1908 

IF( 

1908 

1909 

1909 

HYOFLX(  IS  .  4  )  .  GT  .  FLUXPP  .  OR  . 

1909 

1910 

1910 

HYDFLX(  IS  ,  2  )  .  GT  .  FLUXUU  .  OR  . 

1910 

1911 

1911 

HYDFLX(  IS  .  1  )  .  GT  .  FLUXRR  .  OR  . 

1911 

1912 

1912 

KSDELTC  IS  )  .  GT  .  NIDUMP  .  OR  . 

1912 

1913 

1913 

XS(  3  .  IS  )  .  GT  .  AREVGG  )  THEN 

1913 

1914 

1914 

INDCTR  -  3 

1914 

1915 

1915 

RETURN 

1915 

1916 

1916 

END  IF 

1916 

1917 

1917 

C 

1917 

1918 

1918 

DO  590  IR  -  1  ,  3 

1918 

1919 

1919 

JR  -  KOD(  IR  .  3  )  +  1 

lEA  -  IA8S(  JS(  JR  +  3  .  IS  )  ) 

1919 

1920 

1920 

1920 

1921 

1921 

IF(  lEA  .  EQ  .  IE  )  THEN 

1921 

1922 

1922 

HR  -  M00(  JR  .  3  )  +  4 

1922 

1923 

1923 

lEI  -  JS(  HR  ,  IS  ) 

1923 
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1924 

1924 

lEIB  •  IA8S(  lEI  ) 

1924 

1925 

1925 

XEIEB  -  XE{  1  .  lEIB  ) 

1925 

1926 

1926 

XYLNGT  -  XYLNGT  +  XEIEB 

1926 

1927 

1927 

IF(  XYLONG  .  LT  .  XEIEB  )  XYLONG  -  XEIEB 

1927 

1928 

1928 

1F(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  =  XEIEB 

1928 

1929 

1929 

IJTRIG  -  IJTRIG  +  1 

1929 

1930 

1930 

IICOLR(  IJTRIG  )  =  lEI 

1930 

1931 

1931 

JJR  -  HOD(  JR  +  1  .  3  )  4 

1931 

1932 

1932 

lER  -  IABS(  JS(  JJR  .  IS  )  ) 

1932 

1933 

1933 

C 

1933 

1934 

1934 

IVl  -  JE(  1  .  lER  ) 

1934 

1935 

1935 

IF(  IVl  .  EQ  .  IVV  )  THEN 

1935 

1936 

1936 

ISR  -  JE(  3  .  lER  ) 

1936 

1937 

1937 

ELSE 

1937 

1938 

1938 

ISR  -  JE(  4  .  lER  ) 

1938 

1939 

1939 

END  IF 

1939 

1940 

1940 

END  IF 

1940 

1941 

1941 

C 

1941 

1942 

1942 

590 

CONTINUE 

1942 

1943 

1943 

C 

1943 

1944 

1944 

IF(  ISR  .  NE  .  ISI  )  THEN 

1944 

1945 

1945 

IS  -  ISR 

1945 

1946 

1946 

IE  -  lER 

1946 

1947 

1947 

GO  TO  580 

1947 

1948 

1948 

END  IF 

1948 

1949 

1949 

c 

1949 

1950 

1950 

570 

CONTINUE 

1950 

1951 

1951 

C 

1951 

1952 

1952 

lETRIG  .  lETRIG  +  1 

1952 

1953 

1953 

IECRSS(  lETRIG  )  =  lER 

1953 

1954 

1954 

c 

1954 

1955 

1955 

ITYPE  -  JE(  5  ,  lER  ) 

1955 

1956 

1956 

c 

1956 

1957 

1957 

XEIEB  -  XE(  1  .  lER  ) 

1957 

1958 

1958 

XEIEB  -  XXYYI8  +  XEIEB 

1958 

1959 

1959 

XYLNGT  «  XYLNGT  +  XEIEB 

1959 

1960 

1960 

IF(  XYLONG  .  LT  .  XEIEB  )  XYLONG  •  XEIEB 

1960 

1961 

1961 

IF(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  -  XEIEB 

1961 

1962 

1962 

c 

1962 

1963 

1963 

INDCTR  -  2 

1963 

1964 

1964 

c 

IF(  XYLONG  /  XYSHRT  .  GT  .  10.  .  AND  .  JLOOP  .  EQ  .  0  )  RETURN 

1964 

1965 

1965 

c 

1965 

1966 

1966 

JE{  2  .  lEJKK  )  =  IV1N2 

1966 

1967 

1967 

c 

1967 

1968 

1968 

IVl  -  IVINl 

1968 

1969 

1969 

lEl  “  IICOLR{  IJTRIG  ) 

1969 

1970 

1970 

IF(  lEl  .  GT  .  0  )  THEN 

1970 

1971 

1971 

IV2  •  JE(  2  ,  I£1  ) 

1971 

1972 

1972 

ELSE 

1972 

1973 

1973 

IV2  -  JE(  1  .  -  lEl  ) 

1973 

1974 

1974 

END  IF 

1974 

1975 

1975 

c 

1975 

1976 

1976 

NEC  =  IECRSS(  lETRIG  ) 

1976 

1977 

1977 

lETRIG  .  lETRIG  -  1 

1977 

1978 

1978 

c 

1978 

1979 

1979 

JV(  2  .  IV2  )  =  -  NEC 

1979 

1980 

1980 

JE(  1  ,  NEC  )  -  IV2 

1980 

1981 

1981 

JE(  2  ,  NEC  )  =  IVl 

1981 

1982 

1982 

JE(  4  ,  NEC  )  »  0 

1982 

1983 

1983 

JE{  5  .  NEC  )  =  ITYPE 

1983 

1984 

1984 

c 

1984 

1985 

1985 

IJTRIG  -  IJTRIG  +  1 

1985 

1986 

1986 

IICOLR(  IJTRIG  )  =.  NEC 

1986 

1987 

1987 

c 

1987 

1988 

1988 

ELSE  IF(  IKKE  .  EQ  .  5  )  THEN 

1988 

1989 

1989 

print*. ‘1kke-5' .ksd.ikke 

1989 

1990 

1990 

c 

1990 

1991 

1991 

c 

BEGINING  THE  DELETION  PROCESS  IF  KSD  HAS  AN  EDGE  ON  THE  BOUNDARY 

1991 

1992 

1992 

c 

AND 

THE  THIRD  VERTEX  IS  OLSO  ON  THE  BOUNDARY. 

1992 

1993 

1993 

c 

THE 

FIRST  LOOP  IS  around  VERTEX  KKV3  . 

1993 

1994 

1994 

c 

1994 

1995 

i995 

IVV  -  KKV3 

1995 

1996 

1996 

IE  -  IEIN2 

1996 

1997 

1997 

XXYYIB  »  XE(  1  ,  IE  > 

1997 
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1998 

1998 

IVl  -  JE(  1  ,  IE  ) 

1998 

1999 

1999 

IVINl  >  JE(  2  ,  IE  ) 

1999 

2000 

2000 

IF(  IVl  ,  EO  .  IVV  )  THEN 

2000 

2001 

2001 

ISI  -  JE(  3  .  IE  ) 

2001 

2002 

2002 

ELSE 

2002 

2003 

2003 

ISI  -  JE(  4  ,  IE  ) 

2003 

2004 

2004 

Efffi  IF 

2004 

2005 

2005 

IS  -  ISI 

2005 

2006 

2006 

C 

2006 

2007 

2007 

600 

CONTINUE 

2007 

2008 

2008 

C 

2008 

2009 

2009 

ITRIG  =  ITRIG  +  1 

2009 

2010 

2010 

ISCRSS(  ITRIG  )  =  IS 

2010 

2011 

2011 

lETRIG  .  lETRIG  +  1 

2011 

2012 

2012 

IECRSS(  lETRIG  )  -  IE 

2012 

2013 

2013 

c 

2013 

2014 

2014 

IF( 

2014 

2015 

2015 

HYOFLX(  IS  .  4  )  .  GT  .  FLUXPP  .  OR  . 

2015 

2016 

2016 

HYOFLX(  IS  .  2  )  .  GT  .  FLUXUU  .  OR  . 

2016 

2017 

2017 

HYOFLX{  IS  ,  1  )  .  GT  .  FLUXRR  ,  OR  . 

2017 

2018 

2018 

KSOELT(  IS  )  .  GT  .  NICHJMP  .  OR  . 

2018 

2019 

2019 

XS(  3  .  IS  )  .  GT  .  AREVGG  )  THEN 

2019 

2020 

2020 

INDCTR  -  3 

2020 

2021 

2021 

RETURN 

2021 

2022 

2022 

END  IF 

2022 

2023 

2023 

c 

2023 

2024 

2024 

DO  610  IR  -  1  ,  3 

2024 

2025 

2025 

JR  -  M00(  IR  ,  3  )  +  1 

2025 

2026 

2026 

lEA  -  IABS(  JS(  JR  +  3  .  IS  )  ) 

2026 

2027 

2027 

1F(  lEA  .  EO  .  IE  )  THEN 

2027 

2028 

2028 

HR  -  M00(  JR  .  3  )  +  4 

2028 

2029 

2029 

lEI  -  JS(  HR  .  IS  ) 

2029 

2030 

2030 

lEIB  «  IABS(  lEI  ) 

2030 

2031 

2031 

XEIEB  >  XE(  1  ,  lElB  ) 

2031 

2032 

2032 

XYLNGT  •  XYLNGT  ♦  XEIEB 

2032 

2033 

2033 

IF(  XYLONG  .  LT  .  XEIEB  )  XYLONG  -  XEIEB 

2033 

2034 

2034 

IF(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  -  XEIEB 

2034 

2035 

2035 

IJTRIG  -  IJTRIG  +  1 

2035 

2036 

2036 

HCOLR(  IJTRIG  )  =  lEI 

2036 

2037 

2037 

JJR  -  HOD(  JR  *  1  .  3  )  ♦  4 

2037 

2038 

2038 

lER  •  IABS(  JS(  JJR  .  IS  )  } 

2038 

2039 

2039 

c 

2039 

2040 

2040 

IVl  -  JE(  1  .  lER  ) 

2040 

2041 

2041 

IF(  IVl  .  EQ  .  IVV  )  THEN 

2041 

2042 

2042 

ISR  •  JE(  3  ,  lER  ) 

2042 

2043 

2043 

ELSE 

2043 

2044 

2044 

ISR  -  JE(  4  ,  lER  ) 

2044 

2045 

2045 

END  IF 

2045 

2046 

2046 

END  IF 

2046 

2047 

2047 

c 

2047 

2048 

2048 

610 

CONTINUE 

2048 

2049 

2049 

C 

2049 

2050 

2050 

IF(  lER  .  NE  .  IKKE2  )  THEN 

2050 

2051 

2051 

IS  -  ISR 

2051 

2052 

2052 

IE  -  lER 

2052 

2053 

2053 

GO  TO  600 

2053 

2054 

2054 

END  IF 

2054 

2055 

2055 

C 

2055 

2056 

20f;' 

C 

FIRST  LOOP  SUROUNOING  KKV3  IS  DONE.  SECOND  LOOP  OVER  KKV2  START  . 

2056 

2057 

2C' 

c 

2057 

2058 

2' 

IJTRIG  -  IJTRIG  -  1 

2058 

2059 

' 

620 

CONTINUE 

2059 

2060 

1 

C 

2060 

2061 

.61 

lEJK  •  HCOLR{  IJTRIG  ) 

2061 

2062 

.062 

IF(  lEJK  .  GT  .  0  )  THEN 

2062 

2063 

.’063 

IVIEJK  -  JE(  1  .  lEJK  ) 

2063 

2064 

2064 

IJEJK5  -  JE(  5  ,  lEJK  ) 

2064 

206‘ 

2065 

ELSE 

2065 

206; 

2066 

IVIEJK  -  JE(  2  ,  -lEJK  ) 

2066 

206 

2067 

IJEJK5  =  JE(  5  ,  -lEJK  ) 

2067 

206' 

2068 

END  IF 

2068 

206‘ 

2069 

C 

2069 

2070 

2070 

IF(  IJEJK5  .  EO  .  0  )  THEN 

2070 

2071 

2071 

c 

2071 
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2072 

2072 

C 

INTERMEDIATE  LOOP  START  . 

2073 

2073 

C 

2074 

2074 

JLOOP  =  1 

2075 

2075 

lEJKI  =  IABS(  I1C0LR(  IJTRIG  -  1  )  ) 

2076 

2076 

1EJK2  -  IABS(  lEJK  ) 

2077 

2077 

lETRIG  -  lETRIG  +  1 

2078 

2078 

IECRSS(  lETRIG  )  -  1EJK2 

2079 

2079 

IJTRIG  *  IjTRIG  -  2 

2080 

2080 

IVV  -  IVIEJK 

2081 

2081 

JVDELT  =  JVDELT  +  1 

2082 

2082 

IVDELT(  JUOELT  )  .  IVV 

2083 

2083 

IE  -  lEJKI 

2084 

2084 

IVl  «  JE(  1  .  IE  ) 

2085 

2085 

IF(  IVl  .  EQ  IVV  )  THEN 

2086 

2086 

ISI  -  JE(  3  ,  IE  ) 

2087 

2087 

ELSE 

2088 

2088 

ISI  -  JE(  4  ,  IE  ) 

2089 

2089 

END  IF 

2090 

2090 

IS  -  ISI 

2091 

2091 

lET  =  IEJK2 

2092 

2092 

C 

2093 

2093 

630 

CONTINUE 

2094 

2094 

C 

2095 

2095 

ITRIG  =  ITRI6  +  1 

2096 

2096 

ISCRSS(  ITRIG  )  =  IS 

2097 

2097 

C 

2098 

2098 

lETRIG  -  lETRIG  +  1 

2099 

2099 

IECRSS(  lETRIG  )  =  IE 

2100 

2100 

C 

2101 

2101 

IF{ 

2102 

2102 

.  HYOFLX(  IS  .  4  )  .  GT  .  FLUXPP  .  OR 

2103 

2103 

.  HYDFLX(  IS  .  2  )  .  GT  .  FLUXUU  .  OR 

2104 

2104 

HYDFLX(  IS  ,  1  )  .  GT  .  FLUXRR  .  OR 

2105 

2105 

KSOELT(  IS  )  .  GT  .  NIDUMP  .  OR  . 

2106 

2106 

XS{  3  ,  IS  )  ,  GT  .  AREVGG  )  THEN 

2107 

2107 

INOCTR  -  3 

2108 

2108 

RETURN 

2109 

2109 

END  IF 

2110 

2110 

C 

2111 

2111 

DO  640  IR  -  1  ,  3 

2112 

2112 

JR  •  M00(  IR  .  3  )  +  1 

2113 

2113 

lEA  -  IABS(  JS(  JR  +  3  .  IS  )  ) 

2114 

2114 

IF(  lEA  .  EQ  .  IE  )  THEN 

2115 

2115 

HR  -  M00(  JR  .  3  )  +  4 

2116 

2116 

lEl  .  JS(  HR  ,  IS  ) 

2117 

2117 

lEIB  -  IABS(  lEI  ) 

2118 

2118 

XEIEB  -  XE(  1  .  lEIB  ) 

2119 

2119 

XYLHGT  =  XYLNGT  +  XEIEB 

2120 

2120 

IF(  XYLONG  .  LT  .  XEIEB  )  XYLONG  =  XEIEB 

2121 

2121 

IF(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  -  XEIEB 

2122 

2122 

I  IKK  =  IA8S(  IICOLR{  IJTRIG  )  ) 

2123 

2123 

1F(  IIKK  .  EQ  .  lEIB  )  THEN 

2124 

2124 

JLOOP  -  2 

2125 

2125 

lETRIG  -  lETRIG  t  i 

2126 

2126 

I£CRSS(  lETRlG  )  -  lEIB 

2127 

2127 

IJTRIG  -  IJTRIG  -  1 

2128 

2128 

IF(  lEI  .  GT  .  0  )  THEN 

2129 

2129 

JKVV  »  JE(  1  ,  IEI8  ) 

2130 

2130 

ELSE 

2131 

2131 

JKVV  =  JE(  2  ,  lEIB  ) 

2132 

2132 

END  IF 

2133 

2133 

JVDELT  =  JVDELT  +  1 

2134 

2134 

IVDELT(  JVDELT  )  -  JKVV 

2135 

2135 

ELSE 

2136 

2136 

IJTRIG  =  IJTRIG  +  1 

2137 

2137 

IICOLRI  IJTRIG  )  =  lEI 

2138 

2138 

END  IF 

2139 

2139 

JJR  -  M00(  OR  +  1  ,  3  )  +  4 

2140 

2140 

lER  =  IAflS(  JS(  JJR  ,  IS  )  ) 

2141 

2141 

c 

2142 

2142 

IVl  *  JE(  1  ,  lER  ) 

2143 

2143 

1F{  IVl  .  EQ  .  IVV  )  THEN 

2144 

2144 

ISR  -  J£(  3  ,  lER  ) 

2145 

2145 

ELSE 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 
2081 
2082 

2083 

2084 
2065 
2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 
2101 
2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 
2111 
2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 
2121 
2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 
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2146 

2146 

ISR  -  JE(  4  .  lER  ) 

2146 

2147 

2147 

END  IF 

2147 

214S 

2148 

END  IF 

2148 

2149 

2149 

C 

2149 

2150 

2150 

640 

CONTINUE 

2150 

2151 

2151 

C 

2151 

2152 

2152 

IF(  lER  .  N£  .  lET  )  THEN 

2152 

2153 

2153 

IS  -  ISR 

2153 

2154 

2154 

IE  -  lER 

2154 

2155 

2155 

GO  TO  630 

2155 

2156 

2156 

END  IF 

2156 

2157 

2157 

c 

2157 

2158 

2158 

GO  TO  620 

2158 

2159 

2159 

END  IF 

2159 

2160 

2160 

c 

2160 

2161 

2161 

c 

INTERMEDIATE  LOOP  IS  DONE.  SECOND  LOOP  OVER  KKV2  START  . 

2161 

2162 

2162 

c 

2162 

2163 

2163 

IVV  -  KKV2 

2163 

2164 

2164 

IE  -  lEINl 

2164 

2165 

2165 

XXYYIC  -  XE(  1  .  IE  )  +  XE(  1  .  IKKEl  )  +  XE(  1  .  lEIB  ) 

2165 

2166 

2166 

XYLNGT  -  XYLNGT  +  XXYYIC  -  XE(  1  .  lElB  ) 

2166 

2167 

2167 

IF{  XYLONG  .  LT  .  XXYYIC  )  XYLONG  •  XXYYIC 

2167 

2168 

2168 

IF(  XYSHRT  .  GT  .  XXYYIC  )  XYSHRT  -  XXYYIC 

2168 

2169 

2169 

IVIN2  -  JE(  2  .  IE  ) 

2169 

2170 

2170 

lEJKK  -  1IC0LR(  IJTRIG  ) 

2170 

2171 

2171 

IVl  -  JE(  1  .  IE  ) 

2171 

2172 

2172 

IF(  IVl  .  EQ  .  IVV  )  THEN 

2172 

2173 

2173 

ISI  -  JE(  3  ,  IE  ) 

2173 

2174 

2174 

ELSE 

2174 

2175 

2175 

ISI  -  JE(  4  .  IE  ) 

2175 

2176 

2176 

END  IF 

2176 

2177 

2177 

IS  -  ISI 

2177 

2178 

2178 

c 

2178 

2179 

2179 

650 

CONTINUE 

2179 

2180 

2180 

C 

2180 

2181 

2181 

ITRIG  -  ITRIG  +  1 

2181 

2182 

2182 

ISCRSS(  ITRIG  )  -  IS 

2182 

2183 

2183 

C 

2183 

2184 

2184 

lETRIG  "  lETRIG  +  1 

2184 

2185 

2185 

IECRSS(  lETRIG  )  »  IE 

2185 

2186 

2186 

C 

2186 

2187 

2187 

IF( 

2187 

2188 

2188 

HYOFLX{  IS  .  4  )  .  GT  .  FLUXPP  .  OR  . 

2188 

2189 

2189 

HYDFLX(  IS  .  2  )  .  GT  .  FLUXUU  .  OR  . 

2189 

2190 

2190 

HYOFLX(  IS  ,  1  )  .  GT  .  FLUXRR  .  OR  . 

2190 

2191 

2191 

KSDELT(  IS  )  .  GT  .  NIDUHP  .  OR  . 

2191 

2192 

2192 

XS(  3  .  IS  )  .  GT  .  AREVGG  )  THEN 

2192 

2193 

2193 

INDCTR  •  3 

2193 

2194 

2194 

RETURN 

2194 

2195 

2195 

END  IF 

2195 

2196 

2196 

C 

211' '> 

2197 

2197 

00  660  IR  •  1  ,  3 

219' 

2198 

2198 

JR  -  M00(  IR  .  3  )  +  1 

2198 

2199 

2199 

lEA  -  IAaS(  JS(  JR  +  3  ,  IS  )  ) 

2199 

2200 

2200 

IF(  lEA  .  EQ  .  IE  )  THEN 

2200 

2201 

2201 

HR  -  H00(  JR  ,  3  )  *  4 

2201 

2202 

2202 

lEI  -  JS(  HR  ,  IS  ) 

2202 

2203 

2203 

lEIB  -  1ABS(  lEI  ) 

2203 

2204 

2204 

XEIEB  -  XE(  1  ,  lEIB  ) 

2204 

2205 

2205 

XYLNGT  -  XYLNGT  +  XEIEB 

2205 

2206 

2206 

IF{  XYLONG  .  LT  .  XEIEB  )  XYLONG  ■  XEIEB 

2206 

2207 

2207 

1F(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  =  XEIEB 

2207 

2208 

2208 

IJTRIG  -  IJTKiG  +  1 

2208 

2209 

2209 

IICOLR(  IJTRIG  )  =  lEI 

2209 

2210 

2210 

JJR  -  M00(  JR  ♦  1  ,  3  )  +  4 

2210 

2211 

2211 

lER  -  IABS(  JS(  JJR  .  IS  )  ) 

2211 

2212 

2212 

C 

2212 

2213 

2213 

IVl  -  JE(  1  ,  lER  ) 

2213 

2214 

2214 

IF(  IVl  .  EQ  .  IVV  )  THEN 

2214 

2215 

2215 

ISR  -  JE{  3  ,  lER  ) 

2215 

221C 

2216 

ELSE 

2216 

2217 

2217 

ISR  -  JE(  4  .  lER  ) 

2217 

2218 

2218 

END  IF 

2218 

2219 

2219 

END  IF 

2219 

page  30 


Thu  Ju5  1  14:16:26  1993  delthd.f 


main  program 


page  3l 


2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 
2261 
2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 
2281 
2282 

2283 

2284 
2286 
2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 


2220  C 

2221  660 

2222  C 

2223 

2224 

2225 

2226 

2227 

2228  C 

2229 

2230 

2231 

2232 

2233 

2234  C 

2235  C 

2236  C 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251  C 

2252  680 

2253  C 

2254 

2255 

2256 

2257 

2258  C 

2259 

2260 
2261 
2262 

2263 

2264 

2265 

2266 

2267 

2268  C 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 
2281 
2282 

2283 

2284  C 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292  C 

2293  690 


CONTINUE 

IF{  lER  .  NE  .  1KKE2  )  THEN 
!S  -  ISR 
IE  -  lER 
GO  TO  650 
END  IF 

IJTRIG  *  IJTRIG  -  1 
lETRIG  -  lETRIG  *  1 
IECRSS(  lETRIG  )  =  IKKE2 
lETRIG  »  lETRIG  +  1 
IECRSS(  lETRIG  )  -  IKKEl 

SECOND  LOOP  SUROUNDING  KKV2  IS  DONE,  THIRD  LOOP  OVER  KKV3  START  . 
tVV  .  KKV3 

IE  -  IAeS(  riCOLR(  IJTRIG  +  1  )  ) 

IF(  JE(  5  .  IE  )  .  NE  .  0  )  THEN 
lER  -  IE 
GO  TO  670 
END  IF 

IVl  -  JE(  1  .  IE  ) 

IF(  IVl  .  EQ  .  IVV  )  THEN 
ISI  -  JE(  3  ,  IE  ) 

ELSE 

ISI  =  J£(  4  ,  IE  ) 

END  IF 
IS  -  ISI 
ISI  -  0 

CONTINUE 

ITRIG  .  ITRIG  +  1 
ISCRSS(  ITRIG  )  =  IS 
lETRIG  -  lETRIG  ♦  1 
IECRSS(  lETRIG  )  =■  IE 

IF( 

HYOFLX(  IS  .  4  )  .  GT  .  FLUXPP  .  OR  . 

HYDFLX{  IS  ,  2  )  .  GT  .  FLUXUu  .  OR  . 

HYDFLX(  IS  ,  1  )  .  GT  .  FLUXRR  .  OR  . 

KSOELT(  IS  )  .  GT  .  NIDUHP  .  OR  . 

XS(  3  ,  IS  )  .  GT  .  AREVGG  )  THEN 

INOCTR  -  3 
RETURN 
END  IF 

00  690  IR  =  1  ,  3 

JR  =  H00(  IR  .  3  )  ‘  1 

lEA  =  IABS(  JS(  JR  *  3  .  IS  )  ) 

IF(  lEA  .  EO  .  IE  )  THEN 
HR  -  MODI  JR  .  3  )  *  4 
lEl  -  JS(  HR  ,  IS  ) 
lEIB  -  :ABS{  lEl  ) 

XEIEB  =  XE(  1  ,  lEIB  ) 

XYLNGT  *  XYLNGT  ♦  XEIEB 

IF(  XYLONG  .  LT  .  XEIEB  1  XYLONG  -  XEIEB 

IF(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  -  XEIEB 

IJTRIG  =  IJTRIG  ♦  1 

IICOLRI  IJTRIG  )  -  lEI 

JJR  -  M00(  JR  *  i  ,  3  )  *  4 

lER  -  IABS(  JS(  JJR  ,  IS  )  ) 

IVl  -  JF{  1  .  lER  ) 

IF(  IVl  .  EO  -  IVV  )  THEN 
ISR  -  JE(  3  ,  lER  ) 

ELSE 

ISR  -  JE(  4  ,  lER  ) 

ENO  IF 
ENO  IF 

CONTINUE 
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2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 
2261 
2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 
2281 
2282 
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2284 

2285 
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2287 

2288 

2289 

2290 
229! 

2292 
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2294 

2294 

C 

2294 

2295 

2295 

IF(  ISR  .  NE  .  ISl  )  THEN 

2295 

2296 

2296 

IS  -  ISR 

2296 

2297 

2297 

IE  -  lER 

2297 

2298 

2298 

30  TO  680 

2298 

2299 

2299 

END  IF 

2299 

2300 

2300 

C 

2300 

2301 

2301 

670 

CONTINUE 

2301 

2302 

2302 

C 

2302 

2303 

2303 

lETRIG  -  lETRIG  +  1 

2303 

2304 

2304 

IECRSS(  lETRIG  )  -  lER 

2304 

2305 

2305 

C 

2305 

2306 

2306 

ITYPE  -  JE(  5  ,  lER  ) 

2306 

2307 

2307 

C 

2307 

2308 

2308 

XEIEB  -  XE(  1  ,  lER  ) 

2308 

2309 

2309 

XEIEB  -  XXYYIB  +  XEIEB 

2309 

2310 

2310 

XYLNGT  •  XYLNGT  +  XEIEB 

2310 

2311 

2311 

IF(  XYLONG  .  LT  .  XEIEB  )  XYLONG  -  XEIEB 

2311 

2312 

2312 

IF(  XYSHRT  .  GT  .  XEIEB  )  XYSHRT  •  XEIEB 

2312 

2313 

2313 

C 

2313 

2314 

2314 

IHOCTR  -  2 

2314 

2315 

2315 

C 

IF(  XYLONG  /  XYSHRT  .  GT  .  10.  .  AND  .  JLOOP  .  EQ 

.  0  )  RETURN  2315 

2316 

2316 

C 

2316 

2317 

2317 

JE(  2  .  lEJKK  )  -  IVIN2 

2317 

2318 

2318 

C 

2318 

2319 

2319 

IVl  -  IVINl 

2319 

2320 

2320 

lEl  -  nCOLR(  IJTRIG  ) 

2320 

2321 

2321 

1F(  lEl  .  GT  .  0  )  THEN 

2321 

2322 

2322 

1V2  -  JE(  2  .  lEl  ) 

2322 

2323 

2323 

ELSE 

2323 

2324 

2324 

IV2  -  JE(  1  ,  -  lEl  ) 

2324 

2325 

2325 

END  IF 

2325 

2326 

2326 

C 

2326 

2327 

2327 

NEC  =  IECRSS(  lETRIG  ) 

2327 

2328 

2328 

lETRIG  -  lETRIG  -  1 

2328 

2329 

2329 

C 

2329 

2330 

2330 

JV(  2  .  IV2  )  -  -  NEC 

2330 

2331 

2331 

JE(  1  ,  NEC  )  •  IV2 

2331 

2332 

2332 

JE(  2  ,  NEC  )  -  IVl 

2332 

2333 

2333 

JE(  4  .  NEC  )  -  0 

2333 

2334 

2334 

JE(  5  .  NEC  )  =  ITYPE 

2334 

2335 

2335 

c 

2335 

2336 

2336 

IJTRIG  "  IJTRIG  +  1 

2336 

2337 

2337 

IICOLR(  IJTRIG  )  -  NEC 

2337 

2338 

2338 

c 

2338 

2339 

2339 

END  IF 

2339 

2340 

2340 

c 

2340 

2341 

2341 

c 

LOOP  OVER  TRIANGLE  KSD  IS  DONE 

2341 

2342 

2342 

c 

2342 

2343 

2343 

c 

ELIMINATING  THE  DELETED  TRIANGLES  FROM  JSDELT  ARRAY 

2343 

2344 

2344 

c 

2344 

2345 

2345 

LSDELT  •  0 

2345 

2346 

2346 

DO  1520  IS  -  1  ,  ISOELT 

2346 

2347 

2347 

JSP  -  JSOELTC  IS  ) 

2347 

2348 

2348 

ILOOP  -  0 

2348 

2349 

2349 

IF{  JSP  .  EQ  .  0  )  THEN 

2349 

2350 

2350 

ILOOP  -  1 

2350 

2351 

2351 

ELSE 

2351 

2352 

2352 

DO  1525  IKS  -  1  .  I  TRIG 

2352 

2353 

2353 

ISP  -  1SCRSS(  IKS  ) 

2353 

2354 

2354 

IF(  JSP  .  EQ  .  ISP  )  ILOOP  -  1 

2354 

2355 

2355 

1525 

CONTINUE 

2355 

2356 

2356 

END  IF 

2356 

2357 

2357 

IF(  ILOOP  .  EO  .  0  )  THEN 

2357 

2358 

2358 

LSDELT  =  LSDELT  *  1 

2358 

2359 

2359 

JSDELT (  LSDELT  )  -  JSP 

2359 

2360 

2360 

END  IF 

2360 

2361 

2361 

1520 

CONTINUE 

2361 

2362 

2362 

ISDELT  -  LSDELT 

2362 

2363 

2363 

C 

2363 

• 

2364 

2364 

JVDELT  •  JVDELT  *  1 

2364 

2365 

2365 

IVDELTI  JVDELT  )  -  KVl 

2365 

2366 

2366 

JVDELT  -  JVDELT  ♦  1 

2366 

2367 

2367 

IVDELT(  JVDELT  )  -  KV2 

2367 

page  32 


Thu  Jul  114:16:261993 


delthd.f 


mam  program 


page  33 


# 


2368 

2368 

2369 

2369 

2370 

2370 

C 

2371 

2371 

2372 

2372 

2373 

2373 

2374 

2374 

2375 

2375 

2376 

2376 

2377 

2377 

2378 

2378 

2379 

2379 

2380 

2380 

700 

2381 

2381 

C 

2382 

2382 

2383 

2383 

2384 

2384 

2385 

2385 

c 

2386 

2386 

2387 

2387 

2388 

2388 

2389 

2389 

2390 

2390 

2391 

2391 

2392 

2392 

2393 

2393 

2394 

2394 

2395 

2395 

710 

2396 

2396 

c 

2397 

2397 

720 

2398 

2398 

c 

2399 

2399 

2400 

2400 

2401 

2401 

2402 

2402 

2403 

2403 

2404 

2404 

2405 

2405 

2406 

2406 

2407 

2407 

730 

2408 

2408 

C 

2409 

2409 

2410 

2410 

2411 

2411 

2412 

2412 

c 

2413 

2413 

2414 

2414 

2415 

2415 

2416 

2416 

c 

2417 

2417 

2418 

2418 

2419 

2419 

2420 

2420 

c 

2421 

2421 

2422 

2422 

2423 

2423 

2424 

2424 

2425 

2425 

2426 

2426 

2427 

2427 

2428 

2428 

2429 

2429 

2430 

2430 

2431 

2431 

2432 

2432 

2433 

2433 

c 

2434 

2434 

740 

2435 

2435 

C 

2436 

2436 

2437 

2437 

2438 

2438 

2439 

2439 

2440 

2440 

750 

2441 

2441 

C 

JVDELT  =  JVDELT  +  1 
IVOELT(  JVDELT  )  =  KV3 

DO  700  IE  =  1  ,  IJTRIG 
lEH  .  IABS(  IIC0LR(  IE  )  ) 

JUE(  IE  )  .  lEH 
IVl  >  JE{  1  .  lEH  ) 

IV2  -  JE(  2  .  lEH  ) 

lEEl  =  JU(  2  .  IVl  ) 

1EE2  -  JV(  2  ,  1V2  ) 

1F(  lEEl  .  GT  .  0  )  JV(  2  ,  IVl  )  =  lEH 

IF(  IEE2  .  GT  .  0  )  JV(  2  .  1V2  )  =  lEH 

CONTINUE 

JTRIG  -  IJTRIG 
I STOP  -  0 
NSINTL  =  0 

JJTRIG  -  IJTRIG 
DO  710  IE  -  1  ,  JTRIG 
lEH  -  IICOLR(  IE  ) 

IF(  lEM  .  GT  .  0  )  THEM 
JUV{  IE  )  -  JE(  1  ,  lEM  ) 

ELSE 

JUV(  IE  )  -  JE(  2  .  -  lEM  ) 

END  IF 

IITR1G(  IE  )  =  JUV(  IE  ) 

CONTINUE 

CONTINUE 

JTRIGP  =  JTRIG  +  1 
DO  730  IE  -  1  ,  JTRIG 
lEH  .  IICOLR(  IE  ) 

IF(  lEM  .  GT  .  0  )  THEN 
JUV(  IE  )  =  JE(  1  .  lEM  ) 

ELSE 

JUV(  IE  )  =  JE(  2  .  -  lEH  ) 

END  IF 
CONTINUE 

AREMIN  -  1000000. 
lEMlN  -  1 

DO  740  IE  "  1  ,  JTRIG 

lEM  =  M00(  IE  -  1  .  JTRIG  )  +  1 
lEP  -  MOD(  IE  ,  JTRIG  )  *  1 
lEI  =  M00(  IE  +  1  ,  JTRIG  )  +  1 

IVl  •  JUV(  lEH  ) 

IV2  .  JUV(  lEP  ) 

1V3  =  JUV(  lEl  ) 

XI  •  XV(  1  .  IVl  )  -  XV(  1  .  1V2  ) 

Y1  -  XV(  2  .  IVl  )  -  XV(  2  ,  1V2  ) 

X2  -  XV(  1  ,  IV3  )  -  XV(  1  .  IV2  ) 

Y2  -  XV(  2  ,  IV3  )  -  XV(  2  .  IV2  ) 

XSIN  =  (  X2  *  Y1  -  XI  *  Y2  ) 

XCOS  =  (  XI  *  X2  +  Y1  •  Y2  ) 

XCOT  -  XCOS  /  (  XSIN  ♦  l.E-8  ) 

IF(  XSIN  .  LT  .  0.  .  AND  .  XCOT  .  LT  ,  AREHIN  )  THEN 
AREMIN  -  XCOT 
lEMlN  -  IE 
END  IF 

ANGLE!  IE  )  =  XSIN  /  (  ABS(  XCOS  )  +  l.E-7  ) 

CONTINUE 

DO  750  IE  >  1  ,  JTRIG 

lEP  •  MODI  IE  -  lEMIN  *  JTRIG  .  JTRIG  )  ♦  1 
JEH(  lEP  )  =  IlCOLRI  IE  ) 

ANGLER!  lEP  )  -  ANGLE!  IE  ) 

CONTINUE 


2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 
23ffl3 

2384 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 
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2442 

2442 

DO  760  IE  -  1  .  JTRIG 

2442 

2443 

2443 

nC0LR(  IE  )  *  JEM(  IE  ) 

2443 

2444 

2444 

ANGLE(  IE  )  =■  AN6LER(  IE  ) 

2444 

2445 

2445 

760 

CONTINUE 

2445 

2446 

2446 

C 

2446 

2447 

2447 

IFINAL  -  0 

2447 

2448 

2448 

I£1  -  1 

2448 

2449 

2449 

DO  770  IE  -  1  .  JTRIG 

2449 

2450 

2450 

SANGLE  =  ANGLE(  IE  ) 

2450 

2451 

2451 

IANGLE(  IE  )  =■  -  1 

2451 

2452 

2452 

IF(  SANGLE  .  GT  .  l.E-2  )  1ANGLE(  IE  )  -  1 

2452 

2453 

2453 

770 

CONTINUE 

2453 

2454 

2454 

C 

2454 

2455 

2455 

DO  780  IE  =  1  .  JTRIG 

2455 

2456 

2456 

lEH  -  M00(  IE  -  1  ,  JTRIG  )  ♦  1 

2456 

2457 

2457 

lEP  -  MOO(  IE  ,  JTRIG  )  1 

2457 

2458 

2458 

IKH  -  HOO(  IE  +  1  ,  JTRIG  )  +  1 

2458 

2459 

2459 

KEN  •  1 ANGLE!  I EM  ) 

2459 

2460 

2460 

KEP  -  IANGLE{  lEP  ) 

2460 

2461 

2461 

KKM  -  IANGLE(  IKH  ) 

2461 

2462 

2462 

IF(  KEN  .  EQ  .  -  1  .  AND  . 

2462 

2463 

2463 

KEP  .  EQ  .  1  .  AND  . 

2463 

2464 

2464 

KKM  .  EQ  .  -  1  .  AND  .  IFINAL  .  EQ  .  0  )  THEN 

2464 

2465 

2465 

lEI  -  IKM 

2465 

2466 

2466 

IFINAL  -  1 

2466 

2467 

2467 

END  IF 

2467 

2468 

2468 

780 

CONTINUE 

2468 

2469 

2469 

C 

2469 

2470 

2470 

IF(  IFINAL  .  EQ  .  0  )  THEM 

2470 

2471 

2471 

DO  790  IE  >  1  .  JTRIG 

2471 

2472 

2472 

lEH  -  M00(  IE  -  1  .  JTRIG  )  +  1 

2472 

2473 

2473 

lEP  -  MOD(  IE  .  JTRIG  )  +  1 

2473 

2474 

2474 

KEN  -  IANGL£(  lEH  ) 

2474 

2475 

2475 

KEP  -  I ANGLE!  lEP  ) 

2475 

2476 

2476 

IF(  KEN  .  EQ  .  -  1  .  AND  .  KEP  .  EQ  .  1  .  AND  . 

2476 

2477 

2477 

IFINAL  .  EQ  .  0  )  THEN 

2477 

2478 

2478 

lEI  -  MOD!  IE  +  1  .  JTRIG  )  +  1 

2478 

2479 

2479 

IFINAL  -  1 

2479 

2480 

2480 

END  IF 

2480 

2481 

2481 

790 

CONTINUE 

2481 

2482 

2482 

END  IF 

2482 

2483 

2483 

C 

2483 

2484 

2484 

IF!  IFINAL  .  EQ  .  0  )  THEN 

2484 

2485 

2485 

ANGHIN  -  10000000. 

2485 

2486 

2486 

DO  800  1£  -  1  ,  JTRIG 

2486 

2487 

2487 

XANGLE  -  ANGLE!  IE  ) 

2487 

2488 

2488 

SANGLE  =■  ABS!  XANGLE  -  1.  ) 

2488 

2489 

2489 

IF!  XANGLE  .  GT  .  0.  ,  AND  .  SANGLE  .  LT  .  ANGMIN  )  THEN 

2489 

2490 

2490 

lEI  -  MOD!  IE  .  JTRIG  )  *  1 

2490 

2491 

2491 

ANGMIN  -  SANGLE 

2491 

2492 

2492 

END  IF 

2492 

2493 

2493 

800 

CONTINUE 

2493 

2494 

2494 

END  IF 

2494 

2495 

2495 

C 

2495 

2496 

2496 

DO  810  IE  =  1  .  JTRIG 

2496 

2497 

2497 

lEP  -  HOD!  IE  -  lEI  +  JTRIGP  ,  JTRIG  )  +  1 

2497 

2498 

2498 

JEN!  lEP  )  =  IICOLR!  IE  ) 

2498 

2499 

2499 

ANGLER!  lEP  )  =  ANGLE!  IE  ) 

2499 

2500 

2500 

810 

CONTINUE 

2500 

2501 

2501 

C 

2501 

2502 

2502 

DO  820  IE  -  1  ,  JTRIG 

2502 

2503 

2503 

ANGLE!  IE  )  -  ANGLER!  IE  ) 

2503 

2504 

2504 

IICOLR!  IE  )  "  JEN!  IE  ) 

2504 

2505 

2505 

820 

CONTINUE 

2505 

2506 

2506 

C 

2506 

2507 

2507 

DO  830  IE  •  1  ,  JTRIG 

2507 

2508 

2508 

lEM  -  JEN!  IE  ) 

2508 

2509 

2509 

IF!  lEH  ,  GT  .  0  )  THEN 

2509 

2510 

2510 

JUV!  IE  )  -  JE!  1  .  lEM  ) 

2510 

2511 

2511 

ELSE 

2511 

2512 

2512 

JUV!  IE  )  *  JE!  2  ,  -  lEH  ) 

2512 

2513 

2513 

END  IF 

2513 

2514 

2514 

830 

CONTINUE 

2514 

2515 

2515 

C 

2515 
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2516 

2516 

2517 

2517 

C 

2518 

2518 

2519 

2519 

2520 

2520 

2521 

2521 

2522 

2522 

2523 

2523 

2524 

2524 

2525 

2525 

2526 

2526 

2527 

2527 

2528 

2528 

C 

2529 

2529 

2530 

2530 

2531 

2531 

2532 

2532 

2533 

2533 

2534 

2534 

2535 

2535 

2536 

2536 

2537 

2537 

C 

2538 

2538 

2539 

2539 

2540 

2540 

2541 

2541 

2542 

2542 

. 

2543 

2543 

2544 

2544 

2545 

2545 

2546 

2546 

2547 

2547 

2548 

2548 

2549 

2549 

c 

2550 

2550 

2551 

2551 

2552 

2552 

2553 

2553 

2554 

2554 

840 

2555 

2555 

C 

2556 

2556 

2557 

2557 

2558 

2558 
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2560 

. 

2561 

2561 

. 

2562 

2562 

2563 

2563 

. 

2564 

2564 

c 

2565 

2565 

2566 

2566 

c 

2567 

2567 

2568 

2568 

c 

2569 

2569 

2570 

2570 

2571 

2571 
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2572 

2573 

2573 

2574 

2574 

2575 

2575 

r 

2576 

2576 

2577 

2577 

2578 

2578 

c 

2579 

2579 

2580 

2580 

2581 

2581 

2582 

2582 

c 

2583 
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IF(  JTRIG  .  £Q  .  3  )  THEN 


NSC  «  ISCRSS(  ITRIG  ) 

ITRIG  =  ITRIG  -  1 
NSINTL  •  NSINTL  +  1 
INVTRG(  NSINTL  )  -  NSC 
JS(  1  ,  NSC  )  =  JUV{  1  ) 

JS(  2  ,  NSC  )  =  JUV(  2  ) 

JS(  3  .  NSC  )  =  JUV(  3  ) 

JS(  4  ,  NSC  )  «  JEN(  1  ) 

JS(  5  .  NSC  )  -  JEN(  2  ) 

JS(  6  ,  NSC  )  =  JEN(  3  ) 

!V1  -  JS(  1  ,  NSC  ) 

IV2  -  JS(  2  .  NSC  ) 

IV3  -  JS(  3  .  NSC  ) 

AX  -  XV{  I  .  IV2  )  -  XV(  1  ,  IVl  ) 

AY  -  XV(  2  ,  IV2  )  -  XV(  2  .  IVl  ) 

BX  -  XV(  1  .  IV3  }  -  XV(  I  .  IVl  ) 

BY  •  XV(  2  ,  IV3  )  -  XV{  2  .  IVl  ) 

XS(  3  ,  NSC  )  -  0.5  *  (  AX  *  BY  -  AY  *  BX  ) 

SAREA(  NSC  )  -  1.  /  XS(  3  .  NSC  ) 

XXC  =  (  XV(  1  ,  IVl  )  ♦  XV(  1  .  IV2  )  +  XV(  1  ,  IV3  )  ) 
THIRD 

YYC  M  XV(  2  ,  IVl  )  ♦  XV(  2  .  IV2  )  +  XV(  2  ,  IV3  )  ) 
THIRD 

XS(  1  ,  NSC  )  =  XXC 
XS(  2  ,  NSC  )  .  YYC 
HYDFLXI  NSC  .  4  )  .  0. 

HYOFLX(  NSC  ,  1  )  «  0. 

KYDFLX{  NSC  .  2  )  -  0. 

KSOELT(  NSC  )  =  1 


DO  840  IR 
HYDV{  NSC 


CONTINUE 


I  ,  HHO 

IR  )  =  {  HYOVVV(  IVl  .  IR  )  + 

HYOVVV(  IV2  .  IR  )  + 

HYDVVV{  IV3  .  IR  )  )  •  THIRD 


HDUH  >  1.  /  (  HYDV(  NSC  .  1  )  + 

HYDV(  NSC  ,  2  )  =  HYOV(  NSC  .  2  )  *  HDUH 

HYDV(  NSC  .  3  )  =  HYOV(  NSC  ,  3  )  *  HDUH 

HYDV(  NSC  ,  4  )  =  (  HYDV(  NSC  .  4  )  - 
.5  *  HYDV(  NSC  .  1  1  * 

(  HYDV(  NSC  ,  2  )  *  HYDV(  NSC  .  2  )  * 

HYOV(  NSC  ,  3  )  •  HYDV(  NSC  ,  3  )  )  )  » 

(  HYDV(  NSC  ,  5  )  -  I.  ) 


l.E-12 


) 


I  STOP  *  1 

ELSE  IF(  JTRIG  .  EQ  .  4  )  THEN 

NSC  =  ISCRSS(  ITRIG  ) 

ITRIG  =  ITRIG  -  I 
NSINTL  -  NSINTL  I 
INVTRGI  NSINTL  )  =  NSC 
NEC  =  lECRSSI  lETRIG  ) 
lETRIG  •  lETRIG  -  1 

IJTRIG  -  IJTRIG  *  1 


JUE( 

IJTRIG 

) 

=  NEC 

JE( 

1 

,  NEC 

) 

«  JUV( 

1 

) 

JE( 

7 

,  NEC 

) 

=  JUV( 

3 

) 

JE( 

5 

,  NEC 

) 

=  0 

JS( 

1 

,  NSC 

) 

-  JUV( 

1 

) 

JS( 

2 

,  NSC 

) 

>  JUV( 

2 

) 

JS( 

3 

.  NSC 

) 

=  JUV( 

3 

) 

JS( 

4 

,  NSC 

) 

=  JEH{ 

1 

) 

JS( 

5 

.  NSC 

) 

■=  JEN{ 

2 

) 

JS( 

6 

.  NSC 

) 

=  -  NEC 
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2590 

2590 

NSC  »  ISCRSS(  I  TRIG  ) 

2590 

2591 

2591 

[TRIG  >  ITRIG  -  1 

2591 

2592 

2592 

NSINTL  -  NSINTL  +  1 

2592 

2593 

2593 

1NVTRG(  NSINTL  )  -  NSC 

2593 

2594 

2594 

C 

2594 

2595 

2595 

JS{  1  .  NSC  )  =  JUV(  1  ) 

2595 

2596 

2596 

JS{  2  .  NSC  )  =  JUV{  3  ) 

2596 

2597 

2597 

JS(  3  .  NSC  )  =  JUV(  4  ) 

2597 

2598 

2598 

JS{  4  .  NSC  )  «  NEC 

2598 

2599 

2599 

JS(  5  .  NSC  )  =.  JEN{  3  ) 

2599 

2600 

2600 

JS{  6  .  NSC  )  »  J£N(  4  ) 

2600 

2601 

2601 

C 

2601 

2602 

2602 

DO  850  IKR  -  1  .  2 

2602 

2603 

2603 

NSS  -  1NVTRG(  NSINTL  +  1  -  IKR  ) 

2603 

2604 

2604 

IVl  -  JS(  1  .  NSS  ) 

2604 

2605 

2605 

IV2  -  JS(  2  .  NSS  ) 

2605 

2606 

2606 

IV3  -  JS(  3  .  NSS  ) 

2606 

2607 

2607 

AX  -  XV(  1  .  IV2  )  -  XV(  1  .  IVl  ) 

2607 

2608 

2608 

AY  -  XV(  2  .  IV2  )  -  XV{  2  .  IVl  ) 

2608 

2609 

2609 

8X  -  XV(  1  .  IV3  )  -  XV(  1  .  IVl  ) 

2609 

2610 

2610 

BY  -  XV(  2  .  IV3  )  -  XV(  2  ,  IVl  ) 

2610 

2611 

2611 

XS(  3  .  NSS  )  -  0.5  *  {  AX  •  BY  -  AY  •  0X  ) 

2611 

2612 

2612 

C 

2612 

2613 

2613 

SAREA(  NSS  )  -  1.  /  XS(  3  .  NSS  ) 

2613 

2614 

2614 

XXC  -  (  XV(  1  .  IVl  )  +  XV(  1  .  IV2  )  +  XV(  1  ,  1V3  )  )  * 

2614 

2615 

2615 

THIRD 

2615 

2616 

2616 

YYC  -  (  XV(  2  ,  IVl  )  +  XV(  2  ,  IV2  )  +  XV(  2  .  1V3  )  )  * 

2616 

2617 

2617 

THIRD 

2617 

2618 

2618 

XS{  1  ,  NSS  )  =■  XXC 

2618 

2619 

2619 

XS(  2  ,  NSS  )  •  YYC 

2619 

2620 

2620 

HYDFLX(  NSS  .  4  )  -  0. 

2620 

2621 

2621 

HYDFLX(  NSS  ,  1  )  -  0. 

2621 

2622 

2622 

HYDFLX(  NSS  ,  2  )  -  0. 

2622 

2623 

2623 

KSDELT(  NSS  )  -  1 

2623 

2624 

2624 

C 

2624 

2625 

2625 

DO  860  IR  >  1  ,  HHQ 

2625 

2626 

2626 

HYDV(  NSS  ,  IR  )  =  (  HYOVVV(  IVl  .  IR  )  + 

2626 

2627 

2627 

HYOVVV(  IV2  .  IR  )  + 

2627 

2628 

2628 

HYDVVV(  1V3  .  IR  )  )  *  THIRD 

2628 

2629 

2629 

860 

CONTINUE 

2629 

2630 

2630 

C 

2630 

2631 

2631 

HDUM  •  1.  /  (  HYDV(  NSS  .  1  )  +  l.E-12  ) 

2631 

2632 

2632 

HYDV(  NSS  .  2  )  -  HYDV(  NSS  .  2  )  *  HDUM 

2632 

2633 

2633 

HYDV{  NSS  .  3  )  -  HYDV(  NSS  .  3  )  •  HDUM 

2633 

2634 

2634 

HYDV(  NSS  .  4  )  -  (  HYDV(  NSS  .  4  )  - 

2634 

2635 

2635 

.5  *  HYDV(  NSS  .  1  )  * 

2635 

2636 

2636 

(  HYDV(  NSS  ,  2  )  *  HY0V(  NSS  .  2  )  + 

2636 

2637 

2637 

HYDV(  NSS  ,  3  )  *  HYDV(  NSS  .  3  )  )  )  * 

2637 

2638 

2638 

(  HYDV(  NSS  .  5  )  -  1.  ) 

2638 

2639 

2639 

C 

2639 

2640 

2640 

850 

CONTINUE 

2640 

2641 

2641 

I  STOP  -  1 

2641 

2642 

2642 

C 

2642 

2643 

2643 

ELSE 

2643 

2644 

2644 

C 

2644 

2645 

2645 

NSC  =  ISCRSS(  ITRIG  ) 

2645 

2646 

2646 

ITRIG  -  ITRIG  -  1 

2646 

2647 

2647 

NSINTL  =■  NSINTL  +  1 

2647 

2648 

2648 

INVTRG(  NSINTL  )  >  NSC 

2648 

2649 

2649 

NEC  =  IECRSS(  lETRIG  ) 

2649 

2650 

2650 

lETRIG  >  lETRIG  -  1 

2650 

2651 

2651 

C 

2651 

2652 

2652 

IJTRIG  =  IJTRIG  +  1 

2652 

2653 

2653 

JUE(  IJTRIG  )  =  NEC 

2653 

2654 

2654 

C 

2654 

2655 

2655 

JE(  1  ,  NEC  )  =  JUV(  1  ) 

2655 

2656 

2656 

JE(  2  ,  NEC  )  =  JUV{  3  ) 

2656 

2657 

2657 

JE(  5  ,  NEC  )  -  0 

2657 

2658 

2658 

C 

2658 

2659 

2659 

JS(  1  ,  NSC  )  *  JUV{  1  ) 

2659 

2660 

2660 

JS(  2  ,  NSC  )  -  JUV(  2  ) 

2660 

2661 

2661 

JS{  3  ,  NSC  )  -  JUV(  3  ) 

2661 

2662 

2662 

JS(  4  ,  NSC  )  -  JEN(  1  ) 

2662 

2663 

2663 

JS(  5  ,  NSC  )  -  JEH(  2  ) 

2663 
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2664 

2664 

JS(  6  ,  NSC  )  .  -  NEC 

2665 

2665 

C 

2666 

2666 

nC0LR(  1  )  >  NEC 

2667 

2667 

JTRIG  -  JTRIG  -  1 

2668 

2666 

00  870  lEE  -  2  ,  JTRIG 

2669 

2669 

IlC0LR(  lEE  )  -  JEN(  iEE  +  1  ) 

2670 

2670 

870 

CONTINUE 

2671 

2671 

C 

2672 

2672 

IVl  -  JS{  1  .  NSC  ) 

2673 

2673 

IV2  -  JS(  2  .  NSC  ) 

2674 

2674 

IV3  -  JS(  3  .  NSC  ) 

2675 

2675 

AX  -  XV{  1  .  IV2  )  -  XV{  1  ,  IVl  ) 

2676 

2676 

AY  -  XV(  2  ,  IV2  )  -  XV(  2  .  IVl  ) 

2677 

2677 

BX  -  XV(  1  ,  IV3  )  -  XV(  1  ,  IVl  ) 

2678 

2678 

BY  -  XV(  2  .  IV3  )  -  XV(  2  .  IVl  ) 

2679 

2679 

XS(  3  ,  NSC  )  -  0.5  *  (  AX  •  BY  -  AY  *  BX  ) 

2680 

2680 

C 

2681 

2681 

SAREA{  NSC  )  -  1.  /  XS(  3  ,  NSC  ) 

2682 

2682 

XXC  -  (  XV(  1  .  IVl  )  +  XV(  1  .  IV2  )  +  XV(  1  , 

,  IV3 

2683 

2683 

THIRD 

2684 

2684 

YYC  •  (  XV(  2  .  IVl  )  t  XV(  2  .  IV2  )  +  XV(  2  , 

,  1V3 

2685 

2385 

THIRD 

2686 

2686 

XS(  1  ,  NSC  )  -  XXC 

2687 

2687 

XS(  2  ,  NSC  )  =  YYC 

2688 

2688 

HYDFLX(  NSC  .  4  )  -  0. 

2689 

2689 

HYOFLX(  NSC  .  1  )  -  0. 

2690 

2690 

HYOFLX(  NSC  .  2  )  -  0. 

2691 

2691 

KSOELT(  «SC  )  =  1 

2692 

2692 

C 

2693 

2693 

DO  880  IR  -  1  .  MHO 

2694 

2694 

HYOV(  NSC  ,  IR  )  -  (  HYDVVV(  IVl  .  IR  )  + 

2695 

2695 

• 

HYOVVVI  IV2  .  IR  )  + 

2696 

2696 

, 

HYOVW(  1V3  ,  IR  )  )  •  THIRD 

2697 

2697 

880 

CONTINUE 

2698 

2698 

C 

2699 

2699 

HOOH  -  1.  /  (  HYOV(  NSC  .  1  )  +  i.E.12  1 

2700 

2700 

HYDV(  NSC  .  2  )  -  HYOV(  NSC  .  2  )  »  HDUH 

2701 

2701 

HYOV{  NSC  .  3  )  -  HYDV(  NSC  ,  3  )  «  HOUM 

2702 

2702 

HYDVl  NSC  ,  4  )  «  (  HYDVt  NSC  .  4  )  - 

2703 

2703 

« 

.5  *  HYOV(  NSC  ,  1  )  * 

2704 

2704 

« 

(  HYDV(  NSC  .  2  )  •  HYOV(  NSC  ,  2  )  ♦ 

2705 

2705 

, 

HYDV{  NSC  .  3  )  ‘  HYDV(  NSC  ,  3  )  )  )  * 

2706 

2706 

. 

(  HYOV(  NSC  .  5  )  -  1.  ) 

2707 

2707 

c 

2708 

2708 

END  IF 

2709 

2709 

1F(  ISTOP  .  EO  .  0  )  GO  TO  720 

2710 

2710 

c 

2711 

2711 

DO  890  ISS  -  1  .  NSINTL 

2712 

2712 

IS  >  INVTRGI  ISS  ) 

2713 

2713 

DO  890  IR  -  4  ,  6 

2714 

2714 

IE  •  JS(  IR  .  IS  ) 

2715 

2715 

IF(  IE  .  GT  .  0  )  THEN 

2716 

2716 

JE(  3  .  IE  )  -  IS 

2717 

2717 

ELSE 

2718 

2718 

JE(  4  ,  -  IE  )  -  IS 

2719 

2719 

END  IF 

2720 

2720 

890 

CONTINUE 

2721 

2721 

C 

2722 

2722 

DO  900  lENN  -  1  ,  IJTRIG 

2723 

2723 

lEN  -  JUE(  lENN  ) 

2724 

2724 

JVl  -  JE(  1  .  lEN  ) 

2725 

2725 

JV2  »  JE(  2  ,  lEN  ) 

2726 

2726 

AX  -  XV(  1  ,  JV2  )  -  XV(  1  ,  JVl  ) 

2727 

2727 

AY  -  XV(  2  ,  JV2  )  -  XV(  2  ,  JVl  ) 

2728 

2728 

XE(  1  ,  lEN  )  .  SQRT(  AX  *  AX  ♦  AY  *  AY  ) 

2729 

2729 

XEREV  -  1.  /  XE(  1  ,  lEN  ) 

2730 

2730 

XN(  lEN  )  -  AY  •  XEREV 

2731 

2731 

YN(  lEN  )  =  -  AX  *  XEREV 

2732 

2732 

ISSR  -  JE(  4  ,  lEN  ) 

2733 

2733 

ISSL  •  JE(  3  ,  lEN  ) 

2734 

2734 

C 

2735 

2735 

IF(  JE(  5  .  lEN  )  .  KE  .  0  )  THEN 

2736 

2736 

C 

2737 

2737 

AA  -  XV{  1  ,  JV2  )  -  XV(  1  .  JVl  ) 

2664 

2665 

2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

2674 

2675 

2676 

2677 

2678 

2679 

2680 
2681 
2682 

2683 

2684 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 
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2738 

2738 

BB  -  XV(  2  .  JV2  )  -  XV(  2  ,  JVl  ) 

2738 

2739 

2739 

XEL  -  XS(  1  ,  JSSL  ) 

2739 

2740 

2740 

YEL  -  XS(  2  .  ISSL  ) 

2740 

2741 

2741 

CC  -  XEL  -  XV(  1  .  JVl  ) 

2741 

2742 

2742 

DO  -  YEL  -  XV(  2  .  JVl  ) 

2742 

2743 

2743 

EE  -  (  AA  *  CC  +  BB  •  00  )  •  XEREV  •  XEREV 

2743 

2744 

2744 

XER  -  XV(  1  .  JVl  )  +  AA  *  EE 

2744 

2745 

2745 

YER  -  XV(  2  ,  JVl  )  +  BB  •  EE 

2745 

2746 

2746 

AX  -  XER  -  XEL 

2746 

2747 

2747 

AY  -  YER  -  YEL 

2747 

2748 

2748 

XE(  2  .  lEN  )  -  SQRT(  AX  •  AX  ♦  AY  «  AY  ) 

2748 

2749 

2749 

XEREV  =  1.  /  XE(  2  ,  lEN  ) 

2749 

2750 

2750 

XXN{  lEN  )  -  AX  •  XEREV 

2750 

2751 

2751 

YYN(  lEN  )  -  AY  •  XEREV 

2751 

2752 

2752 

XE{  2  ,  lEN  )  .  2.  •  XE(  2  .  lEH  ) 

2752 

2753 

2753 

XYM1DL(  lEN  )  »  .5 

2753 

2754 

2754 

XHIOL(  lEN  )  .  XER 

2754 

2755 

2755 

YHIDL(  lEN  )  -  YER 

2755 

2756 

2756 

C 

2756 

2757 

2757 

ELSE 

2757 

2758 

2758 

C 

2758 

2759 

2759 

XER  -  XS{  1  ,  ISSR  ) 

2759 

2760 

2760 

YER  -  XS(  2  ,  ISSR  ) 

2760 

2761 

2761 

XEL  *  XS(  1  ,  ISSL  ) 

2761 

2762 

2762 

YEL  -  XS(  2  .  ISSL  ) 

2762 

2763 

2763 

C 

2763 

2764 

2764 

AA  -  XV(  1  ,  JV2  )  -  XV(  1  .  JVl  ) 

2764 

2765 

2765 

BB  -  XV(  2  .  JV2  )  -  XV(  2  .  JVl  ) 

2765 

2766 

2766 

CC  -  XEL  -  XER 

2766 

2767 

2767 

DO  -  YEL  -  YER 

2767 

2768 

2768 

ACA  -  XER  -  XV(  1  .  JVl  ) 

2768 

2769 

2769 

DBO  -  YER  -  XV(  2  .  JVl  ) 

2769 

2770 

2770 

EE  -  (  ACA  •  00  -  DBO  *  CC  )  /  (  AA  *  DO  -  BB  •  CC  ) 

2770 

2771 

2771 

XM10L(  lEN  )  .  XV(  1  ,  JVl  )  ♦  AA  *  EE 

2771 

2772 

2772 

YMIDL(  lEH  )  =  XV{  2  .  JVl  )  +  BB  *  EE 

2772 

2773 

2773 

C 

2773 

2774 

2774 

XEHID  -  XHIOL(  lEH  )  -  XEL 

2774 

2775 

2775 

YEMID  -  YHIDL(  lEN  )  -  YEL 

2775 

2776 

2776 

c 

2776 

2777 

2777 

AX  -  XER  -  XEL 

2777 

2778 

2778 

AY  -  YER  -  YEL 

2778 

2779 

2779 

XE(  2  .  lEN  )  ■  SQRT(  AX  •  AX  +  AY  •  AY  ) 

2779 

2780 

2780 

XEREV  -  1.  /  XE(  2  .  lEN  ) 

2780 

2781 

2781 

XXN(  lEN  )  -  AX  »  XEREV 

2781 

2782 

2782 

YYN(  lEN  )  -  AY  *  XEREV 

2782 

2783 

2783 

c 

2783 

2784 

2784 

XYMIDLl  lEN  )  =  SQRT(  XEHID  *  XEHID  +  YEHID  *  YEMID  )  *  XEREV 

2784 

2785 

2785 

c 

2785 

2786 

2786 

END  IF 

2786 

2787 

2787 

c 

2787 

2788 

2788 

900 

CONTINUE 

2788 

2789 

2789 

C 

2789 

2790 

2790 

C 

ORDER  THE  DELETED  VERTECIS  IN  A  DECENDED  ORDER  IN  AN  ARRAY 

2790 

2791 

2791 

C 

NVDELT 

2791 

2792 

2792 

c 

2792 

2793 

2793 

KFLIP  •  JTOELT 

2793 

2794 

2794 

DO  910  KK  -  1  ,  JVDELT 

2794 

2795 

2795 

IFLIP  -  1 

2795 

2796 

2796 

NVOELT{  KK  )  -  IVDELT(  I  ) 

2796 

2797 

2797 

DO  920  KI  -  1  ,  KFLIP 

2797 

2798 

2798 

IF(  1V0ELT(  Kl  )  .  GT  .  NVOELT{  KK  )  )  THEN 

2798 

2799 

2799 

NVDELT(  KK  )  =  !VOELT(  Kl  ) 

2799 

2800 

2800 

IFLIP  -  KI 

2800 

2801 

2801 

END  IF 

2801 

2802 

2802 

920 

CONTINUE 

2802 

280  3 

2803 

ISS  -  0 

2803 

2804 

2804 

00  930  KI  -  1  .  KFLIP 

2804 

2805 

2805 

IF(  KI  .  NE  .  IFLIP  )  THEN 

2805 

2806 

2806 

ISS  -  ISS  +  1 

2806 

2807 

2807 

IVDELTI  ISS  )  -  IVDELT(  KI  ) 

2807 

2808 

2808 

END  IF 

2808 

2809 

2809 

930 

CONTINUE 

2809 

2810 

2810 

KFLIP  -  KFLIP  -  1 

2810 

2811 

2811 

910 

CONTINUE 

2811 
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2812 

2812 

C 

2813 

2813 

C 

2814 

2814 

c 

2815 

2815 

c 

2816 

2816 

2817 

2817 

2818 

2818 

2819 

2819 

2820 

2820 

2821 

2821 

2822 

2822 

2823 

2823 

2824 

2824 

2825 

2825 

950 

2826 

2826 

2827 

2827 

2828 

2828 

2829 

2829 

2830 

2830 

2831 

2831 

2832 

2832 

960 

2833 

2833 

2834 

2834 

940 

2835 

2835 

C 

2836 

2836 

c 

2837 

2837 

c 

2838 

2838 

C 

2839 

2839 

2840 

2840 

2841 

2841 

2842 

2842 

2843 

2843 

2844 

2844 

2845 

2845 

2846 

2846 

2847 

2847 

2848 

2848 

980 

2849 

2849 

2850 

2850 

2851 

2351 

2852 

2852 

2853 

2853 

2854 

2854 

2855 

2855 

990 

2856 

2856 

2857 

2857 

970 

2858 

2858 

C 

2859 

2859 

2860 

2860 

2861 

2861 

1000 

2862 

2862 

c 

2863 

2863 

2864 

2864 

2865 

2865 

1010 

2866 

2866 

c 

2867 

2867 

2868 

2868 

2869 

2869 

1020 

2870 

2870 

c 

2871 

2871 

c 

2872 

2872 

c 

2873 

2873 

c 

2874 

2874 

2875 

2875 

2876 

2876 

2877 

2877 

2878 

2878 

2879 

2879 

2880 

2880 

2881 

2881 

2882 

2882 

2883 

2883 

1030 

2884 

2884 

c 

2885 

2885 

c 

ORDER  THE  DELETED  EDGES  IN  A  DECEHOED  ORDER  IN  AN  ARRAY 
NECRSS 

KFLIP  -  lETRIG 
DO  940  KK  .  1  .  lETRIG 
IFIIP  -  1 

HECRS5(  KK  )  ♦  lECRSSC  1  ) 

DO  950  K1  •  1  ,  KFLIP 

IF{  IECRSS(  KI  )  .  GT  .  NECRSS(  KK  )  )  THEN 
HECRSS(  KK  )  »  IECRSS(  Kl  ) 

IFLIP  -  KI 
END  IF 
CONTINUE 
ISS  -  0 

DO  960  KI  -  1  .  KFLIP 
IF(  KI  .  NE  .  IFLIP  )  THEN 
ISS  -  ISS  +  1 

IECRSS(  ISS  )  -  IECRSS(  KI  ) 

END  IF 
CONTINUE 

KFLIP  -  KFLIP  -  1 
CONTINUE 

ORDER  THE  DELETED  CELLS  IN  A  OECENDEO  DROER  IN  AN  ARRAY 
NSCRSS 

KFLIP  -  ITRIG 
DO  970  KK  -  1  .  ITRIG 
IFLIP  -  1 

NSCRSS(  KK  )  =■  ISCRSS(  1  ) 

DO  980  KI  -  1  .  KFLIP 

IF(  ISCRSS(  KI  )  .  GT  .  NSCRSS{  KK  )  )  THEN 
NSCRSS(  KK  )  =  1SCRSS(  KI  ) 

IFLIP  -  Kl 
END  IF 
CONTINUE 
ISS  -  0 

00  990  Kl  -  I  .  KFLIP 
IF{  KI  .  NE  .  IFLIP  )  THEN 
ISS  -  ISS  +  1 

ISCRSS(  ISS  )  -  ISCRSSl  KI  ) 

END  IF 
CONTINUE 

KFLIP  -  KFLIP  -  1 
CONTINUE 

DO  1000  KI  =  1  .  JVDELT 
IVDELT(  KI  )  =  NV  +  1  -  KI 
CONTINUE 

00  1010  KI  -  1  ,  lETRIG 
lECRSSI  Kl  )  =  NE  +  1  -  KI 
CONTINUE 

DO  1020  KI  X  1  ,  ITRIG 
ISCRSSI  Kl  )  -  NS  +  1  -  KI 
CONTINUE 

IT  HAKE  SURE  THAT  VERTICES  THAT  ARE  TO  BE  DELETED  ARE  NOT 
REPLACED  BY  VERTICES  THAS  ARE  TO  BE  DELETED  ALSO 

DO  1030  KI  .  I  ,  JVDELT 
IVM  -  HVOELTI  KI  ) 

00  1030  KK  -  1  .  JVDELT 
JVM  -  1V0ELT(  KK  ) 

IF(  IVH  .  EQ  .  JVH  .  AND  ,  KK  .  NE  .  Kl  )  THEN 
IVDUM  -  IVDELT(  KI  ) 

IVOELT(  KI  )  .  IVH 
IVDELK  KK  )  -  IVDUM 
END  IF 
CONTINUE 

IT  HAKE  SURE  THAT  EDGES  THAT  ARE  TO  BE  DELETED  ARE  NOT 


2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 
2821 
2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 
2649 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 
2861 
2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 
2881 
2882 
2883 
2684 
2885 


Thu  Jul 

1  14:16:26  1993  delthd.f  main  program 

page  40 

2886 

2886 

C 

REPLACED  BY  EDGES  THAS  ARE  TO  BE  DELETED  ALSO 

2886 

2887 

2887 

C 

2887 

2888 

2888 

DO  1040  KI  -  1  .  lETRIG 

2888 

2889 

2889 

lEH  •  NECRSS(  KI  ) 

2889 

2890 

2890 

DO  1040  KK  -  1  .  lETRIG 

2890 

2891 

2391 

JEM  -  1ECRSS(  KK  ) 

2891 

2892 

2892 

1E(  lEM  .  EQ  .  JEM  .  AND  .  KK  .  NE  .  KI  )  THEN 

2892 

2893 

2893 

lEDUM  -  IECRSS(  KI  ) 

2893 

2894 

2894 

IECRSS(  KI  )  =  lEH 

2894 

2895 

2895 

IECRSS(  KK  )  -  lEDUM 

2895 

2896 

2896 

END  IF 

2896 

2897 

2897 

1040  CONTINUE 

2897 

2898 

2898 

C 

2898 

2899 

2899 

C 

IT  MAKE  SURE  THAT  CELLS  THAT  ARE  TO  BE  DELETED  ARE  NOT 

2899 

2900 

2900 

C 

REPLACED  BY  CELLS  THAS  ARE  TO  BE  DELETED  ALSO 

2900 

2901 

2901 

c 

2901 

2902 

2902 

DO  1050  KI  -  1  .  ITRIG 

2902 

2903 

2903 

ISM  -  NSCRSS(  KI  ) 

2903 

2904 

2904 

DO  1050  KK  -  1  .  ITRIG 

2904 

2905 

2905 

JSH  -■ISCRSS(  KK  ) 

2905 

2906 

2906 

IF{  ISM  .  EQ  .  JSM  .  AND  .  KK  .  NE  .  KI  )  THEN 

2906 

2907 

2907 

ISOUM  >  ISCRSS(  KI  ) 

2907 

2908 

2908 

ISCRSS(  KI  )  -  ISM 

2908 

2909 

2909 

ISCRSS(  KK  )  -  ISOUM 

2909 

2910 

2910 

END  IF 

2910 

2911 

2911 

1050  CONTINUE 

2911 

2912 

2912 

C 

2912 

2913 

2913 

c 

IVDELTC)  SEQUENCE  OF  VERTICES  TO  BE  DELETED  END  OF  LIST 

2913 

2914 

2914 

c 

NVOELT(*)  SEQUENCE  OF  VERTICES  TO  BE  REPLACED  CURRENT  IN  LIST 

2914 

2915 

2915 

c 

ISCRSSC)  SEQUENCE  OF  TRIANGLES  TO  BE  DELETED  END  OF  LIST 

2915 

2916 

2916 

c 

NSCRSSC)  SEQUENCE  OF  TRIANGLES  TO  BE  REPLACED  CURRENT  IN  LIST 

2916 

2917 

2917 

c 

lECRSSC)  SEQUENCE  OF  EDGES  TO  BE  DELETED  END  OF  LIST 

2917 

2918 

2918 

c 

NECRSS(»)  SEQUENCE  OF  EDGES  TO  BE  REPLACED  CURRENT  IN  LIST 

2918 

2919 

2919 

c 

2919 

2920 

2920 

DO  1060  KI  -  1  ,  JVOELT 

2920 

2921 

2921 

IVM  •  NVOELT(  KI  ) 

2921 

2922 

2922 

JVM  -  IVOELT(  KI  ) 

2922 

2923 

2923 

c 

2923 

2924 

2924 

XV(  1  .  IVM  )  «  XV(  1  .  JVM  > 

2924 

2925 

2925 

XV(  2  .  IVM  )  -  XV(  2  .  JVM  ) 

2925 

2926 

2926 

JV(  1  .  IVM  )  -  JV(  1  .  JVM  ) 

2926 

2927 

2927 

c 

2927 

2928 

2928 

DO  1060  IR  -  1  .  MHQ 

2928 

2929 

2929 

HYOVVVI  IVM  .  IR  )  •  HYDWV(  JVM  .  IR  ) 

2929 

2930 

2930 

1060  CONTINUE 

2930 

2931 

2931 

C 

2931 

2932 

2932 

NVM  -  NV  -  JVDELT 

2932 

2933 

2933 

NEM  -  NE  -  lETRIG 

2933 

2934 

2934 

NSM  -  NS  -  ITRIG 

2934 

2935 

2935 

C 

2935 

2936 

2936 

C 

UPDATE  THE  EDGES  AND  CELLS  THAT  ARE  CONNECTED  TO  THE  DELETED 

2936 

2937 

2937 

C 

VERTICES 

293? 

2938 

2938 

C 

2938 

2939 

2939 

JNVEDG  -  0 

2939 

2940 

2940 

JNVTRG  -  0 

2940 

2941 

2041 

DO  1070  JVOL  -  1  ,  JVDELT 

2941 

2942 

2942 

IVDL  >  NVDELK  JVDL  ) 

2942 

2943 

2943 

NVDL  *  IVOELK  JVDL  ) 

2943 

2944 

2944 

IF(  IVDL  .  NE  .  NVDL  )  THEN 

2944 

2945 

2945 

IE  ■  JV(  2  ,  NVDL  ) 

2945 

2946 

2946 

IF(  IE  .  GT  .  0  )  THEN 

2946 

2947 

2947 

C 

2947 

2948 

2948 

IVl  -  JE(  1  ,  IE  ) 

2948 

2949 

2949 

IF(  IVl  .  EQ  .  NVDL  )  THEN 

2949 

2950 

2950 

ISI  -  JE(  3  ,  IE  ) 

2950 

2951 

2951 

ELSE 

2951 

2952 

2952 

ISI  =  JE(  4  ,  IF  ) 

2952 

2953 

2953 

END  IF 

2953 

2954 

2954 

IS  -  ISI 

2954 

2955 

2955 

C 

2955 

2956 

2956 

JNVEDG  -  JNVEDG  +  1 

2956 

2957 

2957 

INVEDGI  JNVEDG  )  «  IE 

2957 

2958 

2958 

JNVTRG  -  JNVTRG  +  1 

2958 

2959 

2959 

INVTRG(  JNVTRG  )  -  IS 

2959 

> 
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2960 

2960 

C 

2961 

2961 

1090 

CONTINUE 

2962 

2962 

C 

2963 

2963 

DO  1080  IR  »  1  .  3 

2964 

2964 

JR  -  M00(  IR  .  3  )  +  1 

2965 

2965 

lEA  -  IABS(  JS(  JR  +  3  .  IS  )  ) 

2966 

2966 

IF(  lEA  ,  £Q  .  IE  )  THEN 

2967 

2967 

JJR  -  H00(  JR  +  1  .  3  )  +  4 

2968 

2968 

lER  -  IABS(  JS(  JJR  .  IS  )  ) 

2969 

2969 

c 

2970 

2970 

IVl  -  JE(  1  .  lER  ) 

2971 

2971 

IF(  IVl  .  EQ  .  NVOL  )  THEN 

2972 

2972 

ISR  •  JE(  3  ,  lER  ) 

2973 

2973 

ELSE 

2974 

2974 

ISR  -  JE(  4  ,  lER  ) 

2975 

2975 

END  IF 

2976 

2976 

END  IF 

2977 

2977 

c 

2978 

2978 

1080 

CONTINUE 

2979 

2979 

C 

2980 

2980 

IF(  ISR  .  NE  .  ISI  )  THEN 

2981 

2981 

IS  -  ISR 

2982 

2982 

IE  -  lER 

2983 

2963 

C 

2984 

2984 

JNVEDG  •  JNVEDG  +  1 

2985 

2985 

INVEDG(  JNVEDG  )  >  IE 

2986 

2986 

JNVTRG  •  JNVTRG  +  1 

2987 

2987 

IHVTRG(  JNVTRG  )  -  IS 

2988 

2988 

C 

2989 

2989 

GO  TO  1090 

2990 

2990 

END  IF 

2991 

2991 

c 

2992 

2992 

ELSE 

2993 

2993 

c 

2994 

2994 

IE  -  -  IE 

2995 

2995 

IVl  -  JE(  1  .  IE  ) 

2996 

2996 

IF(  IVl  .  EQ  .  NVOL  )  THEN 

2997 

2997 

ISI  -  JE(  3  ,  IE  ) 

2998 

2998 

ELSE 

2999 

2999 

ISI  -  JE(  4  .  IE  ) 

3000 

3000 

END  IF 

3001 

3001 

IS  -  ISI 

3002 

3002 

ISI  -  0 

3003 

3003 

c 

3004 

3004 

JNVEDG  -  JNVEDG  ♦  1 

3005 

3005 

INVEOGI  JNVEDG  )  =  IE 

3006 

3006 

JNVTRG  -  JNVTRG  +  1 

3007 

3007 

INVTRGI  JNVTRG  )  =  IS 

3008 

3008 

c 

3009 

3009 

1100 

CONTINUE 

3010 

3010 

c 

3011 

3011 

DO  1110  IR  -  1  ,  3 

3012 

3012 

JR  -  M00(  IR  ,  3  )  +  1 

3013 

3013 

lEA  -  IABS(  JS(  JR  t  3  ,  IS  )  ) 

3014 

3014 

IF(  lEA  .  EQ  .  IE  )  THEN 

3015 

3015 

JJR  -  H00(  JR  +  1  .  3  )  +  4 

3016 

3016 

lER  -  IABS(  JS(  JJR  .  IS  )  ) 

3017 

3017 

c 

3018 

3018 

IVl  -  JE(  1  .  lER  ) 

3019 

3019 

IF(  IVl  .  EO  .  NVOL  )  THEN 

3020 

3020 

ISR  -  JE(  3  ,  lER  ) 

3021 

3021 

ELSE 

3022 

3022 

ISR  -  JE(  4  ,  lER  ) 

3023 

3023 

END  IF 

3024 

3024 

END  IF 

3025 

3025 

c 

3026 

3026 

1110 

CONTINUE 

3027 

3027 

c 

3028 

3028 

1F(  ISR  .  NE  .  ISI  )  THEN 

3029 

3029 

IS  -  ISR 

3030 

3030 

IE  -  lER 

3031 

3031 

c 

3032 

3032 

JNVEDG  -  JNVEDG  +  1 

3033 

3033 

INVEDGI  JNVEDG  )  •  IE 
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2991 
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2997 
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2999 

3000 

3001 
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3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 
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3015 

3016 

3017 

3018 

3019 

3020 

3021 
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3034 

3034 

JNVTRG  -  JNVTRG  +  1 

3034 

3035 

3035 

INVTRG{  JNVTRG  )  -  IS 

3035 

3036 

3036 

C 

3036 

3037 

3037 

GO  TO  1100 

3037 

3038 

3038 

END  IF 

3038 

3039 

3039 

C 

3039 

3040 

3040 

JNVEDG  *  JNVEOG  +  1 

3040 

3041 

3041 

INVEDG(  JNVEDG  )  «  lER 

3041 

3042 

3042 

C 

3042 

3043 

3043 

END  IF 

3043 

3044 

3044 

END  IF 

3044 

3045 

3045 

1070 

CONTINUE 

3045 

3046 

3046 

C 

3046 

3047 

3047 

NSMNPT  -  INVTRG(  1  ) 

3047 

3048 

3048 

C 

3048 

3049 

3049 

DO  1120  IE  -  1  ,  JNVEDG 

3049 

3050 

3050 

lEE  -  IHVEDG(  IE  ) 

3050 

3051 

3051 

DO  1120  IIDG  -  IE  +  1  .  JNVEOG 

3051 

3052 

3052 

IF(  1NVEDG(  IIDG  )  .  EQ  .  lEE  )  THEN 

3052 

3053 

3053 

INVEDG(  IIDG  )  •  0 

3053 

3054 

3054 

END  IF 

3054 

3055 

3055 

1120 

CONTINUE 

3055 

3056 

3056 

C 

3056 

3057 

3057 

lEDUH  -  0 

3057 

3058 

3058 

DO  1130  IIDG  -  1  .  JNVEOG 

3058 

3059 

3059 

IF(  INVEOG(  IIDG  )  .  NE  .  0  )  THEN 

3059 

3060 

3060 

lEDim  -  lEDUM  +  1 

3060 

3061 

3061 

INVEDGI  lEDUM  )  -  INVEDG(  HOG  ) 

3061 

3062 

3062 

END  IF 

3062 

3063 

3063 

1130 

CONTINUE 

3063 

3064 

3064 

JNVEDG  -  lEDUM 

3064 

3065 

3065 

C 

3065 

3066 

3066 

DO  1140  IS  »  1  .  JNVTRG 

3066 

3067 

3067 

ISS  •  INVTRG(  IS  ) 

3067 

3068 

3068 

DO  1140  IITG  «  IS  +  1  .  JNVTRG 

3068 

3069 

3069 

IF{  INVTRG(  IITG  )  .  EQ  .  ISS  )  THEN 

3069 

3070 

3070 

INVTRG(  IITG  )  -  0 

3070 

3071 

3071 

END  IF 

3071 

3072 

3072 

1140 

CONTINUE 

3072 

3073 

3073 

C 

3073 

3074 

3074 

ISOUM  -  0 

3074 

3075 

3075 

DO  1150  IITG  -  1  ,  JNVTRG 

IF(  INVTRG(  IITG  )  .  NE  .  0  )  THEN 

3075 

3076 

3076 

3076 

3077 

3077 

ISDUH  -  ISDUH  +  1 

3077 

3078 

3078 

INVTRG(  ISOUM  )  =  1NVTRG(  IITG  ) 

3078 

3079 

3079 

END  IF 

3079 

3080 

3080 

1150 

CONTINUE 

3080 

3081 

3081 

JNVTRG  *  ISDUH 

3081 

3082 

3082 

C 

3082 

3083 

3083 

C 

UPDATE  THE  VERTECIS  AND  CELLS  THAT  ARE  CONNECTED  TO  THE  DELETED 

3083 

3084 

3084 

C 

EDGES 

3084 

3085 

3085 

c 

3085 

3086 

3086 

DO  1160  IE  -  1  .  lETRIG 

3086 

3087 

3087 

lES  -  IECRSS(  IE  ) 

3087 

3088 

3088 

c 

3088 

3089 

3089 

IV  -  JE(  1  .  lES  ) 

3089 

3090 

3090 

lER  -  JV(  2  .  IV  ) 

3090 

3091 

3091 

IIN  -  ISIGN(  1  .  lER  ) 

3091 

3092 

3092 

lEE  -  IA8S(  lER  ) 

3092 

3093 

3093 

lEH  *  lEE 

3093 

3094 

3094 

DO  1170  KK  -  1  ,  lETRlG 

3094 

3095 

3095 

JEM  -  IECRSS(  KK  ) 

3095 

3096 

3096 

IF(  lEE  .  EQ  .  JEM  )  lEM  >  NECRSS(  KK  ) 

3096 

3097 

3097 

1170 

CONTINUE 

3097 

3098 

3098 

JV(  2  ,  IV  )  =  IIN  *  lEM 

3098 

3099 

3099 

c 

3099 

3100 

3100 

IV  -  JE(  2  ,  lES  ) 

3100 

3101 

3101 

lER  ■  JV(  2  ,  IV  ) 

3101 

3102 

3102 

IIN  -  ISIGN(  1  .  lER  ) 

3102 

3103 

3103 

lEE  -  IABS(  lER  ) 

3103 

3104 

3104 

lEM  -  lEE 

3104 

3105 

3105 

DO  1180  KK  -  1  ,  lETRlG 

3105 

3106 

3106 

JEM  ■=  lECRSSI  KK  ) 

3106 

3107 

3107 

IF(  lEE  .  EQ  .  JEM  )  lEH  -  NECRSS(  KK  ) 

310? 

page  42 


main  program 


page  43 


Thu  Jul  1  14:16:26  1993  delthd.f 


3108 

3108 

1180 

CONTINUE 

3108 

3109 

3109 

JV(  2  .  IV  )  =  IIN  •  lEH 

3109 

3110 

3110 

C 

3110 

3111 

3111 

1160 

CONTINUE 

3111 

3112 

3112 

C 

3112 

3113 

3113 

DO  1190  KK  -  1  ,  JJTRIG 

3113 

3114 

3114 

IVV  -  nTRIG(  KK  ) 

3114 

3115 

3115 

DO  1190  JVDL  =  1  ,  JVOELT 

3115 

3116 

3116 

IVDL  -  NVDELT(  JVDL  ) 

3116 

3117 

3117 

NVDL  =  IV0£LT(  JVDL  ) 

3117 

3118 

3118 

IF(  IVV  .  £Q  .  NVDL  )  IITRIG(  KK  )  •  IVDL 

3118 

3119 

3119 

1190 

CONTINUE 

3119 

3120 

3120 

C 

3120 

3121 

3121 

DO  1200  JVDL  =  1  .  JVDELT 

3121 

3122 

3122 

IVDL  •  NV0ELT(  JVDL  ) 

3122 

3123 

3123 

NVDL  =  IVDELT(  J\rt)L  ) 

3123 

3124 

3124 

JV(  2  .  IVDL  )  =  JV(  2  ,  NVDL  ) 

3124 

3125 

3125 

1200 

CONTINUE 

3125 

3126 

3126 

c 

3126 

3127 

3127 

DO  1210  IS  -  1  .  JNVTRG 

3127 

3128 

3128 

ISS  -  INVTRG(  IS  ) 

3128 

3129 

3129 

c 

3129 

3130 

3130 

IV  -  JS(  1  .  ISS  ) 

3130 

3131 

3131 

IVH  -  IV 

3131 

3132 

3132 

DO  1220  KI  -  1  ,  JVOELT 

3132 

3133 

3133 

JVM  -  IVOELT(  Kl  ) 

3133 

3134 

3134 

IF(  IV  .  EQ  .  JVM  )  IVH  -  NVOELT(  KI  ) 

3134 

3135 

3135 

1220 

CONTINUE 

3135 

3136 

3136 

JS(  1  ,  ISS  )  =  IVH 

3136 

3137 

3137 

C 

3137 

3138 

3138 

IV  -  JS(  2  ,  ISS  ) 

3138 

3139 

3139 

IVH  -  IV 

3139 

3140 

3140 

00  1230  KI  »  1  .  JVDELT 

3140 

3141 

3141 

JVM  -  IVOELT(  KI  ) 

3141 

3142 

3142 

IF(  IV  .  EQ  .  JVM  )  IVH  -  NVDELT(  KI  ) 

3142 

3143 

3143 

1230 

CONTINUE 

3143 

3144 

3144 

JS(  2  .  ISS  )  «  IVH 

3144 

3145 

3145 

C 

3145 

3146 

3146 

IV  •  JS(  3  ,  ISS  ) 

3146 

3147 

3147 

IVH  -  IV 

3147 

3148 

3148 

00  1240  KI  •  1  .  JVDELT 

3148 

3149 

3149 

JVM  -  IVDELT(  KI  ) 

3149 

3150 

3150 

IF(  IV  .  EQ  .  JVM  )  IVM  .  NVDELT(  Kl  ) 

3150 

3151 

3151 

1240 

CONTINUE 

3151 

3152 

3152 

JS(  3  ,  ISS  )  =  IVM 

3152 

3153 

3153 

C 

3153 

3154 

3154 

1210 

CONTINUE 

3154 

3155 

3155 

C 

3155 

3156 

3156 

DO  1250  IE  =  1  ,  JNVEDG 

3156 

3157 

3157 

lEE  =  1NVEDG(  IE  ) 

3157 

3158 

3158 

c 

3158 

3159 

3159 

IV  -  JE(  1  .  lEE  ) 

3159 

3160 

3160 

IVM  -  IV 

3160 

3161 

3161 

DO  1260  KI  =  1  ,  JVDELT 

3161 

3162 

3162 

JVM  -  1V0ELT(  KI  ) 

3162 

3163 

3163 

IF{  IV  .  EQ  .  JVM  )  IVM  -  NVOELT(  KI  ) 

3163 

3164 

3164 

1260 

CONTINUE 

3164 

3165 

3165 

J£(  1  ,  lEE  )  =  IVM 

3165 

3166 

3166 

C 

3166 

3167 

3167 

IV  -  JE(  2  ,  lEE  ) 

3167 

3168 

3168 

IVM  -  IV 

3168 

3169 

3169 

00  1270  KI  ■  1  ,  JVOELT 

3169 

3170 

3170 

JVM  -  IVOELT(  KI  ) 

3170 

3171 

3171 

IF{  IV  .  EQ  .  JVM  )  IVM  -  NVDELT(  KI  ) 

3171 

3172 

3172 

1270 

CONTINUE 

3172 

3173 

3173 

JE(  2  ,  lEE  )  -  IVM 

3173 

3174 

3174 

C 

3174 

3175 

3175 

1250 

CONTINUE 

3175 

3176 

3176 

C 

3176 

3177 

3177 

C 

UPDATE  THE  VERTECIS  AND  EDGES  THAT  ARE  CONNECTED  TO  THE  DELETED  3177 

3178 

3178 

C 

CELSS 

3178 

3179 

3179 

C 

3179 

3180 

3180 

DO  1280  IS  =-  1  ,  ITRIG 

3180 

3181 

3181 

c 

3181 
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3182 

3182 

ISE  -  1SCRSS(  IS  ) 

3182 

3183 

3183 

C 

3183 

3184 

3184 

IE  -  1ABS(  JS(  4  ,  ISE  )  ) 

3184 

3185 

3185 

ISS  -  JE(  3  .  IE  ) 

3185 

3186 

3186 

ISM  -  ISS 

3186 

3187 

3187 

00  1290  KI  -  1  .  ITRIG 

3187 

3188 

3188 

JSM  -  ISCRSS(  KI  ) 

3188 

3189 

3189 

IF(  ISS  .  EQ  .  ’SM  )  ISM  >  NSCRSS(  KI  ) 

3189 

3190 

3190 

1290 

CONTINUE 

3190 

3191 

3191 

JE(  3  .  IE  )  >  ISM 

3191 

3192 

3192 

C 

3192 

3193 

3193 

ISS  =  JE(  4  ,  IE  ) 

3193 

3194 

3194 

ISM  =  ISS 

3194 

3195 

3195 

DO  1300  KI  =  1  .  ITRIG 

3195 

3196 

3196 

JSM  -  ISCRSS(  KI  ) 

3196 

3197 

3197 

IF(  ISS  .  EQ  .  JSM  )  ISM  -  NSCRSS(  KI  ) 

3197 

3198 

3198 

1300 

CONTINUE 

3198 

3199 

3199 

JE(  4  .  IE  )  -  ISM 

3199 

3200 

3200 

C 

3200 

3201 

3201 

IE  -  IABS{  JS(  5  .  ISE  )  ) 

3201 

3202 

3202 

ISS  -  JE(  3  .  IE  ) 

3202 

3203 

3203 

ISM  -  ISS 

3203 

3204 

3204 

DO  1310  KI  =  1  .  ITRIG 

3204 

3205 

3205 

'''  -  1SCRSS(  KI  ) 

320S 

3206 

3206 

.  V  ISS  .  EQ  .  JSM  )  ISM  .  NSCRSS(  KI  ) 

3206 

3207 

3207 

1310 

CONTINUE 

3207 

3208 

3208 

J£(  3  .  IE  )  -  ISM 

3208 

3209 

3209 

C 

3209 

3210 

3210 

ISS  -  JE(  4  .  IE  ) 

3210 

3211 

3211 

ISM  -  ISS 

3211 

3212 

3212 

00  1320  KI  «  1  ,  ITRIG 

3212 

3213 

3213 

JSM  -  ISCRSS(  KI  ) 

3213 

3214 

3214 

IF(  ISS  .  EQ  .  JSM  )  ISM  -  NSCRSS(  KI  ) 

3214 

3215 

3215 

1320 

CONTINUE 

3215 

3216 

3216 

JE(  4  ,  IE  )  =  ISM 

3216 

3217 

3217 

C 

3217 

3218 

3218 

IE  -  IABS(  JS(  6  .  ISE  )  ) 

3218 

3219 

3219 

ISS  -  JE(  J  .  IE  ) 

3219 

3220 

3220 

ISM  •  ISS 

3220 

3221 

3221 

DO  1330  KI  •  1  ,  ITRIG 

3221 

3222 

3222 

JSM  -  1SCRSS(  KI  ) 

3222 

3223 

3223 

IF(  ISS  .  EQ  .  JSM  )  ISM  -  NSCRSS(  KI  ) 

3223 

3224 

3224 

1330 

CONTINUE 

3224 

3225 

3225 

JE(  3  ,  IE  )  =  ISM 

3225 

3226 

3226 

C 

3226 

3227 

3227 

ISS  -  JE(  4  ,  IE  ) 

3227 

3228 

3228 

ISM  -  ISS 

3228 

3229 

3229 

DO  134n  KI  =  1  ,  ITRIG 

3229 

3230 

3230 

JSM  »  *5CRSS(  KI  ) 

3230 

3231 

3231 

IF(  ISS  .  EQ  .  JSM  )  ISM  =  N5CRSS(  KI  ) 

3231 

3232 

3232 

1340 

CONTINUE 

3232 

3233 

3233 

JE(  4  .  IE  )  =  ISM 

3233 

3234 

3234 

3234 

3235 

3235 

280 

CONTINUE 

3235 

3236 

3236 

C 

3236 

3237 

3237 

00  1350  IE  “  1  .  lETRlG 

3237 

3238 

3238 

lES  -  I£CRSS(  IE  ) 

3238 

3239 

3239 

c 

3239 

3240 

3240 

IS  -  JE(  3  ,  lES  ) 

3240 

3241 

3241 

ISS  -  IS 

3241 

3242 

3242 

DO  1360  KI  -  1  .  ITRIG 

324. 

3243 

3243 

ISM  -  NSCRSSI  KI  ) 

3243 

3244 

3244 

IF(  IS  .  EQ  .  ISM  )  ISS  =  ISCRSS(  KI  ) 

3244 

3245 

3245 

1360 

CONTINUE 

3245 

3246 

3246 

C 

3246 

3247 

3247 

iF(  ISS  .  NE  .  0  )  THEN 

3247 

3248 

3248 

C 

3248 

3249 

3249 

lER  -  JS{  4  ,  ISS  ) 

3249 

3250 

3250 

lEE  *  IABS{  lER  ) 

3250 

3251 

3251 

lEM  -  lEE 

3251 

3252 

3252 

DO  1370  KI  =>  1  ,  lETRIG 

3252 

3253 

3253 

JEM  -  'ECUSSI  KI  ) 

3253 

3254 

3254 

IF(  lEE  .  EQ  .  JEM  )  lEH  -  NECRSS(  KI  ) 

3254 

3255 

3255 

1370 

CONTINUE 

3255 
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3256 

3256 

JS(  4  .  ISS  )  =  ISIGN{  1 

.  lER  )  •  lEH 

3256 

3257 

3257 

C 

3257 

3258 

3258 

lER  *  JS(  5  ,  ISS  ) 

3258 

3259 

3259 

lEE  -  1ABS(  lER  ) 

3259 

3260 

3260 

lEH  -  i£E 

3260 

3261 

3261 

00  1380  KI  -  1  .  lETRlG 

3261 

3262 

3262 

JEM  -  lECRSST  KI  ) 

3262 

3263 

3263 

IF(  lEE  .  EQ  .  JEM  )  lEM 

-  NECRSSI  KI  ) 

3263 

3264 

3264 

1380 

CONTINUE 

3264 

3265 

3265 

JS(  5  .  ISS  )  -  ISIGN(  1 

.  lER  )  *  lEM 

3265 

3266 

3266 

C 

3266 

3267 

3267 

lER  -  JS(  6  ,  ISS  ) 

3267 

3268 

3268 

lEE  .  IABS(  lER  ) 

3268 

3269 

3269 

lEH  -  lEE 

3269 

3270 

3270 

00  1390  KI  -  1  .  lETRlG 

3270 

3271 

3271 

JEH  •  I£CRSS(  KI  ) 

3271 

3272 

3272 

IF(  lEE  .  EQ  .  JEH  )  lEM 

.  NECRSS(  KI  ) 

3272 

3273 

3273 

1390 

CONTINUE 

3273 

3274 

3274 

JS(  6  ,  ISS  )  =  IS1GN(  1 

,  lER  )  *  lEM 

3274 

3275 

3275 

C 

3275 

3276 

3276 

END  IF 

3276 

3277 

3277 

r* 

3277 

3278 

3278 

IS  •  JE(  4  ,  lES  ) 

3278 

3279 

3279 

ISS  -  IS 

3279 

3280 

3280 

DO  1400  KI  »  1  .  ITRIG 

3280 

3281 

3281 

ISM  -  NSCRSS(  KI  ) 

3281 

3282 

3282 

IF(  IS  .  EQ  .  ISM  )  ISS  -  ISCfiSS(  KI  ) 

3282 

3283 

3283 

1400 

CONTINUE 

3283 

3284 

3284 

C 

3284 

3285 

3285 

IF(  ISS  .  NE  .  0  )  THEN 

3285 

3286 

3286 

c 

3286 

3287 

3287 

lER  -  JS(  4  .  ISS  ) 

3287 

3288 

3288 

lEE  -  IABS(  lER  ) 

3288 

3289 

3289 

lEM  -  lEE 

3289 

3290 

3290 

DO  1410  KI  -  1  .  lETRIG 

3290 

3291 

3291 

JEM  «  lECRSSC  KI  ) 

3291 

3292 

3292 

IF(  lEE  .  EQ  .  JEH  )  lEM 

•  NECRSS<  KI  ) 

3292 

3293 

3293 

1410 

CONTINUE 

3293 

3294 

3294 

JS(  4  ,  ISS  )  -  1S1GN(  1 

.  lER  )  *  lEM 

3294 

3295 

3295 

c 

3295 

3296 

3296 

lER  -  JS{  5  .  ISS  ) 

3296 

3297 

3297 

lEE  -  IABS(  lER  ) 

3297 

3298 

3298 

lEH  -  lEE 

3298 

3299 

3299 

00  1420  KI  -  1  ,  lETRIG 

3299 

3300 

3300 

JEH  =■  IECRSS(  KI  ) 

3300 

3301 

3301 

IF(  lEE  .  EQ  .  JEH  )  lEH 

■  NECRSS(  KI  ) 

3301 

3302 

3302 

1420 

CONTINUE 

3302 

3303 

3303 

JS(  5  .  ISS  )  -  ISIGN(  I 

.  lER  )  *  lEH 

3303 

3304 

3304 

C 

3304 

3305 

3305 

lER  -  JS(  6  ,  ISS  ) 

3305 

3306 

3306 

lEE  -  lABSI  lER  ) 

3306 

3307 

3307 

lEH  *  lEE 

3307 

3308 

3308 

DO  1430  KI  -  1  .  lETRIG 

3308 

3309 

3309 

JEH  -  lECRSSI  KI  ) 

3309 

3310 

3310 

IF(  lEE  .  EQ  .  JEM  )  lEM 

-  NECRSSI  KI  ) 

3310 

3311 

3311 

1430 

CONTINUE 

3311 

3312 

3312 

JS(  6  ,  ISS  )  =  I  SIGN!  1 

.  lER  )  •  lEM 

3312 

3313 

3313 

C 

3313 

3314 

3314 

END  IF 

3314 

3315 

3315 

c 

3315 

3316 

3316 

1350 

CONTINUE 

3316 

3317 

3317 

C 

3317 

3318 

3318 

00  1440  IE  -  1  ,  lETRIG 

3318 

3319 

3319 

lEM  -  NECRSSI  IE  ) 

3319 

3320 

3320 

JEH  -  lECRSSI  IE  ) 

3320 

3321 

3321 

c 

3321 

3322 

3322 

DO  1450  IK  .  1  ,  5 

3322 

3323 

3323 

JE(  IK  ,  lEH  )  =  JE(  IK  , 

JEH  ) 

3323 

3324 

3324 

1450 

CONTINUE 

3324 

3325 

3325 

C 

3325 

3326 

3326 

XE(  1  ,  lEM  )  -  X£(  1  ,  JEM  ) 

3326 

3327 

3327 

XE(  2  ,  lEM  )  -  XE<  2  .  JEM  ) 

3327 

3328 

3328 

C 

3328 

3329 

3329 

XN(  lEM  )  =  XN(  JEM  ) 

3329 
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3330 

3330 

YN(  lEH  )  ■  YN(  JEM  ) 

3330 

3331 

3331 

XXN(  lEM  )  -  XXM{  JEM  ) 

3331 

3332 

3332 

YYN(  lEM  )  -  YYN(  JEM  ) 

3332 

3333 

3333 

XMI0L(  lEM  )  »  XMIDL(  JEM  ) 

3333 

3334 

3334 

YM10L(  lEM  )  »  YMI0L(  JEM  ) 

3334 

3335 

3335 

XYMIOK  lEM  )  -  XYNIOL(  JEM  ) 

3335 

3336 

3336 

1440 

CONTINUE 

3336 

3337 

3337 

C 

3337 

3338 

3338 

00  1460  IS  -  1  .  ITRIG 

3338 

3339 

3339 

ISM  -  NSCRSS(  IS  ) 

3339 

3340 

3340 

JSM  -  1SCRSS(  IS  ) 

3340 

3341 

3341 

C 

3341 

3342 

3342 

DO  1470  IK  -  1  ,  6 

3342 

3343 

3343 

JS(  IK  ,  ISM  }  >  JS(  IK  .  JSM  ) 

3343 

3344 

3344 

1470 

CONTINUE 

3344 

3345 

3345 

C 

3345 

3346 

3346 

XS(  1  ,  ISM  )  -  XS{  1  ,  JSM  ) 

3346 

3347 

3347 

XS(  2  .  ISM  )  *  XS{  2  .  JSM  ) 

3347 

3348 

3348 

XS(  3  ,  ISM  )  -  XS(  3  .  JSM  ) 

3348 

3349 

3349 

c 

3349 

3350 

3350 

SAREA(  ISM  )  »  SAREA(  JSM  ) 

3350 

3351 

3351 

KSDELT(  ISM  )  -  KSDELT(  JSM  ) 

3351 

3352 

3352 

c 

3352 

3353 

3353 

DO  1480  IK  -  1  ,  MHO 

3353 

3354 

3354 

HYOV(  ISM  ,  IK  )  -  HYDV(  JSM  ,  IK  ) 

3354 

3355 

3355 

1480 
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Introduction 

The  early  development  leading  to  practical  propnl* 
sion  engines  was  almost  completely  associated  with 
steady  state  engine  concepts.  Unsteady  concepts,  which 
initially  appeared  promising,  never  evolved  from  the  con* 
ceptnal  statte  and  have  remained  for  the  most  part  nnex* 
plored.  The  early  work  in  unsteady  propnision  suffered 
from  a  lack  of  appropriate  analytical  2nd  design  tools,  a 
condition  which  seriously  impeded  the  advancement  of 
the  unsteady  concepts  to  a  practical  stage. 

In  this  paper  we  review  the  historical  development 
of  unsteady  propnision  by  concentrating  on  one  partic* 
alar  concept,  the  intermittent  detonation  engine,  and 
discuss  cunent  research  activities  in  this  area.  A  review 
of  the  litcrataie^"^*  reveals  that  a  significant  body  of 
ejq>erimental  and  theoretical  research  exists  in  the  area 
of  nnsteady  piopnlsiQn.  However,  this  research  has  not 
been  extended  to  the  point  where  a  conclusive  quantita* 
tive  comparison  can  be  made  between  impnisive  engine 
concepts  and  steady  state  concepts.  For  example,  the 
analysis  given  in  References  d-11  of  the  performance  of 
a  detonation  engine  concept  does  not  include  frequency 
dependence,  nor  any  analysis  of  losses  due  to  multi-cycle 
operation.  A  new  generation  of  analytical  and  compu¬ 
tational  tools  exista  today  and  allows  us  to  revisit  and 
analyse  such  iwnes  with  a  high  degree  of  confidence.  Nu¬ 
merical  simulation  has  developed  to  the  state  where  it 
can  now  provide  time  dependent  two  and  three  dimen¬ 
sional  modeling  of  complex  internal  flow  processes 
and  will  eventually  result  in  tools  for  systematically  ana¬ 
lysing  and  optimising  engineering  design.  In  addition  to 
a  review  of  applications  of  the  Pulsed  Detonation  Engine 
Concept  here  we  will  report  results  of  a  numerical  study 
of  the  gasdynamics  of  a  model  of  an  air-breathing  det¬ 
onation  engine  with  detailed  analysis  of  the  nonsteady 
flow  pattern.  TUa  study  was  performed  using  new  un¬ 
steady  CFD  tools  which  we  will  also  describe. 

Our  paper  is  structnred  as  follows:  1)  historical  re¬ 
view  of  the  pulsed  detonation  development  efforts;  2)  de¬ 
scription  of  the  basic  phenomenology  of  the  air-breathing 
Pulsed  Detonation  Engine  concept;  3)  description  of  the 


mathematical  foimnlaticn  and  new  numerical  scheme 
used  to  simulated  the  problem;  4)  discussion  of  the  sim¬ 
ulation  results;  and  5)  conclusions. 

Historical  Review 

Constant  Vbfume  Combustion 

fVom  the  very  early  development  of  jet-propulsion 
engines  it  was  known  that  an  engine  based  on  a  con¬ 
stant  volume  combustion  process  achieves  higher  effi¬ 
ciency  than  a  constant  piesanre  engina.  This  foUowe 
&om  a  thermodynamic  analysis  of  the  engina  cycle. 

Constant  volnma  combustion  was  uaad  in  gas  tor- 
bias  engines  at  the  beginning  of  thia  century,  and  the 
first  gas  tarbine  eaginea  in  commercial  naa  were  based 
on  the  constant  voiome  cycle.  Jet-propnkdon  engines 
were  one  of  the  applications  of  the  coaataat  voinme  cy¬ 
cle  (or  explosion  cycle)  which  was  explored  in  the  late 
1940e.^  Although  the  explosion  cycle  operates  at  a  larger 
presenre  variation  in  the  combustion  chamber  than  in  a 
poise-jet’’*,  the  cycle  ectnally  realised  in  these  engines 
was  not  a  fully  constant  voiome  one  since  the  combustion 
chamber  was  open  ended^.  In  Reference  2  the  maximum 
pressure  ratio  measured  in  an  explosion  cycle  engine  was 
3:1,  whereas  the  pressure  ratio  for  the  same  mixtnre  un¬ 
der  the  eesnmption  of  a  constant  volume  cycle  would  be 
8:1.  Also,  this  engine  was  limited  by  the  available  fre¬ 
quency  of  cycles,  which  in  tom  is  limited  by  the  reaction 
rate.  A  simple  calculation  ^  showed  that  if  the  combus¬ 
tion  time  could  be  reduced  in  this  engine  from  0.006  sec 
to  0.003  sec,  the  thrust  per  pound  of  mixtnre  would  in¬ 
crease  100%.  Thus  the  explosion-cycle  engine  has  two 
main  disadvantages: 

•  Constrained  voinme  combustion  (as  distinguished 
from  constant  volume  combustion)  does  not  take 
full  advantage  of  the  pressure  rise  chancteristic  of 
the  constant  volume  combustion  process. 

•  The  frequency  of  the  explosion  cycle  is  limited  by 
the  reaction  rate,  which  is  only  slightly  higher  than 
the  deflagrative  combustion  rate. 

The  main  advantage  of  the  constant  pressure  cycle 
is  that  it  leads  to  engine  configurations  with  steady  state 
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proceoMi  of  injoctioB  of  the  fool  and  oxidiaer,  combos- 
tioa  of  tbt  mixtiuc,  and  expansion  of  the  comboation 
products.  These  stages  can  be  easily  identified  and  the 
engine  designer  can  optimise  them  on  the  basis  of  rela¬ 
tively  simple  steady  state  conaiderations; 

At  the  same  time  an  engine  baaed  on  constant  vol- 
ome  comboation  will  have  an  intermittent  mode  of  oper¬ 
ation,  which  may  complicate  its  design  and  optimisation. 
We  are  interestod  in  the  qoestion  of  whether  this  compli¬ 
cation  is  worth  the  potential  gains  in  engine  efficiency. 

Pubed  DetoBMtioa  Eagiae  as  an  Coastaat  Vot- 

oms  Comboation  Concept 

The  detonation  process,  due  to  the  very  high  rate 
of  reaction,  permits  coiutniction  of  a  propolaion  •wgia* 
in  which  *he  constant  volume  process  can  be  folly  real¬ 
ised.  In  detonative  combustion,  the  strong  shock  wave, 
which  is  pan  of  the  detonation  wave,  acts  like  a  valve 
between  the  detonation  products  and  the  fresh  charge. 
The  speed  of  the  detonation  wave  is  about  two  orders  of 
magnitude  higher  than  the  speed  of  a  typical  defiagra- 
tion.  This  aUows  the  design  of  propulsion  engines  with 
a  very  high  power  density.  Usually,  each  detonation  is 
initiated  separately  by  a  fully  controlled  ignition  device, 
and  the  cycle  frequency  can  be  changed  over  a  wide  range 
of  values.  This  also  means  that  a  device  based  on  a  det- 
onative  combustion  cycle  can  be  scaled  and  its  operating 
paiameten  can  be  modified  for  a  range  of  requfred  out¬ 
put  conditioas.  Then  have  been  numerous  attempts  to 
take  advantage  of  detonative  combustion  for  engine  ap- 
plkations.  In  the  following  we  give  a  description  of  the 
most  relevant  past  erqjcrimental  and  analytical  studies 
of  the  detonation  engine  concept. 

flofimana's  Report. 

The  first  reported  work  on  intermittent  detonation 
is  attributed  to  Hoffinaan  *  in  1940.  He  operated  an  in¬ 
termittent  detonation  test  stand  with  acetylene-oxygen 
and  bensiae-oxygea  mixtures.  The  addition  of  water  va¬ 
por  was  used  to  prevent  the  highly  sensitive  acetylene- 
oxygen  mixture  from  prmnatnre  detonation.  Hoffmann^ 
indicated  the  importance  of  the  spark  plug  location  in 
reference  to  tube  length  and  diffuser  length.  It  was  found 
that  a  continuous  injection  of  the  combustible  mixture 
leads  to  only  a  narrow  range  of  ignition  frequencies  which 
will  produce  an  iatennittent  detonation  cycle.  These  fre¬ 
quencies  an  governed  by  the  time  required  for  the  mix¬ 
ture  to  reach  the  igniter,  time  of  transition  from  deflagra¬ 
tion  to  detonation,  and  time  of  expaiuioa  of  the  detona¬ 
tion  products.  Hoffimann  attempted  to  find  the  optimum 
cycle  frequency  experimentally.  It  was  discovered  that 
detonation-tube  firing  occurred  at  lower  frequencies  than 
the  spark-plug  energising  frequencies  indicating  that  the 


injection  flow  rate  and  ignition  were  out  of  phase.  Events 
prevented  farther  work  by  Hoffmann  and  co-workers. 

NichoUt  Experiments. 

A  snbatantial  effort  in  intermittent  detonation  en¬ 
gine  reeearch  waa  done  by  a  group  headed  by  J.  A. 
Nicholla*~^‘*  of  The  University  of  Michigan  beginning 
in  the  early  50’s.  The  most  relevant  work  concerna  a  set 
of  e^eiiments  carried  out  in  a  six  foot  long  detonation 
tube*.  The  detonation  tube  was  constrneted  from  a  one 
inch  internal  diameter  stainlesa  steel  tube.  The  fuel  and 
oxidiser  srere  injected  under  pressure  from  the  left  end  of 
the  tube  and  ignited  at  the  some  distance  down  stream. 
The  tube  waa  mounted  on  a  pendulum  platform,  sus¬ 
pended  by  support  wires.  Thrust  for  single  detonations 
wsB  measnred  by  detecting  tube  (platform)  movement 
relative  to  a  stationary  pointer.  For  mnlti-cycie  deto- 
natioiu  threat  meaanrement  sras  achieved  by  mounting 
the  threat  end  of  the  tnbe  to  the  free  end  of  the  can¬ 
tilever  beam.  In  addition  to  direct  thrast  meaenrementa 
tha  temperature  on  tha  inner  wail  of  the  detonation  tnbe 
was  measured. 

fhel  miztnres  of  hydrogen/oxygen,  hydregen/sir, 
acatylene-oxygen  and  acetylene-air  mixtures  wen  used. 
The  gaseous  oxidiser  and  fuel  were  contiaaoualy  in¬ 
jected  at  the  cloeed  end  wall  of  the  detonation  tnbe  and 
three  fixed  flow  rates  were  used.  Under  these  condi- 
tkms  the  only  parameters  which  could  be  varied  were 
tha  fnel/oxiduer  ratio  and  frequency  of  ignition.  A  max- 
iimnn  grosa  thrust  of  w  3.2tt  was  measuisd  in  hydxo- 
gen/air  mixture  at  the  frequency  of  m  SO  detonations 
per  second.  The  most  promising  results  wen  demon¬ 
strated  for  the  Ha/Air  mixture,  where  a  friel  specific 
of  s  2100  sec  was  reached.  The  maximum 
freqnancy  of  detonations  obtained  in  all  axperimenta  was 
35  Hs.  ^s  temperature  mcasnremente  on  the  inner  wail 
showed  that  for  the  highest  frequency  of  detonations  the 
temperatnn  did  not  exceed  800*  F. 

In  their  later  work,*’*’*®  the  University  of  Michi¬ 
gan  group  concentrated  on  development  of  the  Rotating 
Detonation  Wave  Rocket  Motor.  No  farther  work  ou  the 
poised  detonation  cycle  was  panned. 

Krwvcki  Experiments 

In  a  setup  somewhat  similar  to  NichoU's,  L.  J. 
Kisycki**  performed  an  experimental  investigation  of  in¬ 
termittent  detonations  with  firequencies  up  to  60  cps.  An 
attempt  waa  also  made  to  analyse  the  baric  phenomena 
using  unsteady  gas  dynamic  theory.  Knycki’s  attempt 
to  analyse  the  basic  phenomena  relied  on  wave  diagrams 
to  trace  characteristics,  assumptions  of  iscntropic  flow 
for  detonation  and  expanrion,  and  incompressible  flow 
for  mixtnre  injection  processes.  The  most  convincing 
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data  from  the  expenmenta  ia  the  meaaarement  of  thnat 
for  a  range  of  initiation  freqnenciea  and  mixture  flow 
ratea.  Unfoztnnately  no  direct  preaanre  meaaarement  in 
the  device  are  reported  eo  that  only  indirect  evidence 
exiata  of  the  nature  of  the  proceea  observed. 

The  bask  test  stand  naed  by  Knycki  ia  very  aim* 
ilar  to  that  naad  by  Nicholla  et  al.*  llie  length  of  the 
detonation  tabs  and  internal  diameter  were  exactly  the 
aame  as  those  in  Nicholl’s  experiments.  A  Propane/ Air 
mixtnrs  was  continnonsly  injected  through  a  reveraed- 
flow  diflhser  for  better  mixing,  and  ignited  at  the  some 
distance  from  the  injection  point  by  an  antomobile  spark 
ping.  The  spark  frequency  was  varied  from  1  to  60  cps. 
The  spark  ping  power  output  was  varied  inversely  with 
the  initiation  frequency  and  at  the  frequency  of  60  cps 
was  only  0.65  Joule.  This  fact  alone  eliminated  the  poe- 
aibility  of  direct  initiation  of  the  detonation  wave  by  the 
spark  and  consequently  all  of  the  experiments  must  have 
been  baaed  on  transition  from  deflagration  to  detonation. 
According  to  experimental  data  and  theory, for  direct 
initiation  of  a  mixture  of  pnpane-air  at  the  detonabil^ 
ity  limits,  an  energy  release  on  the  order  of  10*  Jouks 
ia  required.  Thus,  the  required  deflagration*detonation 
tranaitioa  region  length  would  have  been  prohibitively 
large  for  the  propane*air  mixture.  It  follows  that  ia  aU 
of  the  experiments  a  aubatantial  part  of  the  process  was 
deflagrative.  This  resulted  in  low  efficiency,  and  neg ligi* 
ble  throat.  Krsycki  repeated  the  experiments  of  Nldwlls 
using  exactly  the  same  aise  detonation  tube  and  baai* 
cally  the  same  rates  of  injection  of  the  detonable  mixture. 
Knycki’a  experimental  results  are  very  well  documented, 
allowing  a  clear  picture  of  the  physical  processes  oceor> 
ring  in  the  tube  to  be  deduced.  A  conclusion,  arrived  at 
by  the  author,  was  that  thrust  was  possible  from  such  a 
device  but  practical  applications  did  not  appear  promis* 
ing.  It  is  unfortunate  that,  possibly  baaed  on  Knyeki’s 
extensive  but  misleading  results,  all  experimental  work 
related  to  the  pulsed  detonation  engine  concept  stopped 
at  this  time. 

Work  Aeported  in  Auaaian  sources  on  Pubs  Detonatiba 
Derieea 

A  review  of  the  Russian  literature  has  not  uncov* 
<;red  work  concerning  applications  of  pulsed  detouation 
devices  to  propuJaioa.  However  there  are  nomerona  re* 
ports  of  applications  of  such  devices  for  producing  ni* 
trogen  oxide^*  (an  old  Zeldovich  idea  to  bind  nitrogen 
directly  from  air  to  produce  fertilisers)  and  as  rock  crush* 
ing  devices^*. 

Korovin  et  eJL^*  provide  a  moat  interesting  account 
of  the  operation  of  a  commercial  detonation  reactor.  The 
main  objective  of  this  study  was  to  examine  the  efficiency 
of  thermal  oxidation  of  nitrogen  in  an  intennittent  det* 
onative  proceea  as  well  as  an  assessment  of  such  techno¬ 


logical  issues  as  the  fatigue  of  the  reactor  parts  exposed 
to  the  intennittent  detonation  waves  over  a  prolonged 
time.  The  reactor  consisted  of  a  tube  with  an  iimer  di¬ 
ameter  of  16  mm  and  length  1.3  m  joined  by  a  conical 
diffuser  to  a  second  tube  with  an  iimer  diameter  of  70 
mm  and  length  S  m.  The  entire  detonation  reactor  was 
submerged  in  running  water.  The  detonation  mixture 
was  introduced  at  the  end  wall  of  the  small  tube.  CH4, 
Oa  and  N2  comprised  the  mixture  comporition  and  the 
mixtnrs  ratios  wero  varied  during  the  continuous  oper¬ 
ation  of  the  reactor.  The  detonation  wave  velocity  was 
measured  dinctly  by  piesoelectric  tvoMoa  placed  ia  the 
small  and  large  tubes.  The  detonation  initiation  fre¬ 
quency  in  the  reactor  was  2-16  Ha.  It  it  reported  that 
the  apparatus  operated  without  significant  changes  for 
2000  hours. 

Smirnov  and  Boichenko^*  studied  intermittent  det¬ 
onations  of  gasoline-air  mixtures  in  a  3  m  long  and  22 
mw*  iwnsv  diameter  tube  operating  in  the  6*8  Hs, igni¬ 
tion  frequency  range.  The  main  motivation  of  this  work 
waa  to  improve  the  efficiency  of  a  commerdai  rock  cmah* 
ing  apparatus  based  on  intermitteat  detonations  of  the 
gasoline-air  mixtures.^*  The  authora  investigated  the  de- 
pendeacs  of  the  length  of  the  transitional  region  from 
deflagration  to  detonation  on  the  initial  tentpetaturs  of 
the  mixture. 

As  a  icault  of  the  information  contained  in  the  So¬ 
viet  reports,  it  can  be  concluded  that  reliaWs  commer^ 
dal  devicss  based  on  intermittent  detonations  can  be 
constructed  and  operated. 

Dsveiopimaat  of  ths  fi/ast  Propulsion  SytUm  at  JPL 

Work  at  the  Jet  Propulsion  Laboratory  (JPL)  by 
Back,  Vand  and  otherB^*~^*  concerned  an  experimental 
and  theoretical  study  of  the  feasibility  of  a  rocket  trus^ 
using  intermittsat  detonations  of  solid  ejqdosivu  usefril 
for  propnluon  in  denae  or  high-pressure  atmospheres  of 
certain  solar  system  planets.  The  JPL  work  was  directed 
at  very  specific  applications;  however,  ths  studies^^'^* 
iddmrrH  some  key  issues  of  devices  using  unsteady  pro¬ 
cess  such  as  propulsion  effidency.  The  JPL  studies  have 
important  implications  to  pulsed  detonation  propulsion 
systems. 

Reference  19  gives  the  basic  description  of  the  test 
stand  used.  In  this  vrork  a  Deta  sheet  type  C  explo¬ 
sive  was  detonated  inside  a  small  detonation  chamber 
attached  to  nossles  of  various  length  and  geometry.  The 
nossles,  complete  with  firing  plug,  were  mounted  in  a 
containment  vessel  which  could  be  pressurised  with  the 
mixture  of  various  inert  gases  from  vacuum  to  70  atm. 
The  apparatus  measured  directly  the  thrust  generated 
by  single  detonations  of  a  small  amount  of  solid  explo¬ 
sive  charge  expanding  into  conical  or  straight  nossles. 
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Tbnut  and  apccific  tmpniM  waa  meaaared  by  a  pendn* 
lorn  balance  lyitem. 

Reinlu  obtained  from  an  extensive  experimental 
study  of  the  exploeively  driven  rocket  have  lead  to  the 
following  conclnsions.  First,  rockets  with  long  nossles 
show  increasing  specific  impulse  with  increasing  ambi» 
ent  pressure  in  CO<t  and  Short  nossles,  on  the  other 
hand,  show  that  specific  impulse  is  independent  of  am> 
bieat  pressure.  Most  importantly,  most  of  the  experir 
meats  obtained  a  relatively  high  specific  impulse  of  250 
seconds  and  larger.  This  result  is  all  the  mors  strikirtg 
since  the  detonation  of  a  solid  explosive  yielda  a  tela* 
tively  low  energy  release  of  approximately  1000  cai/gm 
compared  with  3000  cal/gm  obtained  in  hydrogen  oxy* 
gen  combustion.  Thus,  it  can  be  concluded  that  the  to* 
tal  losses  in  a  thruster  baaed  on  unsteady  exparudon  are 
not  prohibitive  and,  in  principle,  very  efficient  propui* 
sion  systems  operating  on  intermittent  detonatioiu  are 
poaaible. 

UetottMtioa  Eogine  Studies  at  Mavai  Postgraduate  School 

A  modest  erqrloratory  study  of  a  propulsion  do* 
vice  utilising  detonation  phenomena  eras  conducted 
the  Naval  Postgraduate  SchooL^"^^  During  this  study, 
several  fundamentally  new  elements  were  introduced  to 
the  concept  diatinguiahing  the  new  device  from  previous 
ones. 

First,  it  is  important  to  note  that  the  erqMrimcn* 
tai  appazutus  constructed  by  Hdman  et  aL^^  was  the 
first  successful  self  aspirating  air  breathing  detonatioa 
device.  Intermittent  detonation  frequencies  of  25  Em 
were  obtained.  This  frequency  was  in  phase  with  the 
fuel  mixture  injection  through  timed  fn*l  valve  opening 
and  spark  discharge.  The  feasibility  of  intermittent  in* 
jection  was  established.  Pressure  measuiementa  shoered 
conclusively  that  a  detonation  process  occurred  at  the 
frequency  chosen  for  fhei  injection.  FVirther,  self  aspin- 
tkm  eras  shown  to  be  effective.  Finally,  the  effeetiveneeB 
of  a  primary  detonation  as  a  driver  for  the  main  det¬ 
onation  was  clearly  demonstrated.  Although  the  NPS 
studies  were  abbrevimted,  many  of  the  technical  issues 
considered  to  be  aseentisl  for  efficient  intermittent  det<H 
nation  propulsion  srere  addressed  with  positive  resnlte. 

Simuiations  of  Paltod  Detonation  Engine  Cycle  at 
NASA-Amm  Center 

Recently  Cambier  and  Adelman  carried  out  nu¬ 
merical  eimulatione  of  a  pulsed  detonation  engine  cycle 
taking  into  account  finite  rate  chemistry.  Unfortunately, 
the  simuiations  wen  restricted  to  a  quast-one  dimen* 
sionai  model  The  configuration  considered  had  a  6  cm 
iiuer  diameter  50  cm  long  main  chamber  which  was  at¬ 
tached  to  a  43  cm  diverging  nossle.  It  waa  assumed  that 


a  stoichiometric  mixture  of  hydtogen/air  at  3.0  atmo¬ 
spheres  is  injected  from  an  inlet  on  the  dosed  end  wall 
of  the  detonation  chamber.  At  sneh  conditions  Cambier 
and  Adelman  estimated  a  large  range  of  possible  detona¬ 
tion  frequencies  of  engine  operation  up  to  067  Hs.  The 
origin  of  this  estimate  is  not  dear  from  their  work,  since 
according  to  their  simnlatioru,  the  detonation,  expan¬ 
sion  and  freeh  charge  fill  requires  2.5  msec.  This  value 
leads  to  a  maxjmnm  frequency  of  400  Hs.  The  aimniated 
engine  performance  yielded  a  large  average  thrust  of  893 
lb  and  an  unusually  high  spedfie  impulse  of  6507  sec. 
These  eimulatinm  were  the  first  to  demonatrste  the  nee 
of  modem  CFD  methods  to  address  the  technical  issues 
associated  with  uiuteady  pulsed  detouatkm  concepu. 

In  the  remaining  eectioiu  we  discuss  a  particular 
propulsion  concept  beeed  on  the  resnlte  of  the  experi¬ 
ments  of  Helman  et  aL”  and  describe  a  compntationai 
study  of  its  performance  characteristics.  The  unsteady 
ttumeikal  scheme  need  for  the  study  made  uee  of  unique 
■imnlatioa  techniques;  the  key  ingredieuta  of  these  tech¬ 
niques  are  alao  described. 

A  Gnnnrle  PnlMd  Detonntioa 

The  geneiie  device  wu  consider  here  is  a  small  engine 
tS  cm  long  and  15  cm  in  diameter.  The  combuatible  gee 
mixture  is  injected  at  the  dosed  end  of  the  detonation 
chamber  and  a  detoitation  vrave  propagates  through  the 
mixture.  The  else  of  the  engine  suggeste  a  small  payload, 
but  the  concept  can  be  extended  to  larger  payloads  sim¬ 
ply  by  scaling  up  the  else  of  the  detonation  chamber  and 
poeaibly  combining  a  number  of  engines  into  one  large 
propulsion  engine.  A  key  issne  in  the  pulsed  detona¬ 
tion  engine  concept  is  the  design  of  the  main  detonation 
chamber,  llu  detonation  chamber  geometry  detennines 
the  ptopnlsioa  efficiency  and  the  doration  of  the  cyde 
(fiuquency  of  detonatioru).  Since  the  fresh  charge  for  the 
generic  engine  is  supplied  from  the  external  flow  field,  the 
efficiency  of  the  engine  depends  on  the  interaction  of  the 
surrounding  flow  with  the  internal  flow  dynamics.  The 
range  of  the  physical  processes  requiring  simnlstion  in 
order  to  modd  the  complex  flow  phenomeita  assodated 
with  the  detonation  engine  performance  is  very  broad. 
A  partial  list  is: 

1.  Initiation  and  propagation  of  the  detonation  wave 
inside  the  chamber, 

2.  Expansion  of  the  detonation  prodnets  from  the 
chamber  into  the  air  stream  around  the  chamber 
at  flight  Mach  numbers. 

3.  Reverse  flow  from  the  sunounding  air  into  the 
chamber  resulting  from  over  expansion  of  the  deto¬ 
nation  products, 

4.  Pressure  buildup  in  the  chamber  due  to  reverse  flow. 
The  flow  pattern  inside  the  chamber  during  post- 
exhauat  pleasure  buildup  determines  the  strategy 
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for  mixing  tii*  next  detonation  charge, 

5.  Strong  mntaal  interaction  between  the  flow  pro* 
ceiaaa  inaidc  the  chamber  and  flow  aronnd  the  en¬ 
gine. 

All  of  them  praeeasea  are  interdependent  and  their 
timing  ii  cradal  to  the  engine  efficiency.  Thne,  onlike 
Bifflulationa  of  ateady  atate  enginea,  the  phenomena  do- 
aciibed  above  can  not  be  evaluated  independently. 

The  need  to  reaolve  the  flow  regime  inaide  the  cham¬ 
ber  accoonting  for  noaalee,  air  inleta  etc.,  and  at  the  aama 
time  reaoiva  the  flow  aronnd  the  engine,  where  the  flow 
regime  variea  from  high  anbaonic,  locally  tranaonic  and 
aupeiaonie,  makee  it  a  challenging  computational  prob¬ 
lem. 

The  main  iarae  ia  to  determine  the  timing  of  the  air 
intake  for  the  fireah  gaa  charge.  It  ia  aufficient  to  aaaame 
invidd  flow  for  the  purpoae  of  simnlating  the  expanaion 
of  the  detonation  producta  and  freah  gaa  intake.  In  the 
following  we  preeent  the  flnt  resnlta  of  an  invidd  aimn- 
lation  of  the  detonation  cycle  in  a  cylindrical  chamber. 
Flnt,  we  deeeribe  onr  computational  method  for  aolving 
the  time  dependent  Euler  eqnationa  need  in  the  atudy. 

Thu  Unuteady  Euler  Solver 

A  new  aecottd  order  algorithm  for  aolving  the  Euler 
eq[uatiana  on  aa  nnatruetured  grid  waa  naed  ia  oar  atudy 
ofthedetoaatioacoocapt.  The  approach  ia  baaed  on  flnt 
aad  aeooad  order  Godunov  methoda.  The  method  leade 
to  aa  extremely  eflSicieat  aad  faat  Flow  Solver  wbidi  ia 
faSy  vectoriiad  aad  eaaily  lenda  itaelf  to  paralleliaatioa* 
The  low  memory  requiiumenta  and  apeed  of  the  method 
are  due  to  the  uae  of  a  unique  data  atracture. 

Until  recently  moat  CFD  aimulationa  were  carried 
out  with  logically  Btructured  gride.  Vectoriaatioa  aad/or 
paralleliaatioa  did  not  preeent  a  problem.  The  iacreaaed 
need  for  simulation  of  flow  phenomena  in  the  vidaity 
of  complex  geometrical  bodies  and  snrfacee  has  led  to 
the  davelopmeBt  of  CFD  codes  for  logically  uaatme- 
tured  grids.  The  most  succeeafnl  of  these  unstructured 
grid  codes  arc  based  on  finite  elements  or  finite  vofauno 
methods.  For  aa  uastmetnred  grid  in  two-dimensions, 
the  computational  domain  is  naually  covered  by  triangles 
aad  the  indices  of  the  amya  containing  the  values  of  the 
hydrodynamic  flow  quantities  axe  not  related  directly  to 
the  actual  geometric  location  of  a  node.  The  calculations 
performed  on  unstructured  grids  evolve  around  the  ele¬ 
mental  grid  fhape  (e.g.  the  triangle  for  two-dimensional 
probleras)  and  there  ia  no  obvious  pattern  to  the  or* 
der  in  which  the  local  integrations  should  be  performed. 
Explidt  integration  of  hydrodynamic  problems  on  aa 
nnstmctnred  grid  requires  that  a  logical  aubetructure 
should  be  created  which  identifies  the  locations  in  the 
global  arrays  of  all  the  local  quantities  necessary  for  the 
integration  of  one  element.  This  usually  results  in  a  large 


price  in  computational  efficiency,  in  memory  require¬ 
ments,  aad  in  code  complexity.  As  a  consequence,  vec¬ 
toriaatioa  for  the  conventional  unstructured  grid  meth¬ 
ods  has  concentrated  on  rearrangement  of  the  data  atruc- 
turs  in  a  manner  such  that  these  locally  centered  data 
structures  appear  as  global  arrays.  This  can  be  done 
to  aome  extent  using  machine  dependent  Gather-Scatter 
operations.  Additional  optimisation  can  be  achieved 
naiag  end  aearch  algorithms.  However,  theae 

methods  ars  complex  and  result  ia  marginal  improve¬ 
ment.  Most  optimised  unstructured  codes  to  date  run 
considerably  slower  aad  require  an  oritf  of  magnitude 
more  memory  per  grid  ceil  then  their  structured  counter¬ 
parts.  Parallelisation  of  the  conventional  unstructured 
codes  is  even  more  difficult,  there  ia  very  little  experience 
with  nnatruetured  codes  on  massively  parallel  comput¬ 
ers. 

The  method  we  have  developed  overcomes  these  dif- 
fiCTilti—  results  ia  code  with  apeed  aad  memory  re- 
quiremente  comparable  to  those  found  ia  structured  grid 
codes.  Moreover,  the  ability  to  construct  grads  with  ar¬ 
bitrary  xeadatioa  leads  to  a  flexiHlity  ia  dealing  with 
complex  geometries  not  attainable  with  structured  grids. 
The  irnnn  of  the  method  is  based  on  independent  flux 
calculation  across  the  edges  of  a  dual  baiieeatrk  grid, 
foUowed  by  node  integration.  This  approach  is  order  in- 
d^eadeat.  Below  we  give  the  easeurial  details  of  our 
algorithm;  a  complete  description  follows  later. 


Basic  Xhtegratioa  Algorithm. 

We  begin  by  describing  the  first  order  Godunov 
method  for  the  system  of  two-dimensional  (axi-symmetric) 
Ehiler  equations  written  in  conservation  law  form  aa 


a£  50  ^ 
at  dx  ar^~r 

where, 
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Hen  u  and  v  an  the  x  and  r  velocity  vector  com¬ 
ponents,  p  is  the  pressure,  p  ia  the  density  and  e  is  the 
total  energy  of  the  fluid  per  unit  volume.  It  ia  assumed 
that  a  miifd  (initial  conditions,  boundary  conditions) 
problem  is  properly  posed  for  the  set  of  equations  (1) 
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uil  thU  aa  initui  diatribatioa  of  the  floid  paninaun 
is  fiwa  is  1 3s  0  sad  soma  boaadarjr  cr'>»iitioBs  dcfiaiay 
a  aa^aa  soiadoa  am  spadfiad  oo  •:>•«  boaadarr  of  tba 
compatatieaal  dmaaia. 


Wa  look  for  a  soiatioa  of  lha  syitam  of  aqaatioas 
npnaaatad  bjr  Eq,  1  ia  tba  coiapatatioaai  donaia  cov^ 
eiad  b7  a*  aaaarmckaiad  grid.  As  aa  airmmpU,  Fig. 
•bowatkaauatfactamd  triaagalar  grid  aaadia  tba  pakMd 
dalMaSioa  aagiaa  sianUkioa.  Ham  moat  of  tba  compa- 
tat^al  affati  is  cooiauttad  to  tba  reaoiatioa  of  tba  ioar 
iHsida  tba  aagiaa  datoaatioB  ^Kmikw  ja  tba 
diata  ridaitF  of  tba  aossla.  la  Figam  lb  aa  aalargamaat 
of  tba  aoasla  ngioB  is  sboara,  illutratiag  tba  abilitf  to 
repiaaaat  gaomatiy  of  arbitrary  eomplajoty  aad  iritb  k>» 
caiiaad  raaoiatioa. 


a::*  ^  a:*  a.'*  a.*^  / 

a?  a?  a.*'  a.'*  a.’w  a.'# 


:•  a::*  a:^  ^  ^  i^a.'^  a:*  a*' a.’’ a.^  a:«  a.'f  a:?  V  V.' V'.  V . 

•:*  a:*  a?  a?  a:*  a?  k!?  a.'' a.'' b?  a^  c*  a::*  a^  A'*  a.'*  ' 


FlfW  ift  CoiBptttiiUoul  doubi  uul  grid  UMd  bi 
of  PDBopmtkm. 


Fig.  2  displays  a  frafraent  of  t*:#  compntatioaai 
doiPaiB  with  tbs  cortcspondiag  dual  gr.d.  Tbt  secondary 
or  dad  grid  is  formed  by  conaectiar  ae  barkenters  of 
tbe  primary  mcsb,  thus  fonaiag  fir  polygons  aronnd 
tba  primary  vertices. 


FIgnrs  lb  Enlargmeat  of  eompntationat  grid  ia  tba  Tlcinlty 
of  tbe  PDK  aossie. 


Flgttxs  i  ThM  priaury  (triaagiaa)  aad  seeoadary  {poilgoas} 
sastrsetnrad  grids. 

Wi  bass  fbsad,  aa  bass  otbeis,^  tbai  tba  bast  prac* 

deal  rspi— liliiin  of  tKa  intagimtiiwi  mAm— i« 

when  tbe  deal  grid  is  fonnad  by  eoaaactag  barkantars 
of  tbe  triaaglas.  Tiitagrsliow  by  tbe  Godaae>r  matbod^* 
eaa  be  divided  into  two  basic  steps:  1.  Cakalatioa  of 
the  leaes  at  tbs  edges  of  tbe  saeoadary  grid  vsiag  so> 
hriioBS  of  a  sat  of  one  dimaasioBai  problems; 

2.  IntegratioB  of  the  system  of  partial  differsatial  aqna> 
tioas  wbkb  amoBBts  to  additioa  of  all  tba  fisne  for  every 
polygoa  at  a  partkalar  time  atap. 

lb  defiae  tba  fiaaea  for  tba  grid  abowa  ia  JFlg.  2 
at  avayy  adgt  of  tba  araia  grid  it  ia  aicswary  to  aoive 
tbe  comapoadiag  Rjeroaaa  problam.  For  axampla,  to 
dalaa  tba  flax  at  tba  adga  eb,  we  aolva  tbe 
problem  batirsaa  pomta  A  aad  B.  Tba  aolatioB  of  this 
problam  is  ia  coordiaatas  local  to  tba  adga  of  tba  dnal 
grid  ebao  that  tba  taagaatialcompoaeat  of  vakicity  viil 
be  directed  aloag  this  edge  (ab).  baplamaatatiw  of  onr 
^proacb  rsqairsa  maiataiaiag  atriet  coaeiataacy  whaa 
dafiaiag  tba  *Ieft*  aad  "right”  stataa  for  tba  Rjamana 
problaaia  at  tba  adgie  ab^  be,  cd,  de,  af,  aad  Ik.  For 
tbia  rsaaoB  ws  daSaa  aot  oaly  tba  locatioa  of  the  vertices 
aad  leagtbs  of  tba  edges  bat  also  tbs  dirsctwa  of  tbe 
adgaa  with  respect  to  tba  primary  grid.  For  tba  clockwiM 
iatagratioB  pattern  ia  the  aama  Polygoa,  poiat  A  will  be 
tba  ‘right”  state  for  all  tba  Riamana  probUaaa  related 
to  tbia  poiat  aad  tbs  aaighbor  will  repiesaat  tbs  ‘left* 
side  of  tbs  diapbragai. 

It  is  sasy  to  ssa  that  tbs  flax  colcnlation  is  based  on 
infermntioB  at  only  two  nodsa  aad  rsqairsa  singls  geo¬ 
metrical  paramstsrs  defining  the  edge  of  tbe  secondary 


gzki  that  (ilwwcn  tha  liaa  connacting  tha  two  poiata. 
Thoa,  wa  caa  cakaiata  all  tha  valuas  neadad  for  flax 
cakalatioa  ia  oaa  loop  ovar  all  adgaa  of  tha  primarir  grid 
whhoat  aay  dataila  laiatad  to  tha  gaomatncai  stractaiaa 
which  thaaa  adf^  form.  Thia  ia  ton  aaaniaa  parallalia»> 
tioa  or  vaetoriaatioa  of  tha  algorithm  for  the  bolh  of  tha 
fakwlatioaa  iaad.viag  tha  Riamaaa  aolvar  that  proaidaa 
tha  fiiat  oidar  flax.  Tha  oaiy  pracadaia  aot  laa^y  par* 
allaliaahla  ia  tha  iatagxakioa  of  tha  flaxaa  for  tha  Soar 
vmriahlaa  at  tha  Tutkaa  of  tha  grid.  Hart  wa  aaa  tha 
*edga  cohuiag*  tachaiqaa  which  allowa  aa  to  aplit  tha 
tax  additioa  loop  iato  7  or  8  loop#  for  adgaa  of  diffanat 
color.  Each  of  thaaa  ioopa  ia  naaally  larga  aaoagh  not 
to  impair  aactotiaatioa.  At  thia  ataga  all  tha  flaxaa  ara 
addad  with  their  comet  aign  coireaponding  to  tha  cho- 
saa  dizactioa  of  iatagratioa  within  the  celL  Tha  amonnt 
of  calcalatioa  nqairad  here  ia  minimal  ainca  tha  flaxaa 
are  kaowa  and  aaad  only  to  ba  maltipliad  at  each  tima 
(tap  by  a  aimpla  factor  and  addad  to  tha  vaitax  qnaatity. 


A  achematic  flow  chart  of  tha  baaic  atepa  of  the  aec> 
ond  order  algorithm  implamentatioo  ia  ahown  in  Figure 
3. 
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Tha  aaeond  order  aolwar  ia  conatmctad  along  linea 
ahnilar  to  that  from  tha  fint-order  method.  At  each  call 
edge  tha  Riawaan  problem  ia  aohrad  for  aoma  apadfiad 
pair  of  left  and  right  conditiona.  Tha  aolntion  to  thia  Ria* 
mean  problem  ia  than  naad  in  tha  cakalatioa  of  flaxaa 
eHhkh  art  addad  later  to  adewca  to  tha  naxt  iatagntion 
atap.  Tha  aatanaina  to  aaoond  order  ia  achiavad  by  oaiag 
axtrmpolataea  in  apace  and  tima  to  obtain  tima<antarad 
left  and  tight  limking  valnaa  aa  inpata  for  tha  Riamaaa 
problem.  Tha  book  implamestatioa  of  tha  method  of 
cakalatioa  of  taeond  order  accorota  flaxaa  ia  foadamen* 
tally  tha  aama  aa  for  one  dimanaional  caaaa.  Tha  only 
difTeriaca  ia  in  tha  method  of  obtaining  linear  axtrapola» 
tion  of  tha  flow  eoriablaa  aa  a  firat  gaaaa  of  their  valoa  at 
tha  adgaa  of  tha  doal  grid.  To  obtain  tha  firat  gaaaa  wo 
naad  to  know  tha  gradient  of  aoma  gaadynamieal  param* 
atar  U  at  tha  vartkaa  of  tha  primary  maoh.  Tha  valae 
of  V  U  can  ba  aealnatad  by  oaing  a  linear  path  into> 
gnl  along  tha  adgaa  which  delineatea  tha  finka  eoloma 
aaoociatad  with  tha  vertex.  For  vertex  A  in  Figore  2  : 

J  VirdA»  jfo'ndl  (2) 

where  integration  along  tha  path  I  in  thia  caoe  ia  aqaiv- 
alent  to  iatagntion  akag  tha  adgaa  ab,  be,  cd,  da,  ef, 
fa.  Knowing  the  gradient  of  the  gaadynamic  parameter 
in  the  vofauna  related  to  vertex  A  will  allow  oa  to  axtnp* 
olata  tha  valaoa  ot  thia  parameter  at  any  location  within 
tha  volnma.  Thia  parmita  oa  to  evalnata  tha  fint  gaaaa 
for  U  at  the  adgaa  of  tha  deal  grid.  The  final  foar  atepa 
of  tha  implement  atkm  of  tha  aaeond  order  algorithm  haa 
bean  deacribod  previoaaly.^* 


naa«  I  NMv—ai— — 


***** 

Flgnra  8  Grid  achamatk  and  OBtllna  of  atepa  tor  aaeond  ordar 
Godaaov  method. 


In  thia  oaction  we  praaant  aampk  reanlta  of  Bimaia> 
tiona  of  tha  ganotic  PDE  device  naing  tha  nnmarical  coda 
doacribad  in  tha  preceding  aaction.  In  Figore  lathe  com- 
patationnl  domain  containing  tha  PDE  main  detonation 
chamber  ia  ahown  covered  with  tha  onatractarad  grid.  In 
oar  aampk  aimnlation  wa  have  choean  a  email  m  15  cm 
long  and  aa  15  cm  intarnnl  diamatar  cylindrical  chamber 
erith  a  amall  converging  noaale.  Thia  gawnatry  k  one 
of  a  nnmbar  of  tha  gaometriae  wa  have  analyied  in  a 
parametric  atndy  whooa  goal  ia  to  evalnata  and  optimise 
a  typical  PDE  device.  Tha  device  shown  ia  Figore  la 
doaa  not  repieaant  tha  optimum  and  ia  given  here  to  il- 
Inatrata  oar  methodology.  Wa  conaidar  a  sitoation  when 
tha  PDE  earvaa  aa  a  main  thrastar  for  a  vehick  travel¬ 
ing  in  air  with  tha  velocity  of  M  «  0.9  and  located  at 
tha  aft  end  of  the  vehicle.  The  main  objactivee  of  tha 
simolationa  presented  hare  are: 

1.  To  find  the  mammam  cycle  Eteqnency.  This  is  de¬ 
termined  by  tha  time  reqaired  from  detonation,  ex- 
haaat  of  combnation  prodocte  and  intake  of  fresh 
charge  for  the  naxt  detonation. 
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2.  To  cakoltto  th«  tiinut  produced  duzisg  emck  cycle 

and  the  mtegimted  thnut  m  a  functioa  of  time. 

The  limnlation  begins  at  t  s  0  when  a  itrong  deto> 
nation  wave  is  initiated  inside  the  detonation  chamber. 
Initially  the  detonation  wave  travels  the  open  aft 
end  of  the  chamber  towards  the  interior  with  a  majamom 
velocity  of  1800  ^  and  maximimi  pressure  of  20«10‘Pa. 
The  distribntion  of  pressnte,  velocity,  and  density  of  the 
detonation  wave  is  defined  through  the  selfiumtlar  aola> 
tion  for  a  planar  detonation  wave.  The  wave  was  directed 
towards  the  interior  of  the  chamber  to  capture  the  kinetic 
energy  of  the  wave  and  to  proloug  exposure  of  the  inntf 
chamber  walla  to  the  high  pressure.  In  Figure  4a  sim¬ 
ulation  resuiu  are  shown  at  time  t  =>  0.19  msec  in  the 
form  of  pressure  contours  and  particle  paths  £rom  dif¬ 
ferent  locations  inside  and  outside  the  detonation  cham¬ 
ber.  FVom  the  preaanie  contour  plots  we  observe  that 
the  shock  reflection  from  the  inner  wail  has  taken  place 
and  detonation  products  are  expanding  into  the  amb**** 
airstream.  The  flow  inside  the  chamber  is  choked  due  to 
the  converging  noasle  and  the  maximum  pressure  behind 
the  shock  U  m  flotm.  The  pressure  inside  the  chamber 
is  leas  than  3  atm.  The  strong  expansion  of  the  deto¬ 
nation  products  into  the  ambient  airstream  produces  a 
shock  wave  with  a  spherical  like  front  rapidly  decaying 
in  strength.  As  a  resdt  of  the  interaction  of  the  expan  ^ 
ing  detonation  products  with  the  external  flow  a  large 
toroidal  vortex  is  created.  The  vortex  is  carried  away 
(lekkly  from  the  chamber  by  the  external  flow  and  by 
its  own  flow  rnomeatum. 

In  Figure  4a  we  also  show  particle  paths  for  the 
particles  introduced  inside  the  chamber  and  outside  just 
above  the  uossle.  Examination  of  these  trajectories  al¬ 
lows  ns  to  follow  the  dynamics  of  the  chamber  evacun* 
tion  and  refilL  In  order  to  track  the  detonation  products 
we  initially  place  marker  particles  inside  the  chamber  at 
three  crose  sections  in  clusters  of  four  distributed  equally 
normal  to  the  detonation  chamber  axis.  Elach  particle 
has  a  diffuent  color;  however,  particles  in  the  same  clus¬ 
ter  have  the  same  shade  of  color.  At  the  three  chosen 
cross  sections  we  have  designated  shades  of  red,  yellow, 
and  blue  for  the  particles  located  correspondingly  at  the 
left  end,  center  and  beginning  of  the  nossle  cross  sec¬ 
tions  of  the  chamber.  The  movement  of  these  particles  is 
shown  by  connecting  them  with  a  continuous  line  begin¬ 
ning  with  particle  location  at  t  =:  0  to  the  present  time. 
In  Figure  4a  we  observe  that  at  time  t  =  0.19  *  10~^ 
sec  all  particles  originally  in  the  nossie  cross  section  and 
three  of  ths  partkles  originally  in  the  raid  section  have 
left  the  detonation  chamber.  However,  particles  origi¬ 
nally  introduced  on  the  iruer  wail  of  the  chamber  have 
only  advanced  to  the  nossle  region. 

Wo  use  a  different  technique  for  observing  the  mo¬ 
tion  of  the  ambient  gas  outside  the  chamber.  Here  a 


cluster  of  seven  particles  is  introduced  every  0.5  •  10~*  H 
seconds  in  the  external  flow  above  the  nossie.  All  such 
particles  are  traced  as  they  move  with  the  flow  until  they 
leavs  ths  computational  domun.  At  any  r  ven  time  only 
the  current  location  of  the  particle  is  diapuyed,  and  since 
the  particles  ars  introdneed  periodically  with  time  there 
ia  a  large  number  of  paxtides  to  trace.  We  easiga  a  cobr  # 
to  every  cluster  of  external  particles  to  keep  track  of  the 
time  when  they  were  introdneed  in  the  caleniation.  The 
colors  vary  from  magenta  for  those  particles  introdnesd 
early  in  caknlation,  to  bine  for  those  introdneed  shortly 
at  the  time  before  the  end  of  a  detonation  cycle.  In 
Fignre  4a  corresponding  to  very  early  times,  only  ons  # 
clnstsr  of  exterasl  partielss  is  visibls.  This  cluster  was 
introduced  at  t  0  and  it  tracking  the  expanding  flow 
of  the  detonation  piodncts. 

In  Fignre  4b  the  timniation  resnita  an  shown  for 
t  ai  1.7  •  10~’  sec.  The  pressnn  contonrs  show  that  a 
shock  wave  develops  at  ths  external  edge  of  the  nossie  sa  # 
a  xesnlt  of  a  strong  expansion  of  ths  Mach  0.9  external 
Sow.  A  resnlt  of  ovenxpansion  of  the  detonation  prod¬ 
ucts  is  that  ths  pressnn  insids  ths  detonation  chamber 
is  lower  than  ths  smhisnt  pressnn,  caasiag  ths  shock  to 
be  locatsd  lower  on  ths  sxtsrnal  snrfscs  of  ths  nMsls. 

Ths  sxtsnnl  flow  abont  ths  chambsr  has  a  stagnation  ^ 
point  on  ths  axis  of  symmstry  dowastnam  at  w  2Sem. 

At  this  tims  as  it  is  svidsat  from  ths  partkls  tnjecto- 
riss  that  most  of  tbs  detonation  prodnets  have  left  ths 
chnmbsr.  Fignn  4b  shows  ons  coatianons  trees  of  ths 
partielss  originntiag  at  ths  back  wail  of  tbs  detonation 
chamber  having  advanced  well  ahead  of  the  stagnation  n 
point  in  the  external  flow. 

Ths  marker  particles  nisassd  ootsids  and  jnst  above 
ths  nosslss  exit  show  two  distinct  flow  paths.  Ons  path 
takes  ths  flow  past  ths  stagnation  point  to  ths  right  of 
ths  detonation  chamber;  this  flow  path  ia  nuuksd  by  ths 
fonr  nppsr  partkis  traces.  Another  flow  path,  marked  ^ 
by  three  lower  particle  released  close  to  the  nossle  sur¬ 
face  is  deflected  towards  ths  detonation  chamber  exit. 

Fignre  4b  shows  this  deflected  stream  approaching  the 
detonation  chamber  nossle.  The  magenta  color  of  these 
particles  indicates  they  were  released  at  *  0.5  •  10~3  sec. 

Fignre  4c  corresponds  to  ths  simolatton  time  Is 
0.47*10”*  see.  The  presenre  inside  the  chamber  haa  risen 
«  lotm.  Higher  pressure  at  the  chamber  exit  h:.s  caused 
the  shock  standing  on  the  external  surface  of  the  nossle 
to  move  upwards.  The  particles  marking  the  movement 
of  fresh  air  into  the  chamber  shov  these  to  be  weii  inside 
with  some  nflecting  from  the  end  wall  giving  a  second  ^ 
stagnation  point  for  the  reversed  fresh  airflow. 

Fignre  4d  cotretponda  to  the  end  of  the  first  cycle 
when  the  detonation  chamber  should  be  filled  with  fresh 
charge  and  ready  for  the  next  detonation.  In  this  figure 
the  particle  paths  indicate  that  the  chamber  refills  in  a 
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c)  «  -  4.7 


b)  t  S  1.7  EOMC, 


d)  t  a*  7.4  nuw,  end  of  fixit  detonaiioa  erel*. 


Fixate  4  Premm  contoiin  ud  panicle  patba  for  varioni  timea  duing  tbe  PDE  eimoiation; 
a)  t  a:  0.19  niMc,  b)  t  s  miec, 

c)  t  3B  4.7  maec,  d)  t  »  7.4  msec,  ead  of  fint  detoaatioa  cycle. 
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witoblt  for  fui  ouxiag  of  th«  fael«4ir  mixton. 
W*  eoBj«etan  lluit  fool  injection  along  the  chamber  axia 
will  promote  faet  feel^  mixing.  We  can  tee  in  Figure 
4d  that  the  faither  injection  of  the  exteraal  air  flow  in> 
side  the  chamber  stopped,  and  from  that  point  on  the 
mixtnrs  compoeitioa  in  the  chamber  will  be  fixed. 


niiwiiwe-e.« 


Flgers  S  Ihnst  aad  force  csaereted  br  PDE  as  fuctioa  of 
USM. 


In  Fignre  S  total  force  aad  time  averaged  thrast  gen¬ 
erated  by  the  device  in  the  simalatioas  diaeoieed  prsvi- 
oadyareshowaaeaflaBCtioBoftime.  The  time  averaged 
thiB^  is  based  on  the  total  time  for  one  cycle.  As  eesa 
in  Figure  fi,  initially  a  very  large  force  of  m  7  *  lO^fh  is 
felt  on  the  end  wait  of  the  detonation  chamber.  Thfo  is 
a  icsnit  of  the  inwardly  moving  detonation  wave  naed 
in  onr  simniatiim.  Very  early  dniing  the  seqneaee,  this 
wave  reflects  from  the  left  of  the  detonation  cham¬ 
ber  generating  briefly  a  large  force.  This  force  rapidly 
decays  and  at  t  w  1.0  «  10~^  sec  changes  sign  dne  to 
interaction  of  the  strong  shock  wave  with  the  converging 
nossle.  This  afloct  is  noticeable  in  the  thrust  data;  the 
average  throat  dacreaaas  somewhat  after  reaching  levels 
of  w  200lbs.  The  shock  partially  reflects  from  the  con¬ 
verging  nossle  walla  and  generates  a  wave  moving  to  the 
left  walL  The  reflected  wave  thereafter  generatea  posi¬ 
tive  thrust  from  t  m  3.0  •  lO***  sec.  Finally  thrust  levels 
reach  the  maximam  of  225  lbs.  and  then  decays  slowly 
as  a  result  of  the  cross  sectional  drag  fores.  The  sim¬ 
ulations  predict  that  to  sustain  this  level  of  thrust  will 
require  a  detonation  frequency  of  about  150  Ha. 


Cooelnaioiu 


The  main  intmt  of  the  present  stu.-:)r  was  to  carry 
oat  a  review  of  the  relevant  literature  n-  Jie  area  of  det¬ 
onation  propulsioa,  to  assess  the  state-oMhe-art,  aad  to  . 
neommsnd  fntnro  research  baaed  on  oar  finduiy-  Wa  ~ 
haiva  reviewed  the  literatars  and  presented  oar  summary 
in  first  SectSOB  of  this  p^psr.  Qnv  initial  ipom 

the  review  is  that  there  k  a  substantial  body  of  evidence 
leading  toward  the  poesibil^  of  prodadng  propulsion 
engiaae  with  sigwifirant  thrum  kvab  based  on  an  inter* 
mittent  detonatjan.  ^ 

Mom  of  the  historical  attempts  at  producing  throat 
based  on  the  intermittent  detonatkm  cycle  wsro  carried 
out  with  thd  same  basic  experimental  aetnp;  namely,  a 
long  straight  detonation  tube  employing  forced  fuel  in¬ 
jection  at  the  closed  tube  end.  We  have  discussed  the  ^ 
many  reasons  such  a  device  caanot  take  proper  ad¬ 
vantage  of  the  phyeieal  proeeasas  saendited  with  dmo- 
nation. 

The  experiments  performed  at  the  Naval  Pomgrad- 
nate  School  nsing  a  aeifwspaatiag  mode  of  operation 
far  pnlsed  detonatiaa  thruster  produced  rosy  usefol  re-  n 
•alts  which,  upon  further  evammatiim,  provide  ns  with 
a  route  towards  practieal  propaliaon  eaginas  of  variable 
thrum  levels  which  are  both  contioHable  aad  scalable. 

W$  have  explored  some  of  the  impUcatians  of  the 
possible  applications  of  the  ealf  aepiratmg  detonation 
engine  concept  end  have  developed  a  enhable  anmeiicai  # 
"limalatioacodeto  benaed  IS  a  design,  aaalyeie  and  evnl- 
uatioa  tooL  la  fact,  tbs  pnliminery  analysis  of  a  candi¬ 
date  detoastioB  chamber  flow  properties  wee  ahovrn  to 
be  doniaated  completely  by  nnsteady  gaedynamies.  An 
attempt  to  aaderetand  the  flow  propeitiaa  based  on  any 
steady  state  model  or  one-dimeniional  nnsteady  aaalyt-  # 
jf*l  will  »"<—  eueb  important  asp  sets  ss  fhel-air 

miwMiy  ami,  shock  nfislctioa  from  internal  geometrical 
obstacle  each  as  the  converging  nossle.  The  nneteedy 
simletioa  code  developed  during  the  coaiM  of  onr  study 
is  a  nscseaary  tool  that  we  plan  to  use  in  a  study  leading 
to  a  feaaibls  prototype  engine  design  realiaing  the  full  0 
potential  of  the  intermittent  detonation  process. 
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1.  Introduction 

This  paper  presents  the  results  of  a  computational 
fluid  dynamic  simulation/  parameter  study  of  the  SAIC 
Pulsed  Detonation  Engine  (PDE)  concept.  Results  from 
computer  simulations  of  generic  PDE  geometries  over  a 
wide  range  of  subsonic  and  supersonic  flight  Mach  num¬ 
bers  indicate  that  potentially  practical  detonation  en¬ 
gines  can  now  be  conceptualized  and  optimized  for  spe¬ 
cific  flight  requirements  and  missions.  Specifically,  the 
study  shows  that  primary  propulsion  for  aerodynamic 
vehicles  of  the  PEN  AID  variety  may  be  possible  at  Mach 
numbers  0.5  <  M  <  0.8,  thrust  levels  on  the  order  of 
100  pounds  and  a  specific  fuel  consumption  of  the  order 
of  1  lb./(lb.hr.).  The  pred'cted  performance  places  the 
PDE  propulsion  concept  in  a  strongly  competitive  po¬ 
sition  compared  with  present  day  small  turbojets.  The 
PDE  concept  has  the  added  attractiveness  of  rapid  vari¬ 
able  thrust  control,  no  moving  parts  and  the  potential 
for  low  cost  manufacturing.  Finally,  the  PDE  concept 
is  scalable  over  a  wide  range  of  engine  sizes  and  thrust 
levels.  For  e.xample,  it  is  theoretically  possible  to  pro¬ 
duce  PDE  engines  on  the  order  of  one  to  several  inches 
in  diameter  and  thrusts  on  the  order  of  pounds,  as  well 
as  devices  which  provide  thousands  of  pounds  thrust. 

A  literature  search  of  past  research  on  related 
concepts  and  devices  uncovered  important  information 
which  proved  useful  in  pursuing  our  present  study.  A  re¬ 
view  of  the  literature^  reveals  that  a  significant  body 
of  experimental  and  theoretical  research  exists  in  the 
area  of  unsteady  propulsion.  However,  this  research  was 
not  sufficiently  extensive  to  provide  a  conclusive  quan¬ 
titative  comparison  between  impulsive  engine  concepts 
and  steady  state  concepts.  In  addition,  the  computa¬ 
tional  and  analytical  techniques  were  not  sufficiently  de¬ 
veloped  in  the  past  to  treat  the  inherently  unsteady  flows 
of  pulsed  engines.  A  new  generation  of  analytical  and 
computational  tools  exists  today,  allowing  us  to  revisit 
and  analyze  these  devices  with  a  high  degree  of  confi¬ 
dence. 

Our  paper  is  organized  into  the  following  sections; 
2)  description  of  the  basic  phenomenology  of  the  air- 
breathing  Pulsed  Detonation  Engine  concept;  3)  discus¬ 


sion  of  the  numerical  simulation  results;  and  4)  conclu¬ 
sions.  Details  of  the  mathematical  formulation  of  the 
simulation  and  a  discussion  of  the  numerical  code  used 
in  the  present  study  are  given  elsewhere.**’^® 

2.  The  Generic  Pulsed  Detonation  Engine 

A  detonation  process,  due  to  the  very  high  rate  of 
reziction,  leads  to  a  propulsion  concept  in  which  the  con¬ 
stant  volume  process  can  be  fully  realized.  In  detonative 
combustion,  the  strong  shock  wave,  which  is  part  of  the 
detonation  wave,  acts  like  a  valve  between  the  detonation 
products  and  fresh  charge.  The  speed  of  the  detonation 
wave  is  about  two  orders  of  magnitude  higher  than  the 
speed  of  a  typical  deflagration.  This  allows  the  design 
of  propulsion  engines  with  a  very  high  power  density. 
Each  detonation  has  to  be  initiated  separately  by  a  fully 
controlled  ignition  device,  with  a  wide  range  of  variable 
cycle  frequencies.  There  is  no  theoretical  restriction  on 
the  range  of  operating  frequencies;  they  are  uncoupled 
from  acoustical  chamber  resonancies.  This  is  very  im¬ 
portant  feature  of  the  constant  volume  detonation  pro¬ 
cess  that  differentiates  it  from  the  process  occurring  in  a 
pulse-jet;^-^  the  pulse  jet  cycle  is  tuned  to  the  acoustical 
resonances  of  the  combustion  chamber.  This  leads  to  a 
lack  of  scalability  for  the  pulse  jet  concept. 

A  physical  restriction  dictating  the  range  of  detona¬ 
tion  frequency  arises  from  the  rate  at  which  the  fuel/air 
mixture  can  be  introduced  into  the  detonation  chamber. 
This  also  means  that  a  device  based  on  a  detonative 
combustion  cycle  can  be  scaled  and  its  operating  pa- 
r2uneters  can  be  modified  for  a  range  of  required  output 
conditions.  There  have  been  numerous  attempts  to  take 
advantage  of  detonative  combustion  for  engine  applica¬ 
tions.  The  most  recent  and  successful  of  these  attempts 
was  carried  out  at  the  Naval  Postgraduate  School  (NPS) 
by  Helman  et  al.^^  During  this  study,  several  fundamen¬ 
tally  new  elements  were  introduced  to  the  concept  dis¬ 
tinguishing  the  NPS  research  device  from  previous  stud¬ 
ies.  First,  it  is  important  to  note  that  the  NPS  e.tperi- 
mental  apparatus  was  the  first  successful  self  aspirating 
air  breathing  detonation  device.  Intermittent  detona¬ 
tion  frequencies  of  25  Hz  were  obtained.  This  frequency 
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was  in  phase  with  the  fuel  mixture  injection  through 
timed  fuel  valve  opening  and  spark  ignition.  The  fea¬ 
sibility  of  intermittent  injection  was  established.  Pres¬ 
sure  measurements  showed  conclusively  that  a  detona¬ 
tion  process  occurred  at  the  frequency  chosen  for  fuel 
injection.  Further,  seif  aspiration  was  shown  to  be  effec¬ 
tive.  Finally,  the  effectiveness  of  a  primary  detonation 
as  a  driver  for  the  main  detonation  was  clearly  demon¬ 
strated.  Although  the  NPS  studies  were  abbreviated, 
many  of  the  technical  issues  considered  to  be  essential 
for  efficient  intermittent  detonation  propulsion  were  ad¬ 
dressed  with  positive  results. 

As  a  result  of  the  survey  of  past  research  on  inter¬ 
mittent  detonation  devices,  we  have  focussed  our  atten¬ 
tion  on  the  iVPS  experiments  of  Helman  et  al.^  The 
remainder  of  this  paper  is  concerned  with  a  computer 
simulation  of  performance  characteristics  of  such  a  de¬ 
vice.  We  have  chosen  a  generic  geometry,  applicable  to 
certain  present  day  vehicle  and  mission  requirements, 
and  have  parametrically  varied  key  features  which  affect 
performance  and  assessed  the  effects  of  these  variations. 

The  generic  device  we  consider  here  is  a  small  en¬ 
gine  15  cm  long  and  15  cm  in  diameter.  Figure  I  shows 
a  schematic  of  the  basic  detonation  chamber  attached  to 
the  aft  end  of  a  generic  aerodynamic  vehicle.  The  com¬ 
bustible  gas  mixture  is  injected  at  the  closed  end  of  the 
detonation  chamber  and  a  detonation  wave  propagates 
through  the  mixture.  The  size  of  the  engine  suggests  a 
small  payload  or  aerodynamic  vehicle,  but  the  concept 
can  be  extended  to  larger  payloads  simply  by  scaling  up 
the  size  of  the  detonation  chamber  and  possibly  combin¬ 
ing  a  number  of  chambers  into  one  larger  engine.  As  an 
example,  a  PEN  AID  vehicle  has  been  conceptualized  re¬ 
quiting  an  engine  with  a  diameter  of  roughly  15  cm  and 
a  useful  continuous  thrust  at  Mach  0.8  approximately 
60-90  pounds.  Such  an  engine  should  have  a  specific  fuel 
consumption  in  the  range  of  1.7  to  1.9  lb.  fuei/hr  per 
pound  and  an  endurance  on  the  order  of  10-30  minutes. 
These  specifications  are  met  by  present  day  small  turbo¬ 
jets.  Hence,  in  order  to  be  competitive,  a  PDE  must  at 
least  meet  these  requirements.  Should  this  prove  to  be 
the  case,  a  PDE  with  no  moving  parts  would  be  a  very 
attractive  engine  from  the  point  of  view  of  performance, 
ease  of  manufacturing  and  cost. 

A  key  issue  in  the  pulsed  detonation  engine  con¬ 
cept  is  the  design  of  the  main  detonation  chamber.  The 
detonation  chamber  geometry  determines  the  propulsion 
efficiency  and  the  duration  of  the  cycle  (frequency  of  det¬ 
onations).  Since  the  fresh  charge  for  the  generic  engine 
is  supplied  from  the  external  flow  field,  the  efficiency  of 
the  engine  depends  on  the  interaction  of  the  surrounding 
flow  with  the  internal  flow  dynamics.  The  range  of  the 
physical  process  requiring  simulation  in  order  to  model 
the  complex  flow  phenomena  associated  with  the  deto¬ 


nation  engine  performance  is  very  broad.  A  partial  list 
is: 

1.  Initiation  and  propagation  of  the  detonation  wave 
inside  the  chamber, 

2.  Expansion  of  the  detonation  products  from  the 
chamber  into  the  air  stream  around  the  chamber 
at  flight  Mach  numbers, 

3.  Fresh  air  intake  from  the  surrounding  air  into  the 
chamber. 

4.  The  flow  pattern  inside  the  chamber  during  post¬ 
exhaust  pressure  buildup  which  determines  the 
strategy  for  mixing  the  ne.xi  detonation  charge, 

5.  Strong  mutual  interaction  between  the  flow  inside 
the  chamber  and  surrounding  the  engine. 


(tetonation 

chamber 


datonation 
shock  wave 


Figure  1.  Schematic  of  the  generic  PDE  showing  det¬ 
onation  chamber,  inlet,  detonation  wave,  fuel  injectors 
and  position  relative  to  an  aerodynamic  vehicle. 


All  of  these  processes  are  interdependent,  and  inter¬ 
action  and  timing  are  crucial  to  engine  efficiency.  Thus, 
unlike  simulations  of  steady  state  engines,  the  phenom¬ 
ena  described  above  can  not  be  evaluated  independently. 

The  need  to  resolve  the  flow  regime  inside  the  cham¬ 
ber  accounting  for  nozzles,  air  inlets  etc.,  and  at  the 
same  time  resolve  the  flow  outside  and  surrounding  the 
engine,  where  the  flow  regime  varies  from  high  subsonic, 
locally  transonic  and  supersonic,  makes  it  a  challenging 
computational  problem. 

The  single  most  important  issue  is  to  determine  the 
timing  of  the  ait  intake  for  the  fresh  charge  leading  to 
repetitive  detonations.  It  is  sufficient  to  assume  invis- 
cid  flow  for  the  purpose  of  simulating  the  expansion  of 
the  detonation  products  and  fresh  air  intake.  The  as¬ 
sumption  of  inviscid  flow  makes  the  task  of  numerically 
simulating  the  PDE  flow  phenomena  somewhat  easier 
than  if  a  fully  viscous  flow  model  were  employed.  For 
the  size  of  the  generic  device  studied  in  this  work  the 
effects  of  viscous  boundary  layers  are  negligible  with  the 
exception  of  possible  boundary  layer  effects  on  the  valve 
and  inlet  geometries  discussed  subsequently.  Boundary 
layer  effects  on  the  present  results  are  discussed  later. 
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3.  Results  of  Simulatipaai  Parameter  Study 

As  mentioned,  and  as  shown  in  Figure  1.  we  have 
chosen  a  small »  15  cm  long  and  ta  15  cm  internal  diam¬ 
eter  cylindrical  chamber  as  the  basic  device.  In  the  fig¬ 
ure,  the  detonation  chamber  including  detonation  wave 
and  inlet  valves  are  shown  schematically.  The  PDE,  as 
envisioned  in  the  present  study,  would  most  naturally 
be  applicable  for  a  class  of  2kerodynamJc  vehicles  such  as 
target  drones  and  PEN  AID  missiles  among  others.  The 
exact  details  of  this  basic  chamber  geometry  were  mod¬ 
ified  during  the  course  of  the  study  in  order  to  obtain 
the  required  aerodynamic  or  propulsion  effects;  however, 
these  modifications  did  not  signihcantiy  change  the  total 
internal  volume  of  the  chamber.  Thus,  the  performance 
results  for  the  different  cases  can  be  compared  holding 
the  chandter  volume  constant.  The  schematic  shown  in 
Figure  1  does  not  represent  an  optimum  configuration 
and  is  given  here  mainly  to  illustrate  our  methodology. 
We  consider  a  situation  where  the  FOE  serves  as  the 
main  thruster  for  an  aerodynamic  vehicle  traveling  in 
air  with  Mach  numbers  between  M  =  0.2  and  M  =  5.0, 
and  is  located  at  the  aft  end  of  the  vehicle.  The  main 
objectives  of  our  study  are: 

1.  To  calculate  the  thrust  produced  during  each  cycle 
and  the  integrated  thrust  as  a  function  of  time, 

2.  To  find  the  maximum  cycle  frequency.  This  is  deter¬ 
mined  by  the  time  required  from  detonation  to  the 
final  exhaust  of  combustion  products  and  intake  of 
fresh  charge  for  the  next  detonation, 

3.  To  evaluate  the  parametric  dependence  of  the  thrust 
and  detonation  frequency  on  the  flight  Mach  num¬ 
ber  and  detonation  chamber  geometry  details. 

In  addition  to  the  technical  objectives  outlined 
above,  we  have  set  another  goal  for  our  study.  We  require 
that  the  best,  but  by  no  means  optimum,  configuration 
produce  a  minimum  of  60  pounds  thrust  at  an  operat¬ 
ing  frequency  of  140  cycles  per  second.  The  definition 
of  best  is  that  configuration  which  satisfies  the  techni¬ 
cal  objectives  outlined  above  and  meets  the  operational 
goal  of  60  pounds  thrust  and  140  Hz  frequency  over  the 
flight  regimes  from  M=.2  to  M=0.9.  (The  Mach  number 
range  corresponds  to  that  of  a  PEN  AID  missile  mission 
profile.) 

To  achieve  these  objectives  we  have  conducted 
a  comprehensive  parametric  simulationai  study  of  the 
PDE  performance.  We  have  studied  PDE  engine  perfor¬ 
mance  for  a  range  of  Mach  numbers  with  two  separate 
initial  detonation  locations  in  the  chamber  and  for  vari¬ 
ous  geometry  modifications.  In  addition  to  the  range  of 
subsonic  Match  numbers  we  have  examined  PDE  perfor¬ 
mance  in  the  supersonic  regime,  2  <  M  <  5.  The  geom¬ 
etry  modifications  included  converging  exhaust  nozzles, 
inlets  and  dynamic  valves.  A  computer  simulation  code 
was  developed  and  optimized  for  a  Stellar  graphics  work¬ 


station  to  carry  out  the  analysis.  In  addition,  a  particle¬ 
tracing  package  was  developed  and  implemented  in  the 
code.  This  allowed  us  to  analyze  the  flow  pattern  inside 
and  outside  the  detonation  chamber,  the  main  sources 
creating  this  pattern  as  a  function  of  time,  and  the 
composition  of  the  resulting  gas  mixture  (air/detonation 
products). 


Figure  2.  Distribution  of  gasdynamic  parameters  be¬ 
hind  the  detonation  wave  according  to  a  l-D  self-similar 
solution. 

First  we  will  describe  in  detail  the  results  for  a  typ¬ 
ical  simulation.  Case  1,  and  illustrate  the  main  features 
of  our  analysis. 

Case  1.  The  simulation  begins  at  t  =  0  when  a  strong 
detonation  wave  is  initiated  inside  the  detonation  cham¬ 
ber.  The  detonation  chamber  for  this  case  includes  a 
simple  annular  inlet  which  remains  open  during  opera¬ 
tion.  The  externtd  freestream  Mach  number  is  0.8.  The 
specific  fuel  chosen  for  the  present  simulations  is  ethy¬ 
lene.  The  chemical  reaction  occurring  in  the  eihylene/air 
detonation  process  is  given  by: 


Ciffi  +  302  +  11. 24 Wo - 2,HoO  -f-  2COo  -t-  n.24;Vo 

The  detonability  limits  of  ethylene  in  air  range  from  4  to 
12%  by  volume  and  depend  somewhat  on  temperature 
and  pressure.  We  assume  for  the  sake  of  simplicity  that 
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the  fuei/air  ratio  ia  6%  by  volume.  Because  the  detona¬ 
tion  initiation  and  propagation  (detonative  combustion) 
tadtes  place  several  orders  of  magnitude  faster  than  any 
of  the  other  flow  processes  in  or  surrounding  the  device, 
finite  rate  chemistry  is  not  included  in  the  simulations. 
Instead  the  equation  of  state  for  the  flow  in  the  chamber 
immediately  after  detonative  combustion  was  adjusted 
to  represent  the  correct  physical  state  of  the  combustion 
products.  Initially  the  detonation  wave  travels  from  the 
closed  end  of  the  chamber  towards  the  open  aft  end  with 
a  maximum  velocity  of  1800  m/sec  and  maximum  pres¬ 
sure  of  20*  lO^Pa.  The  initiation  of  the  main  detonation 
wave  is  assumed  to  take  place  via  a  device  proposed  and 
successfully  implemented  by  Helman,  et  namely,  a 
primary  detonation  is  established  in  a  small  tube  con¬ 
taining  an  oxygen  rich  mixture.  This  mixture  requires  a 
low  initiation  energy  but  will  sustain  a  detonation  which, 
in  turn,  is  used  to  trigger  the  main  detonation  wave.  We 
do  not  model  the  detonation  tube;  but.  we  assume  chat 
such  a  device  is  present  to  trigger  the  main  detonation  at 
t  ~  0.  The  distribution  of  pressure,  velocity,  and  density 
of  the  detonation  wave  is  defined  through  the  selfsimi- 
iar  solution  for  a  planar  detonation  wave.  A  schematic 
of  the  detonation  wave  distribution  in  space  in  Figure  2 
shows  pressure,  temperature  and  velocity  as  a  function 
of  the  spatial  extent  of  the  detonation  wave. 

In  Figure  3a  simulation  results  are  shown  at  time 
t  =  0.64  m/sec  in  the  form  of  pressure  contours  and 
particle  paths  from  different  locations  inside  and  out¬ 
side  the  detonation  chamber.  The  free  stream  Mach 
Number  is  0.8.  From  the  pressure  contour  plots  we  ob¬ 
serve  that  the  detonation  shock  wave  has  left  the  cham¬ 
ber  and  is  freely  expanding  outwardly  in  the  external 
flow.  The  strong  expansion  of  the  detonation  products 
into  the  ambient  alrstream  produces  a  shock  wave  with  a 
spherical-like  front  that  rapidly  decays  in  strength  away 
from  the  source.  A  large  toroidal  vortex  is  created  as 
a  result  of  the  interaction  of  the  expanding  detonation 
products  with  the  external  flow.  The  vortex  is  carried 
away  quickly  from  the  chamber  by  the  external  flow  and 
by  its  own  momentum.  At  the  time  shown  in  Figure  3a, 
the  detonation  products  are  almost  fully  expanded  into 
the  ambient  air  and  the  maximum  pressure  at  the  front 
of  the  shock  wave  is  1.2  atm.  As  a  result  of  this  expansion 
the  detonation  products  inside  the  detonation  chamber 
are  overexpanded  and  their  pressure  is  0.45  atm. 

In  the  upper  frame  of  Figure  3a  we  show  parti¬ 
cle  paths  for  the  marker  particles  introduced  inside  the 
chamber  and  outside  just  above  the  nozzle  exit.  Exam¬ 
ination  of  these  trajectories  allows  us  to  follow  the  dy¬ 
namics  of  the  chamber  evacuation  and  subsequent  refill. 
In  order  to  track  the  detonation  products  we  initially 
place  marker  particles  inside  the  chamber  at  three  sep¬ 
arate  cross  sections  in  clusters  of  four.  Each  particle 


has  a  different  color;  however,  particles  in  the  same  clus¬ 
ter  have  the  same  shade  of  color.  At  the  three  chosen 
cross  sections  we  have  designated  shades  of  red,  yellow, 
and  blue  for  the  particles  located  correspondingly  at  the 
left  chamber  end,  center  and  aft  end  of  the  nozzle  cross 
section.  The  movement  of  these  particles  is  shown  by 
connecting  them  with  a  continuous  line  beginning  with 
particle  location  at  f  =  0  to  the  present  time.  In  Figure 
3a  we  observe  that  at  time  <  =  0.64*  10“^  sec  ail  particles 
originally  in  the  nozzle  crc^  section  (the  cross  section  at 
the  aft  end)  and  three  of  the  particles  originally  in  liie 
mid  section  have  left  the  detonation  chamber.  However, 
particles  originally  introduced  at  the  inner  end  wail  of 
the  chamber  (red  traces)  have  only  advanced  to  the  noz¬ 
zle  region. 

We  use  a  different  particle  technique  for  observing 
the  motion  of  the  ambient  gas  outside  the  chamber.  Here 
a  cluster  of  seven  particles  is  introduced  every  0.5*  10"'’ 
seconds  in  the  external  flow  above  the  nozzle.  All  such 
particles  are  traced  as  they  move  with  the  flow  until  they 
leave  the  computational  domain.  At  any  given  time  only 
the  current  location  of  the  particle  is  displayed,  and  since 
the  particles  are  introduced  periodically  with  time,  there 
are  many  particles  to  trace.  We  assign  a  color  to  every 
cluster  of  external  particles  to  keep  track  of  the  time 
when  they  were  introduced  in  the  calculation.  The  colors 
vary  from  magenta  for  those  particles  introduced  early  in 
the  calculation,  to  blue  foe  those  introduced  near  the  end 
of  a  detonation  cycle.  In  Figure  3a,  which  corresponds 
to  early  times,  only  12  clusters  of  external  particles  are 
visible.  These  clusters  were  introduced  from  t  =  0  to 
0.6  *  10”^  second,  vary  from  magenta  to  red  in  color, 
and  are  tracking  the  expanding  flow  of  the  detonation 
products. 

In  Figure  3b  the  simulation  results  for  the  same  case 
are  shown  for  <  =  1.4  *  10“^  sec.  The  pressure  contours 
show  that  a  strong  stagnation  point  develops  on  the  a.xis 
of  symmetry  downstream  at  w  25  cm  as  a  result  of  a 
strong  expansion  of  the  Mach  0.8  external  flow  around 
the  engine.  At  this  time  it  is  evident  from  the  particle 
trajectories  that  most  of  the  detonation  products  have 
left  the  chamber.  Figure  3b  also  shows  *  hat  only  traces 
of  the  particles  originating  at  the  back  vail  of  the  det¬ 
onation  chamber  are  left  in  the  computational  domain. 
These  particles  advanced  to  the  aft  end  c‘  the  chamber 
and  then  following  the  contraction  of  the  t  er  expanded 
detonation  products,  reversed  their  flow  direction.  The 
pressure  contour  plots  in  Figure  3b  show  the  formation 
of  an  additional  stagnation  point  at  the  closed  end  wall 
of  the  detonation  chamber  resulting  from  the  inverse  flow 
of  the  detonation  products.  The  average  pressure  in  the 
chamber  is  below  ambient  and  is  ss  0.55  atm. 

The  marker  particles  released  outside  and  just  above 
the  nozzle  exit  show  two  distinct  flow  paths.  One  p.itli 
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takes  the  flow  past  the  stagnation  point  to  the  far  right  of 
the  detonation  chamber;  this  flow  path  is  marked  by  the 
four  upper  particle  traces.  Another  flow  path,  marked  by 
three  lower  particles  released  close  to  the  external  wall 
of  the  chamber,  are  deflected  from  the  stagnation  region 
towards  the  detonation  chamber  exit.  The  magenta  color 
of  these  particles  indicates  they  were  released  at  t  % 
0.6  *  10~®  sec. 

Figure  3c  corresponds  to  the  simulation  time  t 
2.2*  I0“®  sec.  The  pressure  inside  the  chamber  has  risen 
to  %  0.8  atm.  The  stagnation  region  at  the  closed  end 
of  the  detonation  chamber  continues  to  develop  and  has 
produced  a  compression  wave  moving  toward  the  open 
end  of  the  chamber.  The  particles  marking  the  move¬ 
ment  of  fresh  air  into  the  chamber  show  these  to  be  well 
inside  the  chamber,  with  some  reflecting  from  the  end 
wall  and  contributing  to  the  pressure  at  the  second  stag¬ 
nation  point.  The  circular  motion  of  a  few  of  the  deto¬ 
nation  products  particles  (red  solid  lines),  indicates  that 
the  detonation  products  which  did  not  expand  with  the 
first  shock  wave  are  now  “trapped”  inside  the  detonation 
chamber. 

Figures  3d  and  3e  correspond  to  the  end  of  the  first 
cycle  when  the  detonation  chamber  should  be  filled  with 
fresh  charge  and  ready  for  the  next  detonation.  How¬ 
ever,  these  figures  indicate  that  the  fresh  air  refill  is  not 
totally  satisfactory  for  this  chamber  configuration.  The 
marker  particle  paths  indicate  that  the  chamber  refill  is 
incomplete  and  at  a  time  of  (  s  4.7  •  10~^  sec  the  refill 
process  has  essentially  stopped.  As  a  result,  only  about 
a  third  of  the  detonation  chamber  volume  has  enough 
fresh  air  for  the  next  detonation  cycle. 

In  Figure  4  the  total  force  and  time  averaged  thrust 
generated  by  the  device  in  the  simulations  just  discussed, 
are  shown  as  a  function  of  time.  The  time  averaged 
thrust  is  based  on  the  total  time  for  one  cycle  defined  as 
7.0  *  10~^  sec.  This  time  is  equivalent  to  a  detonation 
frequency  of  140  Hz.  As  seen  in  the  figure,  initially  a 
very  large  force  of  »  3.2  *  lO^lb  is  felt  on  the  end  wall  of 
the  detonation  chamber.  This  force  is  a  result  of  the  high 
pressure  behind  the  detonation  wave.  It  rapidly  decays 
and  at  t  »  0.5  •  10~^  sec  changes  sign  due  to  over  ex¬ 
pansion  and  dynamic  pressure  of  the  external  flow.  This 
effect  is  noticeable  in  the  thrust  data;  the  average  thrust 
increases  rapidly  but  decreases  after  reaching  levels  of 
55  lbs.  At  the  end  of  the  simulation  the  thrust  is  ac¬ 
tually  negative  a  —20  lbs.  The  average  thrust  for  one 
cycle  in  this  case  will  be  a  10  lbs. 

The  simulation  just  described  has  served  to  illus¬ 
trate  the  information  generated  with  the  numerical  sim¬ 
ulations.  For  the  remaining  simulations,  emphasis  was 
placed  on  determining  the  effects  of  propagation  direc¬ 
tion  of  the  main  detonation  wave,  effects  of  inlet  and 
valve  geometry,  detonation  chamber  geometry  and  Mach 


number.  .Many  of  the  simulations  produced  unsatisfac¬ 
tory  results  from  the  point  of  view  of  ineffective  fresh 
air  refill  and  hence  either  not  enough  fresh  charge  for 
repetitive  detonations  or  too  slow  a  refill  resulting  in 
low  detonation  frequency.  We  give  below  examples  of 
successful  simulations  at  Mach  0.8,  Case  2  and  Mach  2. 
Case  3. 


Figure  4.  Time  averaged  thrust  and  force  data  from 
simulation  of  Case  i . 


Case  2.  The  results  from  all  simulations  show  that,  irre¬ 
spective  of  the  inlet  geometry,  but  with  a  straight  nozzle 
and  initial  detonation  position  at  the  nozzle  exit  plane, 
sufficient  thrust  levels  can  be  produced.  A  remaining 
problem  in  view  of  the  objectives  is  to  demonstrate  that 
enough  fresh  air  can  be  injected  into  the  chamber  to  pro¬ 
duce  the  required  conditions  for  intermittent  detonation 
at  a  frequency  of  140  Hz.  To  accomplish  this,  we  have 
considered  a  contoured  inlet  in  the  periphery  of  the  end 
wall  of  the  detonation  chamber.  The  details  of  this  in¬ 
let  geometry  and  the  computational  grid  are  shown  in 
Figure  5. 

For  the  initial  tests  with  this  inlet  no  attempt  was 
made  to  optimize  the  inlet  geometry  for  a  given  flow 
regime.  Figures  6a-f  present  results  for  the  simulation  of 
the  chamber  geometry  shown  in  Figure  5. 
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The  flight  Mach  number  in  this  case  is  0.8.  The  ini' 
tial  detonation  wave  is  launched  inwards  and  its  energy 
parameters  are  the  same  as  in  all  previous  cases.  In  Fig¬ 
ure  6a  we  see  two  distinct  shock  waves  expanding  into 
ambient  air:  one  generated  by  expansion  from  the  aft 
of  the  chamber  and  another  produced  by  the  expansion 
through  the  inlet.  We  also  notice  some  particles  trac¬ 
ing  the  motion  of  the  detonation  products  flowing  out 
through  the  inlet.  In  Figure  6b,  at  time  t  =  0.7  *  10“^ 
sec.,  fresh  air  is  noted  entering  the  chamber  through 
the  inlet.  At  this  time  the  dominant  pressure  in  the 
chamber  is  0.77  atm.  Figure  6c  shows  that  at  the  time 
t  =  1.4*  lO"^  sec,  3/4  of  the  detonation  chamber  is  Ailed 
with  fresh  air.  The  strong  air  jet  entering  the  chamber 
impinges  the  axis  of  symmetry,  creating  two  large  vor¬ 
tices  which  rotate  in  opposite  directions.  Such  vortical 
motion  would  promote  effective  fuel-air  mixing  in  the 
chamber.  In  Figure  6d,  t  =  2.4  *  10~®  sec.,  the  fresh 
air  stream  begins  to  exit  the  chamber.  At  this  point  the 
mixture  inside  the  chamber  has  achieved  the  required 
conditions  for  the  next  detonation.  This  result  translates 
to  a  sustained  detonation  frequency  of  »  400  Hz.  In  Fig¬ 
ures  6e-f  we  follow  the  later  evolution  of  the  flow  pattern 
inside  and  outside  the  chamber.  We  observe  strong  air 
flow  through  the  inlet  with  a  strong  recirculation  pat¬ 
tern,  which  will  assure  fuel  air  mixing  even  if  the  fuel 
is  injected  into  the  chamber  with  a  delay  to  sustain  in¬ 
termittent  detonation  at  a  lower  frequency.  In  Figure  7 
thrust  and  force  simulated  for  the  last  case  are  shown  as 
a  function  of  time.  First  we  notice  that  the  maximum 
thrust  for  this  case  is  »  70  tbs.,  somewhat  lower  than  for 
the  cases  with  a  very  simple  annular  inlet  and  completely 
flat  end  walls. 


Figure  5.  Computational  grid  for  the  inlet  geometry 
used  in  simulation  of  Case  2. 


This  results  from  a  reduction  of  the  area  normal  to  the 
propagation  direction  of  the  detonation  wave  due  to  the 
inlet  geometry.  It  is  surprising  that  the  case  with  the 
inlet  results  in  a  reduction  of  the  average  thrust  as  a 
function  of  time  that  is  almost  the  same  as  for  a  case 
without  inlet  at  the  same  Mach  number  («  90  lb  re¬ 
duction  without  the  inlet  and  100  lb  reduction  with  tiie 
inlet).  This  strongly  indicates  that  the  generic  inlet  we 
have  just  considered  will  not  contribute  signiflcantiy  to 
the  drag  produced  by  the  chamber  dynamics  and  inter¬ 
action  with  the  ambient  flow.  The  cycle  average  thrust 
generated  by  the  PDE  based  on  150  Hz  operation  fre¬ 
quency  in  this  case  is  as  100  lbs.  This  value  is  somewhat 
larger  than  the  thrust  targeted  for  this  study. 


Figure  7.  Time  averaged  thrust  and  force  data  from 
simulation  of  Case  2. 


Case  3.  Results  for  a  Mach  2.0  simulation  of  the  same 
geometry  as  in  the  previous  simulation:  but  with  a  more 
geometrically  complex  inlet  are  shown  in  Figures  8a-b. 
The  inlet  geometry  for  this  case  was  determined  from 
neat  choked  flow  conditions  in  the  throat  region  of  the 
inlet.  In  addition  to  the  pressure  contours  and  particle 
paths,  in  this  case  we  also  shew  velocity  vectors. 
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We  observe  in  these  figures  that  the  detonation  chamber 
is  quickly  filled  with  fresh  air  at  the  time  t  =  1.3  *  10“^ 
sec.,  which  corresponds  to  a  detonation  frequency  of  700 
Hz.  In  practice  this  high  frequency  will  be  difficult  to 
realize,  because  of  the  mixing  and  initiation  problems. 
In  Figure  9  we  show  .nrufi,  and  force  results  for  this 
simulation.  We  observe  that  after  3.0*  1U~^  sec.  the  net 
average  thrust  is  still  50  lbs. 
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Figure  9.  Time  averaged  thrust  and  force  data  from 
simulation  of  Case  3,  140  Hz  detonation  frequency. 


Figure  10.  Time  averaged  thrust  and  force  data  from 
simulation  of  Case  3,  200  Hz  detonation  frequency. 

The  cycle  averaged  thrust  based  on  140  Hz  detonation 
frequency,  for  this  simulation  is  sss  70  lbs.  However,  as 


previously  mentioned  the  fresh  air  refill  lime  allows  a 
much  higher  frequency  of  detonations.  Figure  10  shows 
the  same  results  as  Figure  9,  but  calculated  for  a  200 
Hz  cycle  frequency.  In  this  case  the  maximum  average 
thrust  is  ss  280  lbs.  and  the  net  cycle  averaged  thrust  is 
«  100  lbs.  This  result  indicates  the  promising  potential 
of  the  PDE  concept  for  supersonic  propulsion, 

4.  Conclusions 

In  this  section  we  present  our  conclusions  reached 
after  carrying  out  a  review  of  past  research  on  detona- 
tive  propulsion  and  a  detailed  numerical  simulation  of 
a  generic  pulsed  detonation  engine  (PDE)  device.  The 
primary  conclusion  is  that  the  PDE  shows  promising  po¬ 
tential  in  providing  primary  propulsion  for  a  range  of 
present  day  aerodynamic  vehicles  such  as  target  drones. 
PEN.VID  missiles  and  other  smart  missiles  that  require 
loitering  and  throttling  capability.  The  operating  flight 
regimes  of  such  a  propulsion  engine  may  extend  from  the 
low  subsonic  to  supersonic  regimes. 

Most  of  the  past  attempts  at  producing  thrust  based 
on  an  intermittent  detonation  cycle  were  carried  out 
with  the  same  basic  e.xperimental  set-up;  namely,  a 
long  straight  detonation  lube  employing  forced  fuel  in¬ 
jection  at  the  closed  tube  end.  We  have  pointed  out 
the  reasons**  why  such  a  device  cannot  take  proper  ad¬ 
vantage  of  the  physical  processes  associated  with  det- 
onative  combustion.  We  have  also  indicated  that,  be¬ 
cause  of  the  conclusions  reached  during  experiments  with 
such  devices,  the  development  of  intermittent  detonative 
propulsion  was  adversely  prejudiced  and  stalled  at  an 
early  stage. 

The  experiments  performed  at  the  Naval  Postgrad¬ 
uate  School  based  on  a  self-aspirating  mode  of  operation 
for  a  pulsed  detonation  thruster  produced  very  useful  re¬ 
sults  which,  upon  further  examination,  provide  us  with 
a  route  towards  practical  detonation  engines  of  variable 
thrust  levels  that  are  both  controllable  and  scalable.  A 
generic  PDE  device  based  on  the  NPS  experiments  was 
conceptualized  and  served  as  the  basic  model  for  a  com¬ 
prehensive  series  of  numerical  simulations.  The  goal  of 
the  simulations  was  to  understand  the  parametric  depen¬ 
dence  of  the  PDE  device  variables  on  propulsion  perfor¬ 
mance  such  as  thrust  and  detonation  cycle  frequency. 

The  principle  conclusions  drawn  from  the  simula¬ 
tion  results  are  as  follows.  First,  the  target  thrust  and 
cycle  frequency  of  60-90  pounds  and  140  Hz,  respec¬ 
tively,  have  been  realized  in  the  simulations.  These  tar¬ 
get  values  were  dictated  by  knowledge  of  present  day 
requirements  for  planned  aerodynamic  vehicles  such  as 
PENAID  devices.  Before  proceeding,  it  is  appropriate  to 
mention  again  that  the  performance  of  the  PDE  device 
is  governed  entirely  by  unsteady  flow  processes.  .Node 
of  the  wave  averaging  effects  which  had  been  predicted 


by  previous  studies  were  found  and,  it  was  shown  dra¬ 
matically  that  the  internal  (detonation,  expansion,  refill 
and  mixing)  flow  processes  are  directly  coupled  to  the 
external  (shock  formation,  stagnation  point  formation, 
vortex  shedding,  etc.)  flow  processes.  These  two  flows 
must  be  simultaneously  analyzed  if  a  reliable  estimate 
of  performance  is  to  be  determined.  The  present  study 
is  the  first  fully  unsteady  computational  analysis  of  an 
intermittent  detonation  scheme  with  realistic  geometry 
and  external  flow  computed  self-consistently. 

The  simulations  further  shov/ed  that  the  best  thrust 
performance  was  realized  when  the  full  kinetic  energy  of 
the  detonation  wave  was  captured  on  the  thrust  surface 
(the  closed  end  wall  of  the  detonation  chamber).  This  in¬ 
dicates  that  the  detonation  initiation  must  be  controlled; 
the  ignition  must  take  place  in  the  vicinity  of  the  e.xit 
plane  of  the  chamber  resulting  in  initial  propagation  of 
the  wave  towards  the  chamber  wail.  The  magnitude  of 
the  total  and  time  averaged  thrust  is  a  strong  function  of 
the  strength  of  the  wave,  the  cross-sectional  area  of  the 
end  wall  normal  to  the  wave  direction,  and  a  weak  func¬ 
tion  of  the  specific  geometrical  details  of  such  variables 
as  valve  or  inlet  shape.  The  simulations  also  showed  that 
for  most  situations  involving  simple  inlets  (flat  cylindri- 
cally  symmetric  openings  in  the  chamber  external  wall) 
the  thrust  data  was  independent  of  whether  the  valve 
intermittently  opens  or  remains  open  during  the  full  cy¬ 
cle.  This  leads  to  the  possibility  of  a  permanently  open 
valve  and  a  no  moving  parts  manifestation  of  a  PDE 
device.  The  thrust  data  indicates  a  dependence  on  the 
external  flight  conditions,  e.g.  Mach  number.  The  Mach 
number  plays  a  role  in  the  wave  drag  that  the  geometry 
of  the  PDE  will  incur;  the  details  of  the  valve  and  inlet 
configurations  figure  prominently  in  the  total  wave  drag. 

On  the  other  hand  the  simulations  showed  that  the 
timing  of  the  fresh  air  refilling  required  to  recharge  the 
chamber  for  subsequent  detonations  is  a  strong  function 
of  the  details  of  the  valve  and  inlet  geometry,  the  ex¬ 
pansion  of  the  combustion  products,  the  resulting  over¬ 
expansion  of  the  chamber  flow  and,  the  external  flow 
regime  and  interaction  of  the  externtd  flow  with  the  in¬ 
ternal  flow.  For  subsonic  flight,  Mach  0.2-0.9,  the  fresh 
air  entering  the  chamber  comes  from  two  separate  prin¬ 
cipal  flow  processes;  one  comes  from  the  flow  through 
any  valve  or  inlet  and  the  other  comes  from  the  self- 
aspiration  or  reverse  flow  from  the  aft  end  of  the  cham¬ 
ber  due  to  strong  over-expansion.  All  these  processes 
are  interdependent,  as  reported  in  Section  3,  and,  in  or¬ 
der  to  search  for  a  given  performance  in  a  given  device 
requires  variation  of  many  parameters.  The  simulation 
results  obtained  to  date  provide  an  understanding  of  the 
effects  caused  by  variation  of  the  above  mentioned  pa¬ 
rameters,  and  with  the  information  available  we  are  able 
to  conclude  that  a  PDE  propulsion  unit  can  be  optimized 


(although  no  optimization  studies  were  carried  out;  for 
a  given  flight  regime.  In  order  to  find  an  optimum  con¬ 
figuration  satisfying  given  performance  over  a  wide  fligiii 
regime  a  more  extensive  simulation  study  will  be  re¬ 
quired.  It  was  mentioned  earlier  that  the  simulations 
presented  here  were  carried  out  under  the  assumption  of 
inviscid  flow;  bound2U’y  layer  effects  were  not  included. 
The  addition  of  boundary  layers  to  the  PDE  engine  inlets 
and  valves,  the  only  components  where  boundary  layers 
will  be  signiflcant,  will  lead  to  increased  performance. 
Roughly  the  seune  amount  of  fresh  air  will  flow  into  the 
over  expanded  detonation  chamber  but  at  a  somewhat 
slower  rate  and  in  a  pattern  that  will  promote  enhanced 
circulation  and  hence  fuel/air  mixing.  We  return  to  llie 
issue  of  optimization  below 

We  give  now  results  from  sample  performance  calcu¬ 
lations  of  the  application  of  the  PDE  device  to  proposed 
aerodynamic  vehicles  such  as  a  PEN  AID  missile  based  on 
the  results  from  our  simulations.  These  predictions  are 
based  on  point  design  data  for  an  inlet  geometry  which 
has  not  been  optimized.  We  believe  that  increased  per¬ 
formance  can  be  found  through  a  systematic  optimiza¬ 
tion  of  the  PDE  device  characteristics.  First  we  consider 
the  Mach  0.8  case  and  the  inlet  described  in  Case  2. 

The  maximum  operation  frequency  for  the  device  is 
400  Hz.  The  following  performance  is  a  consequence  of 


the  simulation  data: 

For  a  frequency  of  100  Hz.: 

Thrust . 79  lb. 

F\tei  flow  rate . 0.025  Ib./sec. 

Fuel  weight  for  12  min . 18  lb. 

Oxygen  weight . 1.8  lb. 

Fuel  for  detonation  tube . 0.6  lb. 

Total  oxygen  and  fuel  weight . 20.4  !b 

Total  engine  weight . 30.2  lb. 

Specific  fuel  consumption . 1.14  lb./(lb.*hr.) 


Assuming  the  PDE  device  geometry  is  kept  fi.xed. 
a  higher  detonation  frequency  will  result  in  a  linear  in¬ 
crease  in  thrust  and  fuel  flow  rate  at  the  same  specific 
fuel  consumption.  For  example,  if  the  detonation  fre¬ 
quency  is  increased  to  200  Hz.,  the  performance  data 


are: 

Thrust . 157  lb. 

Fuel  flow  rate . 0.05  Ib./sec. 

Fuel  weight  for  12  min . 36  lb 

Oxygen  weight . 3.6  lb. 

Fuel  for  detonation  tube . 1.2  lb. 

Total  oxygen  and  fuel  weight .  40  8  lb 

Total  engine  weight . 54.4  !b 

Specific  fuel  consumption . 114  lb./(lb.*hr.) 


At  lower  Ma^Ii  numbers.  M=0,5.  the  maximum  op¬ 
erating  frequencies  will  be  lower  since  the  e.xternal  dy¬ 
namic  pressure  responsible  for  supplying  fresh  air  to  the 
chamber  is  also  lower.  For  the  device  under  considera- 
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tion  here  the  maximum  frequency  is  250  Hz. 


For  a  frequency  of  100  Hz.; 

Thrust . 100  lb. 

Fuel  flow  rate .  0.025  lb. /sec. 

Fuel  weight  for  12  min . 18  lb. 

Oxygen  weight . 1.8  lb. 

Fuel  for  detonation  tube . 0.6  lb. 

Total  oxygen  and  fuel  weight . 20.4  lb. 

Total  engine  weight . 30.2  lb. 

Specific  fuel  consumption . 0.9  lb. /(lb. ’hr.) 

Again,  if  the  frequency  is  increased  the  thrust  will 
increase  linearly;  operation  at  200  Hz.  yields: 

Thrust . 200  lb. 

Fuel  flow  rate . 0.05  lb. /sec. 

Fuel  weight  for  12  min . 36  lb. 

Oxygen  weight . 3.6  lb. 

Fuel  for  detonation  tube . 1.2  lb. 

Total  oxygen  and  fuel  weight . 40.8  lb. 

Total  engine  weight . 54.2  lb. 

Specific  fuel  consumption . 0.9  lb./(lb.*hr.) 


The  examples  of  performance  of  PDE  devices  given 
above  are  based  on  point  design  conditions  arising  from 
the  simulations  discussed  in  Section  3  of  this  report. 
They  cannot  be  extrapolated  with  any  degree  of  reli¬ 
ability  to  other  conditions  or  configurations.  We  con¬ 
clude  however,  that  the  performance  computed  for  the 
Indicated  device  is  encouraging  from  the  point  of  view 
of  thrust,  thrust  control,  simplicity  of  the  device  (no 
moving  parts)  and  specific  fuel  consumption  (SFC).  The 
specific  fuel  consumption  computed  above  is  competi¬ 
tive  with  present  day  small  turbojet  engines.  The  SFC 
for  a  PDE  could  be  signficantiy  lower  than  for  small 
turbojets  (SFC’s  for  small  turbojets  are  in  the  range  of 
1.8-2.0  lb./(lb.*hr.)).  Thus,  for  a  given  mission  and  ve¬ 
hicle,  a  PDE  propulsion  unit  would  be  more  fuel  efficient 
resulting  in  increased  range.  Moreover,  if  the  expected 
thrust  control  in  PDE’s  is  realizable,  it  may  be  possible 
to  produce  propulsion  units  that  can  slow  down,  loiter 
and  maneuver  and  finally  accelerate  to  full  thrust  again 
rapidly. 

A  final  conclusion  can  be  made  concerning  the  ap¬ 
plication  of  PDE’s  to  supersonic  vehicles.  As  shown  in 
the  simulations  the  ability  to  refill  the  detonation  cham¬ 
ber  with  fresh  air  charge  is  a  very  strong  function  of 
valve  and  inlet  geometry.  Refilling  may  also  be  some¬ 
what  enhanced  by  the  self-aspiration  effect,  but;  to  a 
much  less  extent  than  in  the  subsonic  case.  The  exam¬ 
ple  of  supersonic  operation  discussed  in  Section  3  shows 
that  care  must  be  taken  in  design  of  the  inlet  or  valve 
configuration.  The  flow  in  the  chamber  must  allow  for 
refill  and  fuel/air  mixing.  More  than  likely  choked  flow 
conditions  will  be  required  at  the  inlet  entrance  to  the 
chamber.  This  could  lead  to  complications  in  the  design 


of  a  PDE  with  simple  geometry;  choked  flow  conditions 
are  a  function  of  the  external  Mach  number  and  a  fi-xed 
inlet  will  be  optimal  only  for  a  small  range  of  the  op¬ 
erating  envelope.  On  the  other  hand,  if  a  given  vehicle 
is  to  fly  at  supersonic  speeds  and  is  launched  at  super¬ 
sonic  speeds,  this  problem  may  not  appear.  Further,  if 
the  given  vehicle  is  launched  at  subsonic  speeds  and  a 
booster  is  used  to  bring  it  up  to  the  required  supersonic 
operating  speed,  the  problem  may  again  not  appear.  We 
conclude  that  the  PDE  has  potential  for  the  supersonic 
flight  regime  and  it  is  not  excluded  that  a  conflguraiion 
can  be  found  which  will  operate  over  the  flight  regimes 
0.2  <  Mach  number  <  3  in  a  fuel  efficient  manner. 

Finally  it  is  appropriate  to  speculate  that  the  PDE 
concept  is  a  candidiate  for  a  hybrid  propulsion  device. 
Consider  the  following  scenario.  At  low  altitudes,  up  to 
30-50  km,  and  at  speeds  ranging  from  low  supersonic  to 
hypersonic  (2  <  .Mach  number  <  iO)  an  air  breathing 
engine  can  operate.  Above  these  conditions  air  breath¬ 
ing  is  not  effective  and  rocket  propulsion  is  required  ,4 
PDE  can  operate  in  an  air  breathing  mode  as  long  as  the 
external  conditions  allow  it,  and  when  no  longer  possi¬ 
ble,  the  detonation  chamber  may  be  considered  a  rocket 
chamber  in  which  detonation  occurs  with  the  fuel  and 
oxygen  supplied  from  on-board  storage.  Similar  consid¬ 
erations  have  been  made  for  NASP  propulsion;  serious 
penalties  are  made  in  that  large  quantities  of  fuel  must 
be  carried.  However,  for  vehicles  such  as  the  current  Pe¬ 
gasus,  a  PDE  propulsion  device  may  be  attractive  from 
the  point  of  view  of  thrust  control  over  a  large  portion 
of  the  flight  envelope. 
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Figure  3  Pressure  contours  and  marker  particle  paths  for  Case  1,  M  =  O  S,  no  inlet, 
inward  initial  detonation  location. 
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ABSTRACT 


W«  desaibe  a  new  technique  for  solving  Euler's  equanons  on  an  unstmctured  triangular  grid  with  artatrary 
connectivity.  The  fiatmuladon  is  based  on  Godunov  methods  and  is  second  order  awurate.  The  use  of  a  unique  data 
strocture  lewis  to  an  easily  vectorized  and  parallelized  code  with  speed  and  memoiy  requinanena  comparable  to  those 
found  with  logically  stnioured  grids.  The  new  algoridun  has  bean  tested  for  a  wi^  range  of  flow  condiuons  ranging 
from  low  speed  subsonic  flow  to  hypersonic  flow  with  Mach  number  32.  The  results  obtained  are  comparable  to  or 
better  than  those  obtained  with  leading  flow  solvere  in  all  of  the  regimea  tested.  The  code  contains  no  free 
panmetca  md  can  be  used  in  complex  flow  proUeras  where  a  variety  of  flow  eondidons  may  be  encountered. 


INTRODUCTION 

Hus  paper  innodatces  a  new  second  order  aigcrithm  fa* 
solving  the  Euler  etmatiaiis  on  an  unanicoired  grui,  using  an 
appro^  based  on  and  seccxid  (uder  Godiuiov  metbods. 
Ine  formulation  presented  here  leads  to  an  extremely 
efficient  and  £asi  Flow  Solver  wh^  is  fiilly  and 

easily  lends  itself  to  parsilelizatiaa.  The  low  nmmory 
requizements  and  speed  of  the  mediod  ate  due  to  the  use  of  a 
unique  data  strocmre. 

Explicit  hydradynamic  numerical  algorithms  are  easily 
ad^ited  to  Massively  Panllei  Computers  (MFC)  for 
logicaUy  stracuiied  grids.  This  is  a  cooseqiieiice  of  the  £aa 
that  the  calculation  of  the  flow  quanoties  are  locally 
determined.  For  logicaUy  structured  quadrilateral  grids,  the 
integration  algorithm  or  How  Solver  computes  the  new 
flow  values  at  the  grid  ceU  nodes  (or  centers)  using  the 
values  of  the  flow  parameten  from  the  previous  dmestq) 
employing  four  or  more  of  the  adjacent  nodes.  Higherorder 
structured  solvers  are  osoaUy  more  computatioiially 
intensive,  Imt  retain  the  ability  of  the  solver  algorithm  to  te 
separated  into  several  distinct  stqs,  each  of  which  can  easily 
be  vectorized  and  pamildard. 

Uadi  recently,  most  CFD  simuladoos  were  carried  out 
with  logicaUy  strucmied  pids  and  consequendy  vectorizatioa 
and/or  parailelizadon  did  not  present  a  problem.  The 
increased  need  for  simulation  of  flow  phenomena  in  the 
vicinity  of  complex  geometrical  bodies  and  surfaces  has  led 
to  the  emergence  of  CFD  codes  based  on  logically 
unstructured  grids.  The  most  successful  of  these 
unstzuctuied  grid  codes  are  based  on  fmite  elements  (1-6}  or 
finite  volume  [7-12]  methods. 

Unstroctured  grid  CFD  computadons  in  two-dimensiems 
usuaUy  decompose  the  simulation  domain  into  triangular 
elements.  The  physical  location  of  the  triangular  elements 
and  the  accomimying  list  of  vertices  and  edges  is  random 
with  respect  to  the  element  index,  making  it  necessary  to 
maintain  an  indirect  addressing  system  containing  the 
conneedvity  information. 


Calculations  performed  on  unstructured  grids  evolve 
around  the  elemental  grid  shape  (e.g.  the  tiiai^  for  two- 
dimen.rinnal  problems):  there  is  no  obvious  psttem  to  the 
Older  in  which  the  lodd  integtadoos  should  be  perfdnned. 
Explicit  integnuion  of  hyttatxiyn^ic  problems  on  an 
unsttuenared  grid  requires  that  a  logical  substructure  be 
created  ideadning  the  locadaiis  in  the  global  arrays  of  aU  the 
local  quanddes  necessary  for  the  integrarion  of  one  element,. 
As  a  resnlt,  there  is  usnally  a  rigt^cant  cost  in 
compatadoiial  effimency,  mem^  requirem^  and  code 
complexity*.  Approaches  to  vectorizadoo  for  the 
coBvendOMl  unstructuied  grid  methods  have  concennated  on 
teanangemeat  of  the  data  soractnre  in  a  manner  soch  that 
these  locally  centered  data  strncnires  appear  as  global  arrays. 
This  can  be  done  to  some  extent  usiag  machine  dependent 
Gather-Scatter  opetadons.  Addidtmal  opdmiza^  can  be 
achieved  using  localization  and  search  algorithms  [13]. 
However,  these  methods  are  complex  and  result  in  marginal 
petfonnance.  To  date,  most  optimized  unstructured 
have  tun  considerably  slower  and  require  an  order  of 
magninide  more  memory  per  grid  cell  ifam  their  semetnred 
counterparts.  Parallelization  of  the  conveadonal 
unstructured  codes  is  even  mom  difficult,  and  there  is  very 
little  experience  with  unstructured  codes  on  Massively 
Paallel  Computers. 

Ihe  method  we  describe  in  this  paper  overcomes  these 
difficulties  and  results  in  code  with  speed  and  memo^ 
reqniremems  comparable  to  tluse  found  in  strnctured  grid 
codes.  Moreover,  the  ability  to  construct  grids  with 
arbitrary  roolution  leads  to  a  flexibiUty  in  dmding  with 
complex  geometries  which  is  not  attainable  with  structured 
Dids.  The  essence  of  the  method  is  based  on  independent 
flux  calculation  across  the  edges  of  a  dual  baricentric  grid, 
followed  by  node  integratioa  This  approach  allows  the  flux 
and  integi^on  calculations  to  be  performed  on  global 
arrays,  coded  as  large  vector  loops,  and  is  independent  of 
elesBeat  positioa  on  the  unstructured  grid. 

In  this  paper  we  discuss  mir  choice  for  data  structure, 
the  numerical  algorithm  (for  first  and  second  order  soivem), 
and  the  results  of  test  calculations.  In  realistic  CFD 
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problems  tbe  physical  Hnnnun  may  contain  regions  that  span 
ail  flow  regimes.  It  is  very  important  that  the  numerical 
code  be  able  to  perfmm  well  over  the  full  range  of  flow 
parameters  with  no  a  priori  code  'refinement.''  This  is 
especially  tnw  of  complex  problems  where  flow  conditions 
cannot  be  easily  assessed  in  all  subdomains.  A  robust  code 
has  clear  advantages  if  it  is  possible  to  apply  it  with 
confidence  under  such  drcumstances.  We  have  chosen  four 
test  problems  to  benchmark  and  validate  the  FUCGS  code. 
These  include:  i)  a  subsonic  flow  case  for  steady  flow  with 
M  «  0.2;  ii)  supersonic  steady  flow  with  M  »  2.0:  ui) 
hypersonic  stea;^  flow  with  M  ■  32.0;  and  tv)  transit 
supexsontc  flow  in  a  shock  tube  and  over  a  wedge.  For  all 
of  the  test  cases  the  method  developed  resulted  in  accurate 
solutions  com{»table  to  or  better  than  reported  in  the 
literature  by  other  lading  CFD  researchers.  At  the  same 
time,  the  combination  of  using  unstructured  methods  and 
our  specific  implementation  yielded  the  lowest  utilization  of 
computer  time  and  memory  needed  to  achieve  a  given  level 
of  accuracy. 


DATA  STRUCTURE 

On  an  unstructured  grid,  the  data  that  describes  the 
connectivity  of  a  grid  and  the  associated  geometrical 
coeffidems  can  represent  a  considetabie  overhead  on  memory 
usage.  We  have  implemented  a  rather  simple  data  stracnne 
wtai^  permits  egicient  finite  difference  integradon  of  fluid 
quantities  with  only  one  level  of  inditecdon.  For  two 
(limensirms,  the  daa  consisM  of  lists  of  vertices,  edges,  and 
eriaagles.  The  physical  quantities  are  saved  at  vertex 
locanona.  The  vertex  list  consists  of:  the  venex  positions 
(x,y),  die  fluid  variables,  the  vestex  volume,  and  workspace. 
The  edge  data  is  composed  of:  tbe  aridiesses  of  tbe  two 
vertices  which  fotm  an  edge,  a  vector  which  indicates  the 
nonnai  to  the  face  that  crosses  an  edge,  the  face  area,  and 
storage  for  the  fluxes.  Tbe  face  is  formed  by  joining  the 
btricenters  of  the  adjoining  triangles  which  lie  along  the 
edge.  This  is  the  only  dau  required  in  performing  an 
iteration  step.  For  convenience  and  ease  of  diagnostics,  we 
have  also  maintained  a  list  of  triangles,  including  the 
posidoos  of  tbe  barioeniets,  and  the  addresses  of  both  the 
venices  and  edga  which  film  a  ttiangie. 

The  datvsomcture  is  compadble  with  algorithms  which 
decompose  the  solndoa  of  the  Euler  equations  into  two 
step^  The  first  is  detetminadoa  of  the  fluxes.  This  can  be 
reamed  by  a  loop  over  edges  where  the  fluid  quanddes  along 
the  edge  can  be  fetched  through  the  indirect  addressing  of 
venexdaoL  The  second  srep  is  to  integrate  the  fluxes  which 
connibntB  to  the  vertex.  Taeie  are  two  opdoBS  here:  one  is 
to  maintain  a  list  of  flux  elements  at  venex  and  to 
perform  a  loqp  over  vertices  and  then  fluxes  to  each  vertex; 
the  other  is  to  again  have  a  loop  over  edges  where  each 
cootribudoo  to  the  vertex  is  done  as  a  random  fetch  and  store 
using  the  appropriate  vertex  addresses  stored  by  each  edge. 


BASIC  UTTEGRATION  ALGORITHM 

We  begin  by  describing  die  flm  order  Godunov  nwthod 
for  a  system  of  twcHlimensional  Euler  equations  written  in 
conservation  law  form  as 
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3t  3x 


3G 

3y 


0. 


pu 

.  F  » 

^  P“  ^ 

pu^  +  p 

-4 

*  G  “ 

f  P  "X 

pvu 

pv 

puv 

Ue  +  p)aj 

pV'^  -f  p 

L(«  +  p)v; 

(1) 


Here  u  and  v  are  the  x  and  y  velocity  vector 
components,  p  is  the  pressure,  p  is  the  density  and  e  is  the 
toodl  energy  of  tbe  flu^  per  unit  volume.  It  is  assumed  that 
a  mixed  (initial  conditions,  bound^  conditums)  problem  is 
properly  posed  for  the  set  of  equations  (1),  and  that  an  inidai 
dis^butitm  of  the  fluid  pmameters  is  given  at  t  s  0.  and  tbe 
boundary  <v«nriirinn«  defining  a  unique  solution  are  specified 
for  the  compntaiinnal  domain. 


We  seek  a  solution  of  the  ^stem  of  equations 
represented  by  Eq.  (1)  on  a  ctvnpucmonal  dtvnain  which  is 
decomposed  inn  triangles  with  aibitr^  connecdvicy.  An 
overwhelming  advantage  of  using  this  method  of  domain 
decomposidon  is  the  ability  to  resolve  extremely 
giHMimmea  where  the  charactezisdc  dfanensums 
of  subdomain  features  can  vary  over  many  orders  of 

magnitmte. 


As  an  example,  Bgure  I  shows  an  anstractured 
wt^ngniar  grid  used  in  the  simuladon  of  flow  for  a  new 
geneiadon  of  the  wide  body  tennis  rackets  with  21  cross  • 
string  rows  represented  as  solid  circles  and  a  tennis  balL  In 
Figure  la  a  blowup  of  the  n^n  near  the  radtet  surface  is 
shown.  This  example  iUnsttates  the  ability  of  the 
unstmetnred  grids  to  represent  geometry  of  arbitrary 
complexity  and  with  IncaHwid  resolution. 


Hiere  are  several  qxioas  possible  for  staring  pfaysicai 
infotmadoo  on  an  unstructured  triangular  grid:  i)  vertex  # 
fjjuaw-tt;  and  ii)  triangle  centered  on  cither  a  bartceneric  or 
Voranoi  node.  The  selecdoo  of  a  specific  grid  structure 
t^fers  two  conirasting  approaches.  The  firs  is  to  place  the 
effint  on  creating  an  optimal  grid,  as  is  tbe  case  with 
Varoooi  •  Deianney  meshes,  whue  tbe  second  is  n  rely  on 
the  robustness  of  the  integradon  algoridim.  For  complex 
configurations  it  is  more  difficult  to  achieve  mi  optimum  a 
Voionoi'Delauney  mesh  and  we  have  therefore  opc^  for  a 
sinqife  baiicenaic  grid. 

This  grid  can  always  be  coostnicted  for  a  set  of  arbitrary 
triangles.  Tbe  integradon  algorithm  we  have  constructed 
can  eaaly  be  implemented  for  both  vertex  and  baiiceniered 
coiuroi  volumes.  Bgure  2  displays  a  firagir.'*nt  of  such  a 
computational  domain  with  the  cenesponai.-:.:  duid  grid.  ^ 
The  secondary  or  dual  grid  is  formed  by  cc-.'iecdns  the 
baricenters  of  the  primary  mesh,  thus  forr:uig  finite 
polygons  around  the  primary  vertices.  Indeper  iem  of  the 
remarks  made  in  Ref.  17  concerning  usefulness  ct  Dirichlet 
tesselladon.  we  have  confirmed  that  the  best  pracdcai 
representation  of  the  integradon  volume  is  obtained  when 
the  dual  grid  is  formed  by  connecting  baricenters  of  the  ^ 
triangles.  * 
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^  ^  X  V-  ^ 


Figure  1  An  illusoaiion  of  the  ability  of  a  triangular  grid  to 
efBcieotly  resolve  the  geometric  convexity  and  features  of 
objects  with  dispane  spuial  scales. 


Z-1 


Hgure  2  A  triangular  grid  and  the  baricentered  dual  grid 
which  defines  the  control  volume.  The  fluxes  are  found  on 


Figure  la  Detail  showing  the  features  of  a  wide  body 
tennis  racket  simulation  including  22  strings  and  a  tennis 
balL 

In  keeping  with  the  pluiosophy  that  the  overall  scheme 
should  be  able  to  perfbim  in  ail  flow  reginies  with  no  {uior 
tuning  of  'free*  parameien,  we  have  chosen  Godunov 
meth^  for  performing  the  numerical  integration  of  the 
Euler  equadoos  in  the  conttol  volume.  These  schemes  are 
self  consistem  and  do  not  contaia  any  adjustable  knobs.  The 
supernr  penfmmBiee  of  Godunov  type  schemes  for  to^cally 
sttucnaedgr^  is  well  documenad  and  the  advantages  can  be 
readily  realized  on  triangular  grids.  Integration  by  the 
Godunov  method  consists  of  two  basic  steps:  i) 
daenaimaaa  of  the  fluxes  on  the  faces  of  the  dual  gii^ 
which  defines  the  conttol  volume.  This  is  accomplished  by 
solving  a  set  of  one-dimensional  Riemann  problems  along 
triangle  edges;  and  11)  inteoation  of  the  system  of  partial 
differential  equations,  which  now  amounts  to  a  summation 
of  all  the  fluxes  for  the  vertex-centered  control  volume  at 
each  timestep. 


the&cesof  the  ccntrol  volume  on  each  edge  joining  adjacent 
vertex  points. 

To  define  the  fluxes  flowing  into  the  control  volume 
shown  in  Figure  2,  it  is  necessary  to  solve  the  Riemann 
problem  along  every  edge  of  the  ptmary  grid  and  transverse 
to  the  faces  of  the  dual  giid.  For  example,  to  define  the  flux 
throng  the  face  ah,  we  solve  the  Riemann  problem 
boween  vertices  A  and  B.  The  solutico  of  this  problem  is 
in  coordinates  local  to  the  fime  of  the  dual  ^  ah  so  that  the 
tangent  component  of  velocity  will  be  directed  along  ab. 
Implemeatation  of  our  approach  requires  maintaining  strict 
consisteiicy  when  defining  the  'left*  and  'right*  states  for 
(he  Riemann  problem  at  the  faces  ab,  be,  cd,  de,  ef,  and 
fa.  For  this  reason  we  define  not  only  the  location  of  the 
vertices  and  areas  of  the  faces  but  also  the  direction  of  the 
areas  with  respect  to  the  pmary  grid  edges.  Pot  the 
clockwise  inteoation  pattern  in  a  polygon,  vemx  A  will  be 
the  'left*  state  for  all  the  Riemann  pn^iems  related  to  this 
point  and  the  oeigfabora  will  represent  the  "right”  sides  of 

thft  Hiigilwagni. 

It  is  easy  m  see  that  the  flux  calcuiatioa  is  based  on 
information  at  only  two  nodes  and  requires  simple 
geometrical  parameters  defining  the  face  of  the  secondary 
jpid  which  dissects  the  line  connecting  the  two  points. 
Tlius,  we  can  find  all  the  values  needed  for  the  flux 
cakuladon  in  one  vector  hx>p  over  all  edges  of  the  prim^ 
grid  without  requiring  any  dmails  related  to  the  geometrical 
structures  which  these  t^es  form.  This  in  turn  assures 
parallelization  or  vectorirarinn  of  the  algmithm  for  the  bulk 
of  the  calculations  involving  the  Riemann  solver,  which 
provides  the  first  order  fluxes. 

The  only  procedure  not  obvknisiy  parallelizable  is  the 
iiuegraticn  of  the  fluxes  for  the  flow  variables  at  the  vertices 
of  the  grid. 

This  operation  requires  a  random  fetch  and  store  which 
can  lead  to  conflicts  that  impair  both  parallelization  and 
veciorization.  Several  common  methods  have  been 
develop^  to  deal  with  this  difficulty.  A  fnacticai  approach 
is  to  split  the  integration  of  the  fluxes  into  a  small  number 
of  independent  lot^  through  the  use  of  'edge*  coloring. 
The  number  of  loops  necessary  is  determined  by  the 
maximum  connectivity  of  any  vertex  in  the  domain  and  is 
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usually  1  at  Each  of  these  loops  is  usually  large  enough 
not  to  impair  vectorizatioa.  At  this  stage  all  the  fluxes  are 
added  with  their  collect  sign  corresponding  to  the  chosen 
direction  of  integration  within  the  celL  The  amount  of 
computation  required  here  is  minimal  since  the  fluxes  are 
blown  and  need  only  to  be  multiplied  at  time  step  by  a 
simpb  factor  and  added  to  d»  vertex  quantity.  This  simple 
procedure  results  in  a  first  order  solver  which  is  fiilly 
vectoraed. 


final  extrapolated  values  with  the  limitets  appUedi  and  v) 
integration  over  the  ctmtrol  volume. 

The  advantages  of  the  method  described  will  be 
demomnated  in  tbe  following  section.  The  inclusion  of  the 
characteristic  limiter  has  significantly  improved  the 
treatment  of  contact  discontinuides  and  is  the  first  such 
implementation  on  a  triangular  mesh. 


SECOND  ORDER  INEGRATION  ALGORITHM 

The  second  order  solver  is  constructed  along  lines 
stmilv  to  that  of  the  first-order  method.  At  each  cell 
the  Riemann  problem  is  solved  for  the  appropriate  pair  of 
left  and  right  conditions.  The  solution  to  the  Riemann 
problem  is  then  used  in  calculation  of  fluxes,  which  are  to 
be  integrated  later  to  advance  to  the  next  integration  step. 
The  extension  to  second  order  is  achieved  by  using 
'xtrapoiation  in  space  and  time  to  obtain  dme'Ceniered  leu 
and  right  limiting  values  as  inpuu  for  the  Riemann 
problem.  The  basic  implementatiott  of  tbe  method  for 
finding  the  second  order  accurate  fluxes  is  tbe  same  as  for  the 
one  dimenstonal  case  and  can  be  found  in  Refs.  14  and  16. 
The  difference  is  the  method  of  obtaining  linear 
extrapolations  for  the  flow  variables  as  a  first  guess  of 
value  on  the  faces  of  the  dual  grid.  To  obisw  the  mitipi 
guess  we  need  to  blow  the  gtadieiu  of  each  gasdynamical 
wiameter  U  at  the  veiticea  of  the  primaiy  mesh.  The  value 
V  U  can  be  evaluated  by  using  the  linear  path  integral 
around  the  finite  volume  a.Mnriatgd  with  the  venex  For 
vertex  A  in  Figure  2: 
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where  uuegtatioa  along  the  path  1  in  this  case  is  equivalent 
to  integration  along  the  lines  ab,  be,  cd,  d«,  ef.  fa,  and 
where  n  is  a  unit  vector  pointing  outward  from  the  control 
volume  centered  at  A  and  nonnal  to  tbe  iniegtatiaa  L 
Knowing  the  gradient  of  the  gasdynamic  panuneter  in  the 
voinme  related  to  vertex  A  allows  us  to  extrapolate  the 
values  of  this  parameter  at  any  location  within  the  volume. 
Tbis  permits  us  to  evaluate  tbe  first  guess  for  U  at  the  fdges 
of  the  dual  grid.  Tbe  rest  of  tbe  implmnentation  of  the 
second  otdm  bgoriifam  is  the  same  as  described  in  Refs.  8 
and  9.  This  includes  monoumimty  constraints  siiniiar  to 
chose  introduced  by  VanLeer  (15]  and  characteristic 
ccuumaints  described  in  Refx  14  and  16. 

A  schmnatic  of  the  basic  steps  for  the  second  order 
algorithm  is  shown  in  Fgm  3.  This  consists  of  five  steps. 
They  are;  i)  the  calculation  of  the  linearly  extrapolated 
values  at  each  side  of  the  courol  volume  iwing  the  left 
and  right  adjaceu  votuies  and  the  values  for  each  quantity 
and  its  gia^enc  ii)  Umitiag  the  quantities  obtained  on 
a  nonotonicity  consnaim;  iii)  a  further  limiter  based  on  the 
solution  of  a  one  dimenstonal  characteristic  equation,  which 
assures  dm  the  extrapolation  does  not  violate  the 
characteristics;  iv)  solution  of  the  Riemann  problem  for  die 


Figure  3  Schematic  for  stepwise  implementation  of  the 
secondorder  Godunov  method  on  an  annrucnired  grid. 

RESULTS  FOR  TEST  PROBLEMS 

We  have  picked  a  set  of  test  problems  to  demonstrate 
the  performance  of  the  FUCGS  code  for  unsteady  shock 
wave  problems,  and  for  subsonic,  supersonic  and  hypersonic 
steady  state  flows.  The  cases  in  the  chosen  examples  have 
analytical  solutions  that  can  be  used  to  quantify  the  accuracy 
of  the  code  and  to  validate  the  performance.  This  set  of 
problems  is  frequently  wred  by  other  CFD  researchers  and 
ronns  a  basis  for  comparing  FVCCS  with  other  techniques. 


a.  Unsteady  Shock  Problem 

As  a  first  test  we  have  chosen  a  case  of  planar  shock 
wave  propagation  in  a  channeL 

A  section  of  the  grid  used  for  this  test  problem  is 
shown  in  Figure  4.  The  total  grid  contained  ■'  2000  vertices  # 

with  a  resolution  of  100  points  in  the  direction  of 
propagation.  We  simulated  a  simple  shock  tube  problem  on 
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this  giid  where  the  gasdynamic  parameters  to  the  left  and 
light  of  the  diaphragm  have  the  following  values: 


Pi  ■  1.0;  PI »  1.0;  Ui  =  0; 

Vl«0;  71  •  1.4; 

Pr  -  0.1;  pr- 0.125;  Ur -0; 
Vf  ■  0;  ifr  »  1.4. 


Figure  4  Sectiaa  of  grid  from  the  unsteady  shock  problem. 


This  one  dimensional  problem  was  simulated  on  a  rather  ill 
formed  grid  (from  the  viewpoint  of  connectivity). 
H  Consequently  the  quality  of  the  soliuiaa  depended  on  the 

flow  solver  for  acmiracy.  For  the  triangular  shape  of  the 
elementary  ceil,  planar  shock  and  ratefrKdoa  waves  generated 
by  the  solodon  always  propagate  at  conflicting  angles  with 
respea  to  four  out  of  the  six  edges  of  the  cannot  volume. 
The  triangnis  grid  chosen  for  this  simple  test  problem 
therefore  indicates  the  accnr^  of  FUGGS  for  shock  waves 
-  of  arbitx^  shape  and  orientation  moving  through  the 

V  compotatioaai  domain.  The  density  disnibulion  found  from 

three  different  versiaas  of  FUGGS  is  shown  in  Figure  5  as  a 
functioa  of  x  along  the  median  cross  secdoo  of  the  grid. 
The  three  cases  are:  0  first  Older  Godunov  method:  if)  seoand 
order  Godunov;  and  iii)  second  cader  Godunov  with  the 
characteristic  limiter.  The  data  displayed  in  the  finire 
represents  a  koss  of  tesolutioa  due  to  inte^ladou  of  the 
actual  grid  values  to  die  projected  midsecdwial  line.  It  is 
clear  rom  Figure  5  that  the  final  implementation  of 
FUGGS  with  characteristic  constiaina  yields  the  best  results 
for  contaa  discondnuides.  The  code  also  maintains  the  one 
dimensional  structure  for  the  shock  in  all  three  cases 
described  above.  The  accurate  represemadon  of  the  density 
is  also  typical  for  all  the  other  gasdynamic  parameters. 


ngure  5  Solution  to  the  density  disuibndon  of  shock 
problem  with  three  different  versions  of  FUGGS:  a)  First 
Order  Godunov,  b)  Second  Order  Godunov  without 
characteristics  and  c)  Second  Order  Godunov  with 


b.  Shock  oa  Wedge 

Here  we  demonstrate  the  porfannance  of  the  methods  for 
steady  supersonic  flow  *imnigfinn«.  An  analydeal  solution 
from  oblique  shock  svave  theory  exists  and  can  serve  as  an 
unambiguous  compmison  sviih  the  numerical  simuiarion. 

The  initial  g;nd  foT  the  shock  on  wedge  problem  is 
shown  in  Figure  6.  ITiis  giidding  results  in  -  500  vertices 
and  "  800  triangles.  The  wedge  angle  in  Figure  d  is  lO”. 
The  incoming  flow  enters  the  computadonal  domain  normal 
to  the  left  boundary  at  Macfa  number  M«2.  Figures  7a  and 
7b  show  ianmarii  tinwa  for  (he  Steady  flow  solution  from  the 
first  and  second  order  Godunov  solvers  on  the  original  grid. 
Comparing  these  tsvt>  soludons  sve  can  see  that  the  second 
order  sohitiow  suhstandally  improves  the  shock  resolution. 
Hdsvever,  it  is  obvious  that  the  grid  densi^  is  too  small  to 
adequately  resolve  the  oblique  shock  svave  in  both  ewes. 
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Rguie  7b  Second  order  Godonov  solution  for  the  grid 
shown  in  Hguie  6. 
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Figured  Coarse  grid  for  shock  on  wedge  problem. 
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Fignre  7a  First  order  Godunov  solution  for  the  coarse  grid 
shown  in  Figure  6. 


To  improve  the  accuracy  a  higher  grid  density  is  required 
in  the  region  of  discontinuity.  This  is  achieved  by 
subdividing  the  original  elements  of  the  grid  in  regions  of 
large  changes  in  flow  parameuss. 

A  vacM^  of  criteria  can  be  devised  to  iden^  regions 
which  require  mesh  refinement.  An  example  is  given  in 
Ref.  2  whm  a  preset  cooditioa  is  imposed  on  the  resolution 
firm  local  dexivatives  of  the  flow  parameters.  The 
impietnentaiioo  of  this  criteria  in  FUCGS  would  have  led  to 
a  significaat  loss  of  computational  efficiency  because  the 
smacilfijr  the  Laplacian  is  nonlocal  and  would  reqnae  more 
dan  one  level  of  indirectness.  Insusad  we  used  a  simple 
panmeter  variatioa  criteria  based  on  the  local  variation  in 
pressnie  or  density  to  selea  the  grid  regions  needing 
refinemenL  Hguie  8  shows  an  enhawed  grid  derived  fiom 
the  mesh  shown  in  Figure  6  by  two  levels  of  subdivision. 
The  number  of  tiianglM  in  this  case  increase  from  800  to 
1200.  Figure  9  shows  isooach  lines  of  the  soiutioa  using 
the  second  order  method  for  the  same  shock  on  wedge 
problem  as  in  Figures  7a  and  7b.  The  imprqyement  in 
shock  lesolutioa  is  dnmaiicaHy  noticeable.  This  ptobhun 
also  illustrates  the  ability  of  unsooctuted  grid  mmbods  to 
provide  local  resolution  for  important  flow  features,  without 
requiring  excessive  overhead  for  other  regioiu  of  the 
compuartoiial  donain. 
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of  an  arbitxaiy  shape.  For  this  reason  the  problem  posed  by 
Pulliam  is  a  good  indicator  of  the  ^curacy  and  amount  of 
artificial  dissipatum  innoduced  by  a  numerical  algtaithm. 
Moteover,  while  a  Euler  solver  is  not  meant  to  treat 
potential  flow,  a  general  purpose  solver  should  be  capable  of 
simulating  such  flow  coctdioans  if  they  occnr  in  a  portion  of 
a  given  problem  without  resorting  to  a  differem  algorithm. 
In  making  a  transitioa  to  full  Navier>Stdtes  treatment,  the 
use  of  a  Euler  solver  is  an  essential  step:  it  is  imponant  to 
have  confidence  that  the  adfidai  viscosity  introduced  does 
QOt  dmiinaiB  the 

For  the  case  under  considecatioii.  it  is  very  impottam  to 
imrii«tiiwri  in  dmail  the  potential  flow  solotton  over  an 
ellqrre.  Fortmiaieiy,  the  analytical  solution  is  available  and 
is  relativeiy  simple.  The  complex  potendai  for  the  flow 
over  a  cylindrical  ellipse  is  given  by  the  following  [20]: 


F(2)«-xM.Ja  +  b)e-‘‘* 


Figure  8  Improved  grid  for  the  shock  on  wed^  problem 
widi  two  levels  of  reflnement  based  on  5%  variation  in  local 
value. 


wbereZ  ■  x+iy  and  Mm  is  the  Mach  nnmber.  By  taking  the 
gradient  of  the  potential  we  can  find  the  velocity  flow  field 
explicitly; 
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Figure  9  Second  order  Godunov  soludoa  for  the  shock  on 
wedge  problem  using  a  grid  with  two  levels  of  refinement. 


c.  Subsoaic  Flow 

A  challenging  test  problem  to  assess  the  performance  of 
Euler  codes  for  subsonic  flow  has  been  suggested  by 
Pulliam  CI9I.  He  has  etanputatimaily  simulated  a  steady 
subsonic  flow  over  an  ellipre  with  major  to  minor  axis  ratio 
of  6:1.  TTie  numericai  solution  of  Euler  equations  reported 
for  this  case  at  Mm  *  0,2  with  angle  of  attack  a  « 
produced  a  lift  coefficient  of  3  1.545.  As  is  well  known 
from  O' Alembert's  Paradox,  inviscid  flow  at  low  Mach 
numbers  should  yield  Cl’"  0  and  have  zero  drag  for  a  profile 


X^cos^O+sin^O 


where  X  «  b/a  is  the  ratio  of  minor  to  major  axis.  9  is  the 
angle  in  polar  coordinates  from  the  center  of  the  ellipse,  and 
a  is  the  angle  of  attack. 

In  examining  this  equatioo,  we  find  that  the  maximum 
vilne  of  velocity  is  a  strong  functitm  of  X.  For  an  ellipse 
with  X  «  1/6.  the  maximum  value  V/U—  occurs  at  9  a  0  (S’ 
«  and  where  Vmax/U—  >  Tsiiia.  For  a  flat  plate  where 
X-^0  the  maxifflom  velocity  is  infinite.  The  angle  a 
defines  the  distance  between  the  stagnation  point  whm  the 
veiocicy  is  zero  (at  9  >  <0  and  ic-a)  and  the  point  where  the 
velocity  is  maximum  (at  9  a  0  and  x).  For  the  case  sdected 
by  Pulliam  the  distance  between  the  point  with  minimum 

maximum  velocity  is  0.19%  of  the  length  of  the 
najOTaxis. 

This  means  that  the  gradient  of  velocity  along  the  major 
axis  of  the  ellipse  in  the  vicinity  of  stagnation  points  is 
extremely  high.  With  >  1000  points  unifmmly  dikributed 
on  the  surface  of  the  ellipse,  only  one  grid  spacing  is 
available  to  resolve  both  the  stagnanon  point  and  the  point 
at  which  maximum  velocity  occurs.  Even  though  one 
would  nonnaily  construa  a  nonunifrnm  grid  in  the  vicinity 
of  the  stagn^on  point,  we  estimate  that  enormous 
compotationai  resources  would  be  required  to  resolve  the 
chancteristic  scale  length  for  this  p^lem.  Traditional 
metlmds  encounter  difficulties  in  this  situation  because 
spatial  splitting  leads  to  a  poor  estiinaie  of  the  grwliem  and 


the  low  connectivity  of  the  mesh  inooduces  spurious 
votticity. 

We  performed  two  simulations  for  the  conditions 
described  by  Pulliam.  The  number  of  nodes  used  on  the 
surface  of  the  ellipse  is  the  same  as  in  Ref.  [19].  The  grid  is 
shown  in  Figure  10  for  these  simulations  in  the  region 
immediately  proximme  to  the  ellipse.  This  grid  is  of  poor 
quality  and  highly  distorted;  contains  -  6000  vertices  and  ~ 
130  paints  on  the  surface  of  the  ellipse.  The  results  are 
shown  in  the  form  of  pressure  contours  in  Rguies  1 1  and  12 
for  the  first  order  and  second  order  solvers  tespecdvely.  In 
die  case  of  d^Jiist  mder  algorithm,  we  obtained  a  lift 
coefficient  of  Ct  *  0.29.  The  pressure  contours  for  this 
simulation  ate  not  smooth,  aoributabie  to  the  low  lev^of 
accuracy  of  the  solver.  The  same  situation  leaiited  in  Q  = 
0.232  when  comput^  with  the  second  order  solver,  and  as 
can  be  seen  in  Figure  12  the  pressure  contours  are 
cmtsidetably  smoother.  The  result  piesenied  by  Pulliam  was 
Cl  s  1.55,  almost  an  order  of  ina^ioide  higher  than 
achieved  with  FUCGS.  This  highlights  an  important 
quality  of  our  approach:  the  low  generation  of  artificiai 
viscosity.  In  comparison  the  lift  obtained  by  Pulliam  ts  as 
high  as  one  would  expea  from  thin  profile  theory  and  hence 
world  mask  real  viscosity  effects  if  they  were  added  to  the 
algorithm. 


Figure  11  First  Order  Euler  Solution  for  6:1  Ellipse. 

Pressure  contours,  a  *  5";  Mach  »  02;  6065  vertices;  Cl  =  # 

0381;  Cd  »  0.101. 


Figure  10  Section  of  the  grid  used  in  simulation  of 
subsonic  flow  over  an  ellipse  for  conditions  suggested  by 
Pulliam  [19]. 


Figure  12  Second  Order  Euler  Soludoi  for  6:1  Ellipse. 
Prenure  Conuxirs.  a  »  5*;  Mach  *  0.2;  6065  vertices;  Cl  « 
0252;  CD  ■  0.004. 


We  also  simulaied  flow  over  a  cylinder  at  M  *  02.  The  “ 
grid  for  this  case  is  shown  in  Figure  13.  We  examined  the 
numerically  pTtxiuced  lift  with  inflow  conditions  at  various 
angles  with  respect  to  the  x  -  axis  (0®,  5®  ,  20®,  45®).  The 
lift  coefficient  was  angle  independent  and  had  a  value  Cl  = 

0.76,  almost  20  times  smaller  than  re^ntted  by  Pulliam, 
whow  results  are  angle  sensitive.  With  the  first  order 
scheme  we  achieved  a  lift  coefficient  of  Cl  •  0.47  with  the  # 

drag  coefliciem  Cd  s  1.49.  For  the  second  otter  scheme, 
shown  in  figure  14,  the  drag  coefficieni  was  reduced  to  Cd 
«  0.19  but  the  lift  coefficient  increased  somewhat  to  the 
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value  cited  above.  We  also  investigated  the  effects  of  grid 
rednemeni  and  found  that  a  simpie  one  level  of  refinement 
(adding  ~  <t00  vertices)  led  to  a  modest  reducdon  in  Lift 
coefficient  of  about  20%.  To  reinfoice  a  point  made  earlier, 
all  of  the  results  were  achieved  with  no  "free"  parameters  to 
adjust.  These  parameter  are  presem  in  many  CFD  codes  in 
the  form  of  coefficient  for  ar^dal  viscosity  terms  present 
the  practidoner  with  a  practical  problem  of  how  they  should 
be  selected  for  difeent  flow  conditions. 


Figure  13  Grid  for  simulation  of  flow  over  a  cylinder  at 
varying  inflow  angles  with  respect  to  the  mesh. 


Figure  14  Second  Order  Euler  Soludon  for  a  circular 
cylinder  a  ■  45*;  Mach  *  0.2;  6311  verdces;  Cl  »  0.761; 
Cd»  0.196. 


d.  Hypersonic  Flow 

To  demonstrate  the  versatility  of  the  method  for  the 
entire  range  of  flow  regimes  we  have  simulated  a  hypersomc 
flow  test  problem.  Om  of  the  advantages  of  the  Godunov 
type  methods  is  that  for  the  whole  range  of  calcaladons 
p^ormed  (from  low  subsonic  flow,  supersonic  flow, 
unsteady  flow  with  strong  shock,  or  hypersonic  flow  at 
Mach  number  M>32)  it  is  unnecessary  to  change  or  adjust 
the  numericai  algtxidim.  In  ReL  21  pertorntance  of  5m  and 
second  ortler  Godunov  methods  has  been  analyzed  for 
hypersonic  flow  regimes.  There,  as  a  test  problem,  an 
analytical  soludon  was  used  for  a  hypersonic  flow  around  a 
flat  plate  of  finite  thickness.  This  soludon  was  obtained 
based  on  the  analogy  between  hypersonic  flow  over  a  flat 
plate  of  finite  thickn^  and  a  strong  planar  ej^losiooL  Here 
we  will  use  one  espressitm  from  ReL  21  whidi  defines  the 
shape  of  the  shock  wave  as  a  fiuicdon  of  plate  thickness  d.  y 
thtt  a/iiahnrir  cnriTicient,  and  ct  a  noodimensional  scale  facia 
related  to  the  energy  released  at  the  stagnation  poinc 


where  Df  is  acoefficiem  of  order  unity. 

while  ki  s«  0.36011,  k2  *  -1.2537,  and  k3  » 
-  0.1847. 

As  a  direct  comparison  we  solved  the  hypersonic  flow 
problem  for  the  same  set  of  conditions  as  in  Ref.  21: 

Uaa  a  1001 1  tnettrs/sec,  p  »  98.72  Pa, 
p  «  1.24xl0*^kg/m^  and  7=  1.2. 

The  grid  used  for  this  simuladon  is  shown  in  Figure 
15.  This  grid  has  o  5500  vertices  and  it's  spadal  resolution 
at  the  leading  edge  of  the  plate  is  of  the  same  order  as  that  of 
a  300  x  60  rectangular  grid  used  in  Ref.  12. 


Figure  15  Grid  for  simuladon  of  hypersonic  flow  over  a 
Oate  plate. 


In  Figure  16  results  for  Uus  simuladon  are  shown  in 
the  form  of  pressure  contours.  Figure  16  also  shows  the 
locadon  of  the  analydcally  calculated  shock  front  by  a 
discrete  line  (squares).  The  shock  tesoludon  and  accuracy  of 
its  locadon  are  comparable  to  that  obtained  in  Ref.  21,  even 
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though  our  oianguiar  giid  has  less  than  1/3  the  nodes  than 
the  iKianguiar  grid  used  in  Ref.  21.  This  is  due  to  the  fact 
that  in  constructing  the  oianguiar  grid  we  had  the  flexibility 
to  place  the  highest  concentration  of  nodes  in  the  area  of  the 
leading  edge  where  the  main  properties  of  the  flow  are 
established. 


Figure  16  Second  order  solution  for  a  flat  plate.  Pressure 
Contours.  Mach  »  32;  5509  grid  vertices;  Pm«  *  5.0x10^. 
Paua  =  98.7P,. 


CODES  COMPUTATIONAL  EFnCIENCY 

During  the  code  developnient  effort,  great  attention  was 
paid  to  the  code  data  structure,  its  efficiency  and 
extendability  to  three  dimenstonai  calculatkms.  In  fact,  the 
two  dunens,jnai  version  of  the  code  has  all  the 
structures  required  for  the  three  dimensional  simulations. 
That  fact  should  be  factored  in  comparing  our  storage 
overhead  figures  to  those  in  other  codes.  Also  while 
developing  FUGGS  we  made  a  decision  not  to  rely  on 
machine-dependent  functions,  in  order  to  assure  portability. 
This  feature  is  very  imponant  in  the  current  supacompudng 
environment  where  a  host  of  powerful  parallel 
supercomputers  and  super  workstations  with  diverse 
arehitectuie  are  available  and  useful  for  different  aspects  of 
design. 

The  following  pexfonnance  characteristics  have  been 
achieved  for  the  la^venaon  of  the  FUGGS  code: 

1.  First  Order  Godunov  version: 


Memory  Requirement 

36  places  per  triangle 
Includes  5  physical 
quantities  Integer 

Indenting  arrays  ail 
geometric  parameters 

CPU  Performance 
CRAYXMP-24 

STELLAR  1000 

15  usec/vertex/tlmestep 

79  tisec/vertex/Umestep 

1  Second  Order  Godunov  version: 


Mesoory  Requimxtent 

39  places  per  cnangie 

CPU  Perfonnance 
CRAyXMP-24 

45  oaec/vwtex/tlnicaiep 
Monotonlcity  step  5046 

Chanctemoc  itnater  1546 
Rhanann  Solver  3046 

Integraoan  546 

STEXLAR  lOOO 

214  paec/venes/tlnieatep 

These  numbers  are  ptovisionai  since  the  code  is  still 
under  developmenL  We  feel  that  further  traprovetmmts  in 
code  performance  will  be  achieved  with  respect  to  both 
tuning  and  storage  requirements. 


CONCLUSION  AND  DISCUSSION 

We  have  presented  a  method  for  the  numerical  solution 
of  Euler  equations  on  an  unstructured  trianguls’  gr^  The 
method  was  tested  for  a  wide  range  of  flow  coDditu»ia,&Dm 
low  subsonic  flow  and  unsteady  flow  with  strong  shock 
waves  to  hypersonic  flow  with  Mach  32.  For  ^  these 
regimes,  the  method  performed  extremely  well  both  in  letms 
of  solution  accuracy  and  computational  efficiency.  The 
method  is  very  robust  and  does  not  resort  to  adjustable 
computationai  par^eteia  for  the  tested  range  of  flow 
conditions.  11^  is  due  to  the  fact  that  the  nometical 
algorithm  in  FUGGS  is  based  on  Second  Order  Godunov 
sdhemes  adapted  to  triangolar  grids.  The  method  appears 
nanual  for  nnsnuenned  triangular  grids  because  the  gteaio: 
conaectivity  inomively  should  lead  to  greater  accuracy  in 
eliminating  etiots  introduced  by  splitting.  In  a  typical 
hexagonal  (or  greater)  coutiol  volume  the  comtibotion  of 
fluxes  is  available  hom  all  six  adjacent  diiecuons  as  opposed 
to  just  two  in  the  case  of  a  rectangular  grid.  Since  the 
FUGGS  method  has  been  implemented  on  unstrectored 
grids,  it  is  possible  to  simulate  flows  over  bodies  of 
atbinaty  geometry  where  the  pid  density  can  be  concentrated 
in  a  region  of  flow  discontinuity. 

Especially  interesting  is  the  code’s  superior  performance 
for  the  simulations  of  subsonic  flow.  For  the  test  cases 
here,  our  method  appears  m  perform  better  than 
the  leading  industry  codes  like  ARC2D  and  SYMTVD.  We 
think  that  the  two  main  reasons  for  the  better  perfonnance 
are  muliidirectionai  splitting  (to  distingitisb  from  two 
directional  splitting  typical  for  logically  stractared 
quadrilateral  grids)  and  finite  volume  inte^tioo.  more 
should  be  done  to  investigate  this  importaiu  aspect  of  the 
cade’s  perfonnance. 

Historically,  Euler  solvers  were  developed  to  simulate 
nonisoenoopic  flows  for  which  potendai  flow  assumptions 
are  incorrect.  From  the  criginai  development  of  numencai 
methods  for  the  solution  of  Euler’s  equadons,  great  effort 
has  been  devoted  to  resolving  shocks  and  contact 
discondnuides.  producing  in  dramadcally  improved  results 
for  shock  wave  hydrodynamics.  At  the  same  ume.  aoendon 
to  the  accurate  soiudon  of  the  velocity  gradients  has  been 
negiected.  Whilethesegiadientsaremcnedifficuittodiscem 
than  shock  waves,  they  are  mote  prevalent  in  pracdcal  flow 
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problenu  and  could  lead  to  very  significant  enors  in  such 
impmant  parameters  as  lift  and  drag  coefficients.  In 
•  addition,  all  voracity  and  viscosity  dominated  phenomena 

depend  on  accurate  solution  of  the  velocity  gradients.  In 
view  of  the  perfonned  numerical  simoiaiions  for  subsonic 
flow  over  the  ellipse  and  cylinder  it  is  clear  that  unless  these 
features  are  resolved,  the  numerical  solution  of  Euler 
Equations  can  introduce  spurious  voracity,  making  the 
results  from  a  fiul  Navier-Stokes  implementation 
A  impossible. 
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Introduction 

Depending  on  their  parameters,  the  encounter  between  a  planar  shock  wave  and 
a  wedge  can  produce  a  classic  case  of  the  Mach  Reflection.  The  Mach  Reflection  has  a 
characteristic  triple  point,  where  three  shocks  and  the  contact  discontinuity  coalesce.  In 
a  shock  tube  or  in  a  chcinnel,  a  developed  Mach  Reflection  can  reflect  further  from  the 
walls  opposite  the  wedge.  In  this  case,  the  Mach  shock  of  the  Mach  Reflection  will  start 
reflecting  when  its  triple  point  reaches  the  wall  opposite  the  wedge.  Upon  reflection  of 
this  shock  wave,  a  secondary  Mach  Reflection  can  form.  Although  the  primary  Mach 
Reflection  has  received  considerable  attention  in  scientific  literature  (Refs.  1,2,3),  the 
phenomenology  of  the  subsequent  reflections  was  gone  virtually  unnoticed.  In  our 
literature  review,  we  found  only  a  short  qualitative  description  of  the  phenomena  by 
Bazhenova  and  Gvozdeva  (Ref.  4).  This  omission  is  unfortunate,  since  it  is  a  very 
practical  case  for  propagation  of  the  shock  waves  in  channels  of  variable  cross  sections. 

The  direct  simulation  of  the  •various  cases  of  Mach  Reflection  has  only  become 
possible  in  the  last  decade.  This  problem  is  a  challenging  test  for  the  numerical  methods 
used  in  Computational  Fluid  Dynamics  (CFD).  An  impressive  demonstration  of  the 
capabilities  of  the  direct  numerical  simulations  of  Mach  Reflection  phenomena  is  given 
by  Glaz  et  al.  (Ref.  5).  They  demonstrate  that  all  the  important  phenomenology  of 
the  Mach  Reflection,  including  slip  line  vortex  and  Mach  shock  wave  bulging,  can  be 
simulated  directly.  This  was  achieved  by  using  the  Second  Order  Godunov  method, 
numerical  technique,  developed  in  80th,  which  is  extremely  robust  and  allows  very 
accurate  simulation  of  flow  discontinuities. 

The  Second  Order  Godunov  method  was  implemented  on  rectangular  grids  (Ref. 
6)  and  in  a  few  cases  on  general  quadrilateral  grids  (Ref.  7).  This  approach  has  limited 
application,  since  the  structured  quadrilaterM  grids  have  great  difflculty  describing  a 
complicated  computational  domain  with  multiple  bodies  of  different  geometries  tuid 
scales.  Recently,  we  have  implemented  the  Second  Order  Godunov  for  unstructured 
triangular  grids  (Ref.  8).  This  enables  us  to  combine  the  robust  and  accurate  numeri¬ 
cal  algorithm  with  a  griding  technique,  allowing  us  to  describe  very  complex  domains 
with  ease  and  efficiency.  In  addition,  we  have  developed  a  novel  Dynamic  Grid  Adap¬ 
tation  methodology  which  allocates  a  dense  computational  grid  only  to  regions  where 
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enhanced  resolution  is  needed  to  resolve  strong  gradients  in  flow  parameters.  As  demon¬ 
strated  in  our  paper,  this  enables  an  extremely  economical  allocation  of  computational 
resources  and  accurate  simulation  of  a  complicated  phenomena  like  Mach  Reflection. 

In  our  study,  we  numerically  simulate  the  formation  of  a  Double  Mach  Reflection  on 
a  sloped  wall  of  a  converging  channel,  with  subsequent  reflection  of  the  reflected  wave 
at  the  straight  wall  of  the  channel.  Presented  here  numerical  results  were  obtained 
with  the  new  numerical  technique  and  we  will  describe  in  detail  aU  the  important  new 
elements  which  we  have  introduced. 

The  Problem 

Figure  1  shows  a  converging  channel  with  a  sloped  wall  at  27“ .  The  figtire  illus¬ 
trates  our  assumption  that  a  Mach  8.7  shock  wave  travelling  normally  to  the  parallel 
walls  enters  the  channel  at  the  left  hand  side.  .According  to  analysis  presented  in 
Reference  9,  this  shock  will  have  a  Complex  Mach  Reflection  when  it  encounters  the 
converging  wall  of  the  channel.  At  some  stage  of  the  reflection  process,  the  triple  point 
will  reach  the  opposite  wtiU  of  the  channel.  Here  the  Mach  stem  shock  wave  will  become 
incident,  moving  at  an  angle  to  the  channel  wall,  as  illustrated  in  Figure  2.  The  shock 
and  wedge  parameters  chosen  in  our  problem  will  cause  formation  of  a  secondary  Mach 
reflection.  The  question  is:  What  form  will  this  secondary  reflection  take?  Bazhenova 
and  Gvozdeva  offer  a  very  general  description  of  the  anticipated  effect,  illustrated  in 
Figtire  3  (Ref.  4).  In  this  reference,  a  system  of  secondary  reflections  shows  the  incident 
and  Mach  shocks  are  interchanging  their  positions  with  every  new  reflection,  and  the 
strength  of  the  shock  waves  is  increasing.  It  is  not  cleau’  from  Reference  4  what  type 
of  Mach  Reflection  will  form,  or  how  the  secondary  reflected  wave,  which  expands  in 
already  perturbed  gas,  will  be  aiffected  by  the  interactions  with  the  strong  slip  surfaces 
located  behind  the  originad  Mach  shock. 

We  will  directly  simulate  formation  of  the  Mach  Reflection  at  the  channel  oblique 
wail,  as  well  as  all  secondary  reflections  which  will  occur  according  to  the  conditions 
outlined  above  for  the  channel  geometry  shown  in  Figure  1.  In  addition  we  will  consider 
cases  in  which  the  channel  shown  in  Figure  1  is  aixisymmetric  and  will  study  the  same 
problem  for  this  case.  The  motivation  is  further  study  of  the  phenomenology  of  shock 
wave  focusing  when  a  three-dimensionad  contraction  occurs. 

In  our  study  we  will  consider  an  ideal,  invisid  gas  which  can  lead  to  some  distortion 
of  our  results  compEired  with  experimentzd  data.  However,  we  believe  that  this  sim¬ 
plification  will  still  capture  the  main  phenomenology  of  wave  formation  and  reflection, 
and  will  be  of  general  value  to  the  Mach  Reflection  Theory. 


Numerical  Method 

In  Reference  S  we  introduced  a  new  numerical  algorithm:  FUGGS  (Fast  Unstruc¬ 
tured  Second  Order  Godunov  Solver),  for  solving  Euler’s  equations  of  gasdynamics 
on  unstructured  triangular  grids.  The  algorithm  formulated  and  tested  in  Reference 
8  is  vertex-based.  Here  we  will  describe  a  new  volume  based  version  of  the  FUGGS 
method.  The  new  version  of  the  edgorithm  as  illustrated  in  our  paper,  produces  con¬ 
siderably  more  accurate  solutions  and  it  is  more  efficient.  This  contradicts  published 
results  (Ref.  10,11)  on  implementation  of  the  triangle-based  TVD  schemes  for  un¬ 
structured  triangular  grids.  The  new  algorithm  has  been  validated  for  the  range  of 
subsonic,  supersonic  and  hypersonic  steady  state  and  transient  problems.  Here  we 
show  only  results  for  Mach  Reflection  in  planar  and  axisymmetric  channels.. 

The  new  triangle-based  version  of  the  FUGGS  algorithm  was  extended  to  allow 
dynamic  adaptive  grid  refinement  for  trzinsient  problems.  We  will  give  a  description  of 
the  dynamic  grid  adaptation  methodology  used  in  FUGGS  code. 

A  three  dimensional  version  of  the  FUGGS  cdgorithm  was  developed  in  an  ex¬ 
tremely  short  period  of  time.  This  was  made  possible  by  the  simple  structure  of 
the  basic  cdgorithm.  We  will  not  present  simulation  results  for  the  three  dimensional 
FUGGS,  however,  the  main  elements  of  the  FUGGS  algorithm  implementation  in  the 
three  dimensions  will  be  illustrated. 

Vertex-Based  and  Triangle- Based  Integration  Algorithms 

We  consider  a  system  of  Euler  equations  written  in  conservation  law  form  in  three 
dimensions  as: 


au  af  ag  an 
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Here  u,  v,  and  w  are  the  x,  y,  and  z  velocity  vector  components,  p  is  the  pressure,  p  is 
the  density  and  H  is  the  total  enthalpy  and  E  is  toted  energy  of  the  fluid.  It  is  assumed 
that  a  mixed  (initial  conditions,  boundary  conditions)  problem  is  properly  posed  for 
the  set  of  equations  (1),  that  an  initial  distribution  of  the  fluid  parameters  is  given 
at  t=0,  and  the  boundary  conditions  defining  a  unique  solution  are  specified  for  the 
computational  domain. 
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We  seek  a  solution  of  the  system  of  equations  (1)  on  the  computational  domain 
which  is  decomposed  into  tetrahedrons  (triangles  in  two  dimensions)  with  arbitrary 
connectivity.  An  overwhelming  advantage  of  this  method  of  domain  decomposition  is 
the  ability  to  resolve  extremely  complicated  geometries  and  flow  regimes  accurately 
and  efficiently.  This  has  been  demonstrated  in  numerous  publications  on  thi^  topic 
(;Ref.  12,  13,  14). 

There  are  several  options  possible  for  storing  natural  physical  parameters  of  the 
problem  on  an  unstructured  tetrahedral  or  triangular  grid.  In  particular,  we  have 
examined:  i)  vertex  centered:  and  ii)  tetrahedron  (or  triangle)  centered.  These  two 
approaches,  while  equivalent  from  the  point  of  view  of  the  formal  numerical  represen¬ 
tation  of  the  governing  equations,  lead  to  different  algorithms.  As  shown  below,  this 
will  have  important  consequences  not  only  on  data  structure  and  algorithm  efficiency, 
but  moreover  the  different  connectivity  will  affect  the  overall  accuracy  of  the  ntimericai 
solution. 

In  Figure  4,  a  fragment  of  the  two-dimensional  computational  domain  is  shown. 
Here,  together  with  the  original  triangular  grid  (solid  lines),  the  secondary  grid  (broken 
line)  is  shown.  This  secondary  grid  is  formed  by  connecting  the  barycenters  of  the 
primary  grid.  If  a  vertex  based  grid  is  used,  the  physical  peirameters  of  the  problem  are 
stored  at  vertices  A,  B,  C...,  and  the  integration  is  done  for  the  volumes  delineated  by 
the  polygons  of  the  secondary  grid.  For  instance,  integration  volume  associated  with 
vertex  A  is  defined  by  the  edges  ab,  be,  cd,  de,  ef,  fa.  For  a  triangle-based  grid  the 
physical  pcirameters  will  be  stored  at  the  nodes  of  the  secondary  grid,  and  integration 
volume  will  be  the  triangle  itself.  We  have  shown  (Ref.  15)  that  these  two  approaches 
lead  to  numerical  algorithms  with  different  connectivity,  accuracy  and  efiiciency.  The 
fundamental  algorithm  of  the  second  order  Godunov  method  implemented  in  FUGGS 
can  be  illustrated  in  two  dimensions  for  an  edge  of  the  grids  control  volume  shown  in 
Figure  5.  The  algorithmic  steps  of  the  second  order  Godunov  method  can  be  defined 
as  follows: 

1.  Find  the  value  of  the  gradient  at  the  vertex  point  (or  at  the  baricenter  of  the 
triangle  for  the  triangle- based  version)  for  the  gasdynamic  Parameter  U; 

2.  Using  the  gradient  values,  find  the  interpolated  values  of  U  at  the  edges  defimng 
the  control  volume  (sides  of  the  triangle  for  the  triEuigle-based  scheme) 

3.  Limit  these  interpolated  values  based  on  a  monotonicity  condition  (Ref.  16) 

4.  Subject  the  resulting  values  to  the  characteristic’s  constraints  (Ref.  6) 

5.  Solve  the  Rieraann  problem  for  the  corrected  values. 

This  last  step  completes  the  definition  of  the  fluxes  at  the  edges  of  the  control 
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volume.  The  flux  values  can  be  stored  at  the  edges  and  the  flux  calculation  loop  will  be 
arranged  for  the  list  of  edges,  which  is  the  largest  vector  in  the  system.  If  the  algorithm 
is  vertex-based  to  calculate  values,  we  will  integrate  the  fluxes  at  the  edges  of  the 
secondary  grid  which  define  the  control  volume  for  the  vertex.  For  the  triangle-based 
algorithm  ,  value  is  obtained  by  integrating  the  fluxes  at  the  sides  of  the  triangles. 

Implementation  of  tVi^  algorithm  in  three  dimensions  will  have  the  came  basic 
steps  in  flux  calculation  1-5.  To  illustrate  that  point,  Figure  6  shows  a  tetrahedral 
element  of  the  grid.  Here  the  fluxes  are  defined  on  the  faces  of  the  tetrahedral  at  the 
edge  points.  At  step  1  the  gradient  is  caduclated  at  the  barycenter  cell  point  for  the 
tetrahedral.  All  the  rest  of  the  steps  are  identical  to  those  described  above.  To  find  the 
value  of  in  the  three  dimensional  case,  we  will  add  fluxes  defined  at  the  faces  of 
the  tethraletral.  Most  elements  developed  for  the  two  dimensional  code  are  applicable 
to  this  implementation  of  the  three  dimensional  algorithm. 

Direct  Dynamic  Refinement  Method  (DDRM) 

Practical  numerical  simulations  of  the  fluid  dynzunic  problems  call  for  modeling 
flows  over  complicated  shapes.  In  addition,  importeint  flow  features  such  as  shed  vor¬ 
tices,  shock  waves,  slip  lines  and  boundary  layers  usually  have  widely  varied  lengths 
and  time  scales  and  need  to  be  resolved.  Accurate  solution  of  these  problems  require 
computational  grids  dynamically  adapted  to  the  evolving  flow  feature,  and  with  full 
control  over  solution  accuracy  in  the  key  regions  of  the  computational  domain.  It  is 
commonly  accepted  that  only  unstructmred  grids  can  provide  full  flexibility  in  obtaining 
the  local  grid  resolution  sufficient  to  accurately  resolve  subscale  flow  features.  The  five 
years  since  the  introduction  of  these  grids  and  methods  in  CFD  research  have  produced 
landmark  simulations  clearly  demonstrating  their  advantages  (Ref.  12,  14,  17). 

Although  a  number  of  research  groups  have  demonstrated  application  of  unstruc¬ 
tured  grids  to  simulations  of  steady  state  problems  (Ref.  14,  17,  18),  simulations  of 
time-dependent  problems  were  accomplished  by  a  significantly  smaller  group  (Ref.  19, 
20).  .A.n  adaptive  refinement  method  developed  by  Lohner  (Ref.  20)  is  based  on  a 
hierarchical  system  of  grid  refinement /coarsening  in  which  each  level  of  refinement  has 
six  possible  cases  and  coarsening  three  cases  of  triangular  cells  formation.  Every  layer 
of  refinement  has  a  father/son  relation  with  the  previous  layer,  and  all  these  layers  of 
refined  mesh  move  on  the  basic  predefined  grid.  This  technique  has  the  demonstrated 
capability  of  carrying  out  simulations  of  extremely  complex  flow  regimes.  However,  its 
rigid  hierarchic  approach  to  generating  grid  results  in  some  implicit  limitations.  For 
example,  a  dynamically  evolving  grid  will  not  have  an  element  leirger  than  the  cell  of 
the  initial  grid,  or  it  will  be  impossible  to  reduce  the  cell  volume  abruptly  in  some  areas 
without  passing  through  all  the  necessary  level  of  refinement. 
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In  our  paper  we  will  report  a  new  method  of  dynamic  grid  adaptation.  This  method 
is  beised  on  direct  refinement  and  reconnection  in  the  areas  of  monotonic  flow  preceding 
the  regions  with  strong  flow  gradients.  In  Figure  7  we  have  illustrated  the  basic  process 
of  refinement  accomplished  in  the  DDRM  method.  The  original  grid  is  shown  in  Figure 
7a.  Figure  7b  illustrates  a  one  step  grid  refinement  in  which  a  new  vertex  is  introduced 
into  a  triemgular  ceil  forming  three  new  cells.  This  is  followed  by  reconnection  which 
modifies  the  grid  in  a  manner  demonstrated  in  Figure  7c.  The  process  of  refinement 
and  reconnection  can  be  continued  until  the  necessaary  grid  resolution  is  achieved,  as 
illustrated  in  Figures  7d  and  7e.  This  direct  approach  to  the  grid  refinement  grants 
extreme  flexibility  in  resolving  local  flow  features.  A  similar  simple  method  is  applied 
to  grid  coarsening.  In  the  first  step  of  coarsening  the  marked  vertices,  all  associated 
elements  of  the  grid  are  simply  removed,  as  shown  in  Figure  8a.  During  the  second 
step,  this  void  in  the  grid  is  filled  with  new  larger  triangles  (Figure  8b),  and  then 
reconnected  as  shown  in  Figure  Sc. 

The  Direct  Dyntunic  Refinement  Method  (DDRA'I)  was  implemented  for  the  second 
order-Godunov  method  (FUGGS  algorithm  Ref.  7,  15).  Here  we  demonstrate  its 
performance  for  a  classical  Mach  Reflection  problem. 

Results 

la  Figures  Sa,  Sb,  and  8c,  simulation  results  are  shown  in  the  form  of  density 
contours  for  different  stages  of  Mach  Reflection  in  a  planar  channel.  To  illustrate  the 
dyntimics  adaptation  of  the  computational  grid  to  the  solution  in  the  same  figures,  we 
show  the  grid  as  it  evolves  in  time.  The  numerical  solution  develops  as  a  classical  case  of 
Mach  Reflection.  Because  we  have  assumed  that  the  gas  is  ideal  with  7  =  1.4,  according 
to  Ben-Dor  and  Glass  (Ref.  9)  for  the  shock  wave  and  wedge  angle  conditions  chosen 
we  should  have  a  case  of  Complex  Mach  Reflection  (CMR).  We  cein  observe  in  Figures 
8a,  Sb  and  8c  that  the  density  contours  definitely  display  the  pattern  of  discontinuities 
attributed  to  CMR.  In  these  figures  we  observe  a  well  defined  slip  line  vortex,  slip  line, 
triple  point  and  the  kink.  For  real  gas,  in  this  case,  the  Double  Mach  Reflection  should 
occur.  The  slip  line  and  slip  line  vortex  will  be  located  close  to  the  Mach  shock  and  will 
cause  the  Mach  shock  bulging  (Ref.  5).  However  the  perfect  gas  assumption  will  lead  to 
CMR  and  extensive  bulging  will  not  arise,  as  is  accurately  predicted  in  our  simulations. 
It  is  striking  to  observe  in  Figures  8a,  Sb,  and  Sc  that  the  numerical  grid  closely  follows 
the  evolving  system  of  waves,  and  the  high  density  grid  is  only  observed  in  the  areas  of 
shock  waves,  slip  lines  and  other  flow  discontinuities.  The  result  is  tremendous  savings 
in  both  CPU  and  storage.  For  example,  the  grid  shown  in  Figure  8c  has  only  6000 
points  (an  equivalent  of  a  grid  60x100  in  the  case  of  a  structured  rectangular  grid). 
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Reflection  of  Mach  shock  from  the  wall  opposite  the  wedge  will  start  immediately 
after  the  stage  shown  in  Figure  8c.  This  reflection  results  in  formation  of  the  secondary 
Mach  Reflection  which  expands  towards  the  channel’s  oblique  wall.  In  Figure  9a,  this 
secondary  Mach  Reflection  can  be  clearly  identified.  In  Figure  9b,  the  blow  up  of  the 
region  of  the  secondary  Mach  Reflection  is  shown.  All  the  distinguishing  characteristics 
of  the  l^Iach  Reflection  can  be  identified  in  this  figure,  including  triple  point,  Mach 
shock,  reflected  shock  and  slip  line.  In  addition  to  all  these  features,  the  secondary 
Mach  Reflection  has  an  additional  kink,  resulting  from  interaction  of  the  reflected 
shock  with  the  slip  surface.  It  is  clear  that  this  interaction  will  affect  significantly  the 
dynamics  of  the  secondary  reflection. 

In  Figures  10a,  10b,  and  10c,  simulation  results  are  shown  for  the  Mach  Reflection 
in  an  axisymmetric  channel  which  has  the  same  cross  section  as  the  planar  chzinnel. 
For  direct  comparison  here  the  simulation  results  are  presented  in  the  same  format  as 
in  Figures  Sa,  Sb,  and  8c  for  the  case  of  a  Mach  Reflection  in  a  planar  channel.  The 
Mach  Reflection  in  Figure  10a  is  analogous  to  its  planar  counterpart  in  Figures  8a  and 
8b.  In  Figure  10b  it  can  be  observed  that  the  area  of  the  shock  between  the  triple  point 
and  the  kink  in  the  reflected  shock  tilts  towzurds  the  axis  of  symmetry  of  the  channel. 
This  is  even  more  pronounced  in  Figure  10c  where  the  density  contours  are  shown 
before  the  secondary  reflection  starts.  It  is  apparent  that  the  secondary  reflection 
of  the  Mach  shock  will  occur  earlier  in  the  axisymmetric  channel  than  in  its  planar 
counterpart.  Contraction  in  the  radial  direction  results  in  a  significant  jump  in  density 
upon  reflection.  In  Figure  11a  we  see  that  at  the  initial  stages  of  the  Eodsymmetric 
reflection,  maximum  density  increased  three-fold  compared  with  the  values  observed  in 
the  initial  reflection.  This  increase  in  density  affects  the  increment  between  the  contour 
levels  displayed  in  Figure  11a  and  causes  the  slip  line  not  to  show.  In  Figure  11c  a  more 
advanced  stage  of  the  secondary  reflection  is  shown.  To  examine  in  more  detail  the 
features  of  the  secondary  reflection  in  Figures  lib  and  lid,  we  show  an  enlarged  view  of 
the  secondary  reflection  region  corresponding  to  Figures  11a  and  11c.  In  these  figures, 
we  can  observe  the  formation  of  a  distinct  reflected  wave  pattern  with  a  characteristic 
double  kink  of  the  reflected  wave  similar  to  that  seen  in  the  secondary  reflection  in 
a  planar  channel.  In  the  axisymmetric  case,  the  secondary  reflection  is  significantly 
stronger  than  in  the  case  of  a  planar  channel.  Since  this  reflected  wave  propagates 
along  the  radius  of  the  channel,  it  will  expand  rapidly.  This  can  be  observed  in  Figure 
11c  where  the  maximum  value  of  density  dropped  30%  compared  with  the  maximum 
in  Figure  11a.  For  the  same  reason  the  triple  point  of  the  secondary  Mach  Reflection 
has  advanced  much  farther  towards  the  oblique  wall  in  Figure  lid  than  in  Figure  9b. 
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Conclusions 

A  computer  code  has  been  developed  for  Euler's  equations  of  gas  dynanr.  js.  This 
code  uses  unstructured  grids  for  computational  domain  decomposition  and  it '  mtct'.ra- 
tion  algorithm  is  based  on  the  Second  Order  Godunov  method.  The  codt  ises  :he 
Dynamic  Grid  Adaptation  methodology,  allowing  economiczil  allocation  of  omputer 
resources  to  evolving  flow  features.  In  turn,  it  is  then  possible  to  carry  o-  it  accurate 
simulations  of  complicated  gas  dynamic  phenomena  with  affordable  compit  nr  resources. 
Here  the  code  has  been  demonstrated  to  produce  an  accurate  simulation  of  Complex 
Mach  Reflection  in  planar  and  axisymmetric  channels.  We  also  have  simtilated  the  ini¬ 
tial  stages  of  the  secondary  Mach  Reflection  from  the  chzmnel  wall  opposite  the  oblique 
wall.  In  this  case  we  observed  new  wave  structures  with  a  characteristic  double  kink. 
The  formation  of  the  second  kink  was  a  result  of  the  interaction  between  the  secondary 
reflected  wave  and  the  original  slip  line.  It  was  noted  that  the  dynamics  of  the  sec¬ 
ondary  reflection  is  different  in  the  planar  and  axisymmetric  cases.  In  the  axisymmetric 
case  reflection  in  significantly  stronger  than  in  the  planar  case. 


References 


1.  Ben-Dor,  G.,  and  I.I.  Glass,  ‘‘Nonstationary  Oblique- Shock  Wave  Reflections:  Ac¬ 
tual  Isopycnics  and  Numerical  Experiments,”  AIAA  J.  16  (1978),  pp.  1146-1153. 

2.  Gvozdeva,  L.G.,  T.V.  Bazhenova,  O.A.  Predvoditeleva,  V.P.  Fokeev,  1969.  Mach 
Reflection  of  Shock  Waves  in  Real  Gases,  Astron.  Acta  14:503-8. 

3.  Hornung,  H.G.,  H.  Oertel,  R.J.  Sandeman,  1979.  Transmission  to  Mach  Reflexion 
of  Shock  Waves  in  Steady  and  Pseudosteady  Flow  with  and  without  Relaxation. 
J.  Fluid  Mech.  90:541-60. 

4.  Bazlenova,  T.V.  and  L.G.  Gvozdeva,  “Unsteady  Interactions  of  Shock  Waves,” 
Nauka.  Moskow,  1977. 

5.  Glaz,  H.M.,  P.  Colella,  I.I.  Glciss,  and  R.L.  Deschambault,  A  Detailed  Numerical. 
Graphictd,  and  Experimental  Study  of  Oblique  Shock  Wave  Reflections,  DNA-TK- 
86-365,  1986. 

6.  Woodward,  P.R.,  and  P.  Colella,  “Numerical  Simulation  of  Two-Dimensional  Fluid 
Flow  with  Strong  Shocks,”  J.  Comp.  Phys.  54  (1984),  pp.  115-173. 

7.  Eidehnan,  S.,  P.  Collela,  and  R.P.  Shreeve,  “Application  of  the  Godunov  Method 
and  Its  Second  Order  Extension  to  Cascade  Flow  Modeling,”  AIAA  Journal,  v. 
22, 10  (1984). 

8.  Lottati,  I.,  S.  Eidelmtin  and  A.  Drobot,  Ftist  Unstructured  Grid  Second  Or¬ 
der  Godunov  Solver  (FUGGS)”,  28th  Aerospace  Sciences  Meeting,  AIAA -90-0699, 
Reno,  NV,  1990. 

9.  Ben-Dor,  G.  and  I.I.  Glass,  1979  Domains  and  Boundaries  of  Nonstationary  Oblique 
Shock- Wave  Reflexions:  1.  Diatomic  gas.  J.  Fluid  Mech.  92:459-96. 

10.  Barth,  T.J.  and  D.C  Jespersen,  “The  Design  and  Application  of  Upwind  Schemes 
on  Unstructured  Meshes,”  27th  Aerospace  Sciences  Meeting,  AIAA-89-0366,  Reno, 
NV,  (1989). 

11.  Mavriplis,  D.  and  A.  Jameson.  “Multigrid  Solution  of  the  Two-Dimensional  Euler 
Equations  on  Unstructured  Triangular  Meshes,”  .•\.IAA-S7-0353,  1987. 

12.  Baum.  J.D.  and  R.  Lohner,  “Numerical  Simulation  of  Shock-  Elevated  Box  Interac¬ 
tion  Using  an  Adaptive  Finite  Element  Shock  Capturing  Scheme,”  .\IAA  Preprint 
89-0653,  Presented  at  the  AIAA  27th  Aerospace  Sciences  Meeting,  Jan.  8-12,  1989, 
Reno.  NV. 


9 


13.  Lohner,  R.,  K.  Alorgan.  J.  Peraire  and  M.  Vahdati.  “Finite  Element  Flux-Corrected 
Transport  (FEM-FCT)  for  the  Euler  and  Navier*  Stokes  Equations’’  Chapter  6  in 
Finite  Elements  in  Fluids  Vol.  VII  (R.H.  Gallagher,  et  al.  eds.),  J.  Wiley  and  Sons 
(1988). 

14.  Mevriplis,  D.T.,  “Accurate  Multigrid  Solutions  of  the  Euler  Equations  on  Unstruc¬ 
tured  and  Adaptive  Meshes,”  AIAA  Journal,  2,  V.  28,  p.  231,  1990. 

15.  Eidelman,  S.  and  I.  Lottati,  “Triangle  Based  FUGGS  and  its  Validation  for  Two 
and  Three  Dimensional  Flow  Problems,”  to  be  presented  at  29th  Aerospace  Sci¬ 
ences  Meeting,  Reno,  NV,  1991. 

16.  ^•an  Leer,  B.,  “Towards  the  Ultimate  Conservative  Difference  Scheme,  V.A.  Second 
Order  Sequel  to  Godunov's  Method,”  J.  Comp.  Phys.  v.  32,  101-136  (1979). 

17.  Jameson,  A.,  T.J.  Baker  and  N.P.  Weatherill,  “Ctdculations  of  Inviscid  Transonic 
Flow  Over  a  Complete  .Aircraft.”  .AIAA  24th  Aerospace  Sciences  Meeting,  Reno, 
NV,  AIAA  Paper  86-0103,  January  1986. 

18.  Peraire,  J.,  Al.  Vahdati,  K.  Morgan  and  O.C.  Zienkiewicz  -  Adaptive  Remeshing 
for  Compressible  Flow  Computations;  J.  Comp.  Phys.  72,  449-466  (1987). 

19.  Palmerio,  B.  and  A.  Dervieux  -  Application  of  a  FEM  Moving  Node  Adaptive 
Method  to  Accurate  Shock  Capturing;  Proc.  First  Int.  Conf.  on  Niunerical  Grid 
Generation  in  CFD,  Landshut,  W.  Germany,  July  14-17,  1986,  Pineridge  Press. 

20.  Lohner,  R.  -  Adaptive  Remeshing  for  Transient  Problems;  Comp.  Meth.  Appl. 
Mech.  Eng.  75,  195-214  (1989). 


Incidenf  Shock  Wave  M  ■  8.7 


Figure  3.  Schematics  of  Wave  Propagaf  'orr  In  a  converging  channel  acceding  to 
Bazhemva  arid  Gvozdeva. 


Figtire  4. 


Local 


Diaphragm 


Second  Order  Edge  Based  Flux  Calculation 

I  - - 


Figure  5. 


Scheme  for  Bariceniric  Three  Dimensional  integration 


a.  Origmal  grid. 


c.  Grid  after  one  rennemezxc 
and  one  reconnection. 


e.  Second  reconnection. 

Figure  7.  Illustration  of  the  grid  refinement  process. 
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Figure  9a.  Secondary  Mach  Reflection  in  a  planar  channel.  Density  contours. 


Figure  9b.  A  blown  up  view  of  the  secondary  Mach  Reflection  shown  in  Figure  9a. 
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Figure  10a.  Mach  Reflection  in  an  axisymmetric  channel.  M,  —  8.7;  a  —27 
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Figure  10c.  Mach  Reflection  in  an  axisymmetric  channel.  M,  ~  8.7;  a  -Tl 


Figure  lid.  Blow  up  of  the  secondary  Mach  Reflection  area  shown  in  Figure  11c 
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Abstract.  We  describe  a  new  technique  for  solving  Euler’s  gasdynamic  equa¬ 
tions  on  unstructured  triangular  grids  with  arbitrary  connectivity.  The  for¬ 
mulation  is  based  on  the  second  order  Godunov  method.  The  use  of  data 
structure  with  only  one  level  of  indirectness  leads  to  an  easily  vectorized  and 
parallelized  code  with  a  low  level  of  overhead  in  memory  requirement  and  high 
computational  efficiency.  The  performance  and  accuracy  of  the  algorithm  has 
been  tested  for  a  very  wide  range  of  Mach  numbers  starting  &om  very  low  sub¬ 
sonic  to  high  hypersonic  flows,  without  the  need  to  adjust  any  code  parameters. 
The  algorithm  was  implemented  in  a  vertex  based  and  triangle  based  scheme. 
The  computational  restdts  produced  by  the  triangle  based  version  showed  an 
extremely  low  level  of  artificial  viscosity. 

A  new  method  of  direct  dynamic  refinement  of  unstructured  grids,  as  de¬ 
scribed  in  this  paper,  allows  an  automatic  adaptation  of  the  grid  to  regions  of 
pressure  or  density  discontinuity,  steep  pressure  or  density  gradient,  and  high 
vortical  activity.  Hesults  using  the  algorithm  with  dynamic  grid  refinement  are 
presented. 


Flow  Solver  on  aa  Unstructured  Grid 

The  specific  use  of  triangular  meshes  provides  a  very  flexible  means  for  simulat¬ 
ing  flows  in  extremely  complex  geometries.  The  data  that  identifies  a  triangular 
mesh  (unstructured  grid)  provides  the  flexibility  needed  to  properly  discretize 
the  complex  geometry  of  the  computational  domain,  especially  on  the  bound¬ 
ary  where  the  geometry  and  the  implementation  of  boundary  conditions,  are 
extremely  crucial  for  the  accuracy  of  the  simulation.  The  flexibility  of  un¬ 
structured  grids  enables  adaptation  to  physical  features  in  the  flow.  The  price 
of  resolution  results  in  a  local  rather  than  a  global  penalty.  Consequently,  it 
is  possible  to  simulate  problems  on  computers  with  limited  memory  and  still 
achieve  highly  resolved  solutions.  A  typical  example,  which  is  illustrated  in 
this  paper,  is  a  travelling  shock  passing  over  an  obstacle.  The  challenge  is  to 
simulate  such  problems  with  fine  resolution  across  the  shock  while  limiting  the 
total  number  of  mesh  points  in  the  calculation. 
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Figxire  2:  Sod  problem,  effect  of  the  characteristics  correction  on  the  density. 


Performance  and  Validation  of  FUGGS 

FUGGS  has  proven  to  be  a  very  robust  algorithm  capable  of  high  quality  so¬ 
lutions  while  using  triangles  with  large  variations  of  aspect  ratios.  The  code 
was  tested  on  a  variety  of  unstructured  grids  and  consistently  provided  results, 
despite  the  apparent  poor  quality  ot  the  underlying  mesh.  We  were  able  to  sim¬ 
ulate  efficiently  and  accurately  a  wide  spectrum  of  flow  regimes  starting  from 
low  subsonic  to  high  hypersonic.  The  code  has  no  free  parameters  to  choose  and 
thus  does  not  require  any  “tuning”  to  specific  problems.  The  user  has  only  to 
specify  the  boundary  conditions  (around  the  grid)  and  initial  flow  conditions. 
The  algorithm  is  fully  vectorized  and  can  be  easily  parallelized  in  the  future. 
We  describe  the  detailed  algorithm  below  and  then  present  typical  results. 


Direct  Dynamic  Refinement  Method  for  Unstructured 
Triangular  Grids 

As  stated,  an  unstiuictured  grid  is  very  suitable  to  implement  boundary  con¬ 
ditions  on  complex  geometrical  shapes  and  refinement  of  the  grid  if  necessary. 
This  feature  of  the  unstructured  triangular  grid  is  compatible  with  efficient  us¬ 
age  of  memory  resources.  The  adaptive  grid  enables  the  code  to  capture  mov¬ 
ing  shocks  and  high  gradient  flow  features  with  high  resolution.  The  memory 
resources  available  can  be  very  efficiently  distributed  in  the  computational  do¬ 
main  to  accommodate  the  resolution  needed  to  capture  the  niain  features  of  the 
physical  property  of  the  solution.  Dynamic  refinement  controls  the  resolution 
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of  the  grid  according  to  available  memory  resources  and  subject  to  prescribed 
priorities.  These  priorities  can  be  set  according  to  the  physical  features  which 
the  user  wishes  to  emphasize  in  the  simulation.  The  user  has  control  over  the 
resolution  of  the  physical  features  resolved  in  the  simulation,  without  being 
restricted  to  the  initial  grid.  The  alternative  to  Direct  Dynamic  Refinement  is 
the  hierarchical  dynamic  refinement  (H  refinement)  that  keeps  a  history  of  the 
initial  grid  (mother  grid)  and  the  subdivision  of  each  level  (daughters  grid).  The 
H  refinement  subdivides  the  initial  grid  into  two  or  four  triangles  in  each  level, 
and  keeps  track  of  the  munber  of  subdivision  levels  each  triangle  has  undertaken. 
In  the  H  refinement  method,  one  has  to  keep  overhead  information  on  the  level 
of  each  triangle  subdivision,  and  needs  double  indirect  indexing  to  keep  track 
of  the  H  refinmenet  process.  This  slows  down  the  computation  by  partially 
disabling  the  vectorization  of  the  code.  As  mentioned,  the  H  refinement  does 
rely  heavily  on  the  initial  grid  as  it  subdivides  the  mother  grid  and  returns  back 
to  it  after  the  passage  of  the  shock. 

Direct  Dynamic  Refinement  for  capturing  the  shocks  basically  requires  the 
refinement  to  be  in  the  region  ahead  of  the  shock.  This  requirement  minimizes 
the  dissipation  in  the  interpolation  process  when  assigning  values  to  the  new 
triangles  created  in  the  refined  region.  Additionally,  it  requires  that  the  coars¬ 
ening  of  the  grid  should  be  done  after  the  passage  of  the  shock.  In  principle, 
the  interpolation  and  extrapolation  in  the  refinement  and  coarsening  of  the  grid 
is  done  in  the  region  where  the  flow  features  are  smooth. 

The  physics  of  the  problem  should  be  involved  in  the  process  that  identifies 
the  region  of  refinement  and  coarsening.  One  can  derive  error  criteria  that  will 
allow  grid  adaptation  to  stationary  or  moving  pressure  or  density  discontinu¬ 
ities,  region  of  high  voriticai  activity,  etc.  For  each  of  the  physics  features  to  be 
resolved,  there  should  be  an  error  indicator  that  is  suited  best  to  capture  zmd 
identify  the  region  of  importance  corresponding  to  this  feature. 


Criteria  for  Refinement  (Error  Indicator) 

We  have  implemented  an  algorithm  with  multiple  criteria  for  capturing  a  variety 
of  features  in  the  physics  of  the  problem  to  be  solved.  That  means  that  we  were 
able  to  derive  a  number  of  error  indicators  that  enable  identification  of  moving 
shock  waves  or  stationary  shocks  in  the  computational  domain. 

To  identify  the  location  of  a  moving  shock,  we  use  the  flux  of  energy  or 
momentiun  into  triangles.  The  fluxes  entering  and  leaving  triangles  are  the  most 
accurate  physical  variables  computed  by  the  Godunov  algorithm  for  solving  the 
Euler’s  equations,  and  axe  used  to  update  the  physical  variables  for  each  time 
step  in  each  triangle.  A  shock  wave  means  that  there  is  a  “step  function'’  change 
in  the  cell  that  is  caused  by  an  influx  of  energy,  momentum  or  density. 

Stationary  shock  can  be  identified  by  density  gradients  computed  as  re¬ 
quired  in  the  second  order  Godunov  algorithm. 


The  refinement  process  is  done  in  two  ways;  i)  adding  a  vertex  in  the  center 
of  a  triangle  and  ii)  adding  a  vertex  on  an  edge  of  a  triangle.  Figure  3  illustrates 
the  two  alternative  ways  used  to  refine  the  grid.  Figure  4  shows  an  example  of 
the  refinement  procedure.  In  the  coarsening  stage  we  identify  a  vertex  Co  be 
removed.  With  the  point  removal,  we  delete  the  connecting  edges  and  triangles 
surroimding  the  point.  The  next  step  is  to  triangulate  the  void  polygon  by 
creating  new  triangles  using  only  the  vertices  of  the  polygon.  Figure  5  shows 
an  example  of  how  the  coarsening  proceeds. 

In  the  process  of  refinement  and  coarsening,  we  often  create  triangles  with 
large  aspect  ratios  (the  base-to*height  maximum  ratio  for  the  three  edges).  We 
use  reconnection  to  fiip  the  diagonal  between  two  adjacent  triangles  to  obtain 
triangles  with  a  “better”  aspect  ratio.  This  procedure  is  referred  to  as  the 
reconnection  step  in  Figs.4  and  5. 

•  Adding  a  vertex  in  •  Adding  a  vertex  on  the  middle 

barycenter  of  triangle.  of  an  edge  of  a  triangle. 

Added 
vertex 


Advantage:  does  not 
eflect  other  ttiaogies. 

Disadvantage:  effects  the  aspect 
ratio  of  the  triangles. 

Figure  3:  Two  Ways  of  Refinement. 


This  method  is  used  on  the 
boundary  to  improve  the  triangles 
with  acute  angles. 


«»)  •) 


a)  Original  grid,  b)  One  reftnement.  c)  First  reconnection, 
d)  Second  refinement,  e)  Second  reconnection. 

Figure  4:  Illustration  of  the  grid  refinement  process. 
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a)  Originai  grid,  b)  Point  removal,  c)  Conatmeting  of  new  eeila. 
d)  Coarse  grid  after  reconnection. 

Flgtire  5:  Illiistration  of  the  grid  coarsenning  process. 


Results 


Direct  dynamic  refinement  was  used  to  solve  the  transient  behavior  of  the  flow 
entering  a  channel  with  a  double  wedge  having  an  inclination  of  20*.  The  flow 
Mach  number  entering  the  channel  is  2.5.  The  flow  is  from  left  to  riglit.  A 
sequence  of  snapshots  illustrates  the  density  contours,  and  the  grid  for  each 
timestep  is  given  in  Figs.  6  (coimtour  plots)  and  7  (grid).  These  figures  clearly 
demonstrate  the  automatic  adaptation  of  the  grid  to  the  moving  shocks  and  the 
ability  to  capture  the  detailed  physics  of  the  simulation  with  very  high  resolution 
and  minimal  memory  requirements.  The  initial  grid  can  clearly  be  seen  to  the 
right  of  the  shock  (“ahead”)  in  the  early  stage  of  the  shock  propagation  from 
left  to  right.  The  coarsening  algorithm  is  able  to  produce  a  reasonable  mesh  in 
the  region  trailing  the  shock  as  shown  in  Fig.  7. 

The  ability  to  capture  stationary  shocks  is  illustrated  in  Fig.  8  in  which  a 
supersonic  free  flow  (M  =  2.5)  has  been  run  over  a  diamond  shape  biunp  (20* 
wedge)  driven  to  a  steady  state.  The  shock  emerges  from  the  first  comer  (left), 
the  fan  of  rarefaction  waves  appears  fi:om  the  apex  of  the  diamond  shape  bump, 
and  the  secondary  shock  &om  the  second  comer  (right)  is  clearly  illustrated  by 
the  ability  of  the  algorithm  to  adapt  the  grid  to  the  physics  of  the  flow.  Figure 
9  illustrates  the  sharpness  of  the  reflected  shock  obtained  for  an  axisymmetric 
converged  channel  with  an  angle  of  27*  and  M  =  8.7. 

The  few  examples  shown  here  represent  a  small  subset  of  results  obtained 
with  FUGGS.  The  examples  are  indicative  of  the  excellent  performance  that  can 
be  achieved  for  physically  complicated  situations.  We  would  like  to  emphasize 
that  these  calculations  involved  no  firee  parameters. 
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Figure  6.  A  sequence  of  density  snapshots  of  countour  plots  for  a  propagating 
shock  (M  =  2.5,  wedge  angle  =  20*). 
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Figlixe  7.  A  sequence  of  grids  corresponding  to  countour  plots  in  figure  6. 
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Figure  3.  Density  contour  plot  and  grid  for  Sow  driven  to  steady  stare  over  a 
double  wedge  obstacle. 


Figure  0.  Initial  grid,  countour  plot  and  the  adaptive  grid  for  Sow  in  axisyni' 
metric  channel  (M  =  S.7,  wedge  angle  =  27*). 
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1.  Introduction 

The  airbreathing  Pulsed  Detonation  Engine  (PDE) 
concept  was  introduced  by  us  and  reported  on  in  the 
past^'^’^.  As  described  in  the  previous  reports,  we  have 
carried  out  a  systematic  series  of  parametric  studies  of 
the  PDE  via  Computational  Fluid  Dynamics  (CFD)  and 
have  anedyzed  engine  performance  over  a  wide  range  of 
flight  regimes  including  subsonic  and  supersonic  flows 
and  physical  geometries  including  various  nozzle  and  air 
inlets.  In  addition,  we  have  performed  static  table  top 
experiments^  to  demonstrate  that  the  principle  of  pulsed 
or  repetitive  detonation  can  be  achieved  in  a  generic 
POE  conflguration.  To  date,  our  results  indicate  that 
practical  engines  for  certain  vehicles  and  missions  can  be 
conceptualized  and  designed  with  the  information  that 
has  already  been  generated  from  the  studies.  Specifi¬ 
cally,  our  studies  have  shown  that  the  PDE  is  an  ex¬ 
cellent  candidate  for  the  primary  propulsion  source  for 
small  aerodynamic  vehicles  that  operate  over  the  flight 
envelope,  0.2<M<3  and  altitude  between  sea  level  and 
30.000  ft.  Further,  our  analysis  of  the  simulation  results 
indicate  that  the  PDE  is  a  high  thrust  to  weight  ratio  de¬ 
vice  with  a  specific  fuel  consumption  on  the  order  of  one 
pound  per  hour  per  pound  fuel.  The  predicted  perfor¬ 
mance  places  the  PDE  propulsion  concept  in  a  strongly 
competitive  position  compared  with  present  day  small 
turbojets.  The  PDE  concept  has  the  added  attractive¬ 
ness  of  rapid  variable  thrust  control,  no  moving  parts 
and  the  potential  for  low  cost  manufacturing.  Finally, 
the  PDE  concept  is  scalable  over  a  wide  rrmge  of  engine 
sizes  and  thrust  levels.  For  example,  it  is  theoretically 
possible  to  produce  PDE  engines  on  the  order  of  one  to 
several  inches  in  diameter  and  thrusts  on  the  order  of 
pounds,  as  well  as  devices  which  provide  thousands  of 
pounds  thrust. 

The  parametric  studies  that  we  have  carried  out  to 
date  were  possible  due  to  the  development  of  a  new  gen¬ 
eration  of  CFD  tools  that  have  allowed  us  to  accurately 
simulate  the  details  of  the  complex  nonlinear  time  depen¬ 
dent  processes.  A  brief  description  of  the  CFD  methods 
employed  in  our  studies  is  given  in  section  3. 

The  purpose  of  the  present  paper  is:  (1)  to  report 


the  most  recent  studies  of  a  full  simulation  of  the  op¬ 
eration  of  the  PDE  with  a  generic  missile  conflguration 
cruising  at  supersonic  speeds.  (2)  to  report  the  results  of 
a  parametric-scaling  study  of  the  thrust  produced  as  a 
function  of  the  variation  of  a  given  engine  conflguration 
with  respect  to  engine  size. 

The  present  paper  is  organized  as  follows:  Section 
2  gives,  for  completeness,  a  brief  description  of  the  PDE 
concept.  Section  3  describes  briefly  the  CFD  methods 
used  in  our  most  recent  studies,  Section  4  gives  the  re¬ 
sults  of  the  parametric-scaling  study  and.  Section  5  de¬ 
scribes  the  simulations  of  the  complete  flow  around  a 
generic  missile  conflguration  powered  by  a  PDE,  Section 
6  gives  our  sununary  and  conclusions. 

2.  The  Pulsed  Detonation  Engine  Concept 

A  detonation  process,  due  to  the  very  high  rate  of 
reaction,  leads  to  a  propulsion  concept  in  which  the  con¬ 
stant  volume  process  can  be  fully  realized.  In  detonative 
combustion,  the  strong  shock  wave,  which  is  part  of  the 
detonation  wave,  acts  like  a  valve  between  the  detonation 
products  and  fresh  charge.  The  speed  of  the  detonation 
wave  is  about  two  orders  of  magnitude  higher  than  the 
speed  of  a  typical  deflagration.  This  allows  the  design 
of  propulsion  engines  with  a  very  high  power  density. 
Each  detonation  has  to  be  initiated  separately  by  a  fully 
controlled  ignition  device,  with  a  wide  range  of  variable 
cycle  frequencies.  There  is  no  theoretical  restriction  on 
the  range  of  operating  frequencies;  they  are  uncoupled 
from  acoustical  chamber  resonance.  This  is  very  im¬ 
portant  feature  of  the  constant  volume  detonation  pro¬ 
cess  that  differentiates  it  from  the  process  occurring  in  a 
pulse-jet;^'®  the  pulse  jet  cycle  is  tuned  to  the  acoustical 
resonances  of  the  combustion  chamber.  This  leads  to  a 
lack  of  scalability  for  the  pulse  jet  concept. 

A  physical  restriction  dictating  the  range  of  detona¬ 
tion  frequency  arises  from  the  rate  at  which  the  fuel/air 
mixture  can  be  introduced  into  the  detonation  chamber. 
This  also  means  that  a  device  based  on  a  detonative 
combustion  cycle  can  be  scaled  and  its  operating  pa¬ 
rameters  can  be  modified  for  a  ranee  of  required  output 
conditions.  There  have  been  numerous  attempts  to  take 


advantage  of  detonaiive  combustion  for  engine  applica¬ 
tions.  The  most  recent  and  successful  of  these  attempts 
was  carried  out  at  the  Naval  Postgraduate  School  (NPS) 
by  Heiman  et  ai.^  During  this  study,  several  fundamen- 
taiiy  new  elements  were  introduced  to  the  concept  dis¬ 
tinguishing  the  NPS  research  device  from  previous  stud¬ 
ies.  First,  it  is  important  to  note  that  the  NPS  experi¬ 
mental  apparatus  was  the  first  successful  seif  aspirating 
air  breathing  detonation  device.  Intermittent  detona¬ 
tion  frequencies  of  25  Hz  were  obtained.  This  frequency 
was  in  phase  with  the  fuel  mixture  injection  through 
timed  fuel  valve  opening  and  spark  ignition.  The  fea¬ 
sibility  of  intermittent  injection  was  established.  Pres¬ 
sure  measurements  showed  conclusively  that  a  detona¬ 
tion  process  occurred  at  the  frequency  chosen  for  fuel 
injection.  Further,  self  aspiration  was  shown  to  be  effec¬ 
tive.  Finally,  the  effectiveness  of  a  primary  detonation 
as  a  driver  for  the  main  detonation  was  clearly  demon¬ 
strated.  Although  the  NPS  studies  were  abbreviated, 
many  of  the  technical  issues  considered  to  be  essential 
for  efficient  intermittent  detonation  propulsion  were  ad¬ 
dressed  with  positive  results. 

The  generic  device  we  consider  here  is  a  small  en¬ 
gine  shown  in  Figure  1.  Figure  1  shows  a  schematic  of 
the  basic  detonation  chamber  attached  to  the  aft  end 
of  a  generic  aerodynamic  vehicle.  The  combustible  gas 
mixture  is  injected  at  the  closed  end  of  the  detonation 
chamber  and  a  detonation  wave  propagates  through  the 
mixture.  The  size  of  the  engine  suggests  a  small  payload 
or  aerodynamic  vehicle,  but  the  concept  can  be  extended 
to  larger  payloads  simply  by  scaling  up  the  size  of  the 
detonation  chamber  and  possibly  combining  a  number 
of  chambers  into  one  larger  engine. 

A  key  issue  in  the  pulsed  detonation  engine  con¬ 
cept  is  the  design  of  the  main  detonation  chamber.  The 
detonation  chamber  geometry  determines  the  propulsion 
efficiency  and  the  duration  of  the  cycle  (frequency  of  det¬ 
onations).  Since  the  fresh  charge  for  the  generic  engine 
is  supplied  from  the  external  flow  field,  the  efficiency  of 
the  engine  depends  on  the  interaction  of  the  surrounding 
flow  with  the  internal  flow  dynamics.  The  rruige  of  the 
physical  process  requiring  simulation  in  order  to  model 
the  complex  flow  phenomena  associated  with  the  deto¬ 
nation  engine  performance  is  very  broad.  A  partial  list 
is: 

1.  Initiation  and  propagation  of  the  detonation  wave 
inside  the  chamber, 

2.  Expansion  of  the  detonation  products  from  the 
chamber  into  the  air  stream  around  the  chamber 
at  flight  Mach  numbers, 

3.  Fresh  air  intake  from  the  surrounding  air  into  the 
chamber. 

4.  The  flow  pattern  inside  the  chamber  during  post¬ 
exhaust  pressure  buildup  which  determines  the 


strategy  for  mixing  the  next  detonation  charge, 

5.  Strong  mutual  interaction  between  the  flow  inside 
the  chamber  and  surrounding  the  engine. 
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Figure  1,  Schematic  of  the  generic  POE  showing  det¬ 
onation  chamber,  inlet,  detonation  wave,  fuel  injectors 
and  position  relative  to  an  aerodynamic  vehicle. 


All  of  these  processes  are  interdependent,  and  inter¬ 
action  and  timing  are  crucial  to  engine  efficiency.  Thus, 
unlike  simulations  of  steady  state  engines,  the  phenom¬ 
ena  described  above  can  not  be  evaluated  independently. 
The  need  to  resolve  the  flow  regime  inside  the  eban^r 
accounting  for  nozzles,  air  inlets  etc.,  and  at  the  same 
time  resolve  the  flow  outside  and  surrounding  the  en¬ 
gine,  where  the  flow  regime  varies  from  high  subsonic, 
locally  transonic  and  supersonic,  makes  it  a  challenging 
computational  problem. 

The  single  most  important  issue  is  to  determine  the 
timing  of  the  air  intake  for  the  fresh  charge  leading  to 
repetitive  detonations.  It  is  sufficient  to  assume  invis- 
cid  flow  for  the  purpose  of  simulating  the  expansion  of 
the  detonation  products  and  fresh  air  intake.  The  as¬ 
sumption  of  inviscid  flow  makes  the  task  of  numerically 
simulating  the  PDE  flow  phenomena  somewhat  easier 
than  if  a  fully  viscous  flow  model  were  employed.  For 
the  size  of  the  generic  device  studied  in  this  work  the 
effects  of  viscous  boundary  layers  are  negligible  with  the 
exception  of  possible  boundary  layer  effects  on  the  valve 
and  inlet  geometries  discussed  subsequently.. 

3.  Computational  Methods  used  in  the  Studies 

The  basic  computational  tool  that  was  used  for  our 
studies  is  the  FUGGS  (Fast  Unstructured  Grid  Second 
Order  Godunov  Solver)  code,  described  in  detail  in  Refs. 
6,7.  This  code  provides  a  method  for  solving  the  Euler 
equations  of  gasdynamics  on  unstructured  grids  with  ar¬ 
bitrary  connectivity.  The  formulation  is  based  on  a  sec¬ 
ond  order  Godunov  method^.  The  use  of  a  data  struc¬ 
ture  with  oniy  one  level  of  indirectness  leads  to  an  eaisily 
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v  ectorized  and  parallelized  code  with  a  low  level  of  over¬ 
head  in  memory  requirement  and  high  computational  ef¬ 
ficiency.  The  performance  and  accuracy  of  the  algorithm 
has  been  tested  for  a  very  wide  range  of  Mach  num¬ 
bers  and  geometrical  situations,  and  has  demonstrated 
robustness  without  the  need  for  any  adjustable  param¬ 
eters.  The  algorithm  can  either  be  triangle  or  vertex 
based;  experience  with  the  method  has  shown  that  ex¬ 
tremely  low  levels  of  artificial  viscosity  can  be  achieved 
using  the  triangle  based  version  of  the  method. 

A  new  method  of  direct  dynamic  refinement  of  un¬ 
structured  grids  has  been  developed,  (Ref.  6),  and  allows 
an  automatic  adaptation  of  the  grid  to  the  region  of  the 
moving  detonation  wave  inside  the  PDE  geometry.  This 
refinement  guarantees  that  the  associated  highly  inho¬ 
mogeneous  pressure  and  density  contours  of  the  deto¬ 
nation  wave  are  accurately  tracked  in  the  simulation. 
This  is  an  important  ingredient  in  our  simulations,  since 
the  main  component  of  the  detonation  process  contribut¬ 
ing  to  the  thrust  generated  by  the  PDE  is  the  total  ki¬ 
netic  energy  of  the  wave.  Use  of  the  new  refinement 
scheme  has  more  accurately  describe  the  moving  deto¬ 
nation  wave  behavior.  These  new  results  concern  non- 
planar  wave  evolution  and,  as  pointed  out  in  Section  4, 
may  be  a  factor  in  controlling  the  magnitude  of  the  gen¬ 
erated  thrust. 

4.  Scaling  Study  of  the  PDE 

We  have  shown  in  our  previous  study  that  in  the 
Pulsed  Detonation  Engines,  thrust  is  primarily  produced 
by  the  unsteady  interaction  of  shock  wave  generated  by 
the  propagating  detonation  wave  and  the  thrust  wall  of 
the  detonation  chamber.  This  interaction  will  be  non¬ 
linear  and  scalability  of  the  engine  will  greatly  depend 
on  the  extent  of  nonlineuity.  For  example,  for  the  en¬ 
gine  geometry  shown  in  Figure  1,  the  engine  volume  can 
be  increased  just  by  elongating  the  wall  of  the  detona¬ 
tion  chamber.  If  the  area  of  the  thrust  wall  in  Figure 
1  remains  the  same  and  the  composition  of  the  detona¬ 
tion  mixture  does  not  change,  the  increase  in  the  deto¬ 
nation  chamber  length  will  result  in  longer  duration  of 
the  interaction  between  the  shock  wave  and  the  thrust 
wail.  This  simple  situation  poses  a  question  concerning 
the  relationship  between  the  increase  in  PDE  thrust  and 
increase  in  its  volume.  This  is  very  practical  issue  in 
scaling  up  the  size  of  the  engine,  since  increase  in  the 
detonation  chamber  diameter  will  eventually  result  in 
difficulty  generating  a  planar  detonation  front,  leading 
to  loss  of  engine  efficiency. 

To  study  this  aspect  of  the  detonation  engine  scala¬ 
bility  we  have  conducted  a  set  of  numerical  simulations 
for  the  engine  geometry  very  similar  to  these  shown  in 
Figure  1.  The  detonation  chamber  diameter  was  kept 
constant  at  8cm  and  its  length  varied  from  8cm  to  I6cm. 


The  main  objective  of  our  study  is  to  determine  how  the 
thrust  produced  by  the  detonation  engine  increases  when 
the  engine  length  doubles  and  the  rest  of  the  engine  pa¬ 
rameters  will  remain  the  same.  This  section  describes 
the  results  of  two  simulations  for  the  detonation  cham¬ 
ber  geometry  described  above,  using  a  detonation  cham¬ 
ber  length  of  8  cm  and  16  cm.  The  simulation  begins 
at  t  =  0  when  the  detonation  chamber  is  placed  in  an 
external  freestream  with  the  Mach  number  of  0.8.  The 
detonation  wave  is  initiated  at  the  aft  end  of  the  detona¬ 
tion  chamber.  The  detonation  chamber  for  these  cases 
includes  a  simple  annular  inlet  which  remains  open  dur¬ 
ing  operation.  The  specific  fuel  chosen  for  the  present 
simulations  is  ethylene.  The  chemical  reaction  occurring 
in  the  ethylene/ air  detonation  process  is  given  by: 

C-iH^  +  30,  +  11.24^2 - 2H2O  +  2CO2  -F  11.24fV2- 

The  detonability  limits  of  ethylene  in  air  range  from  4% 
to  12%  by  volume  and  depend  somewhat  on  tempera¬ 
ture  and  pressure.  We  assume  for  the  S2dce  of  simplicity 
that  the  fuel/air  ratio  is  6%  by  volume.  In  contrast  with 
our  previous  presentations  here,  as  well  as  in  case  of 
supersonic  PDE  simulation  presented  in  this  paper,  we 
have  simulated  a  propagating  detonation  wave  by  releas¬ 
ing  the  energy  of  detonative  combustion  in  our  mixture 
immediately  behind  the  detonation  front.  In  our  simu¬ 
lations  we  have  used  the  Dynamically  Adaptive  FUGGS 
code  which  we  have  developed  recently.  Figures  2a,  2b, 
and  2c,  present  three  frames  of  the  results  for  simulation 
in  a  16  cm  long  detonation  chamber.  In  these  figures,  re¬ 
sults  are  presented  in  the  form  of  pressure  contour  plots. 
For  illustration  of  the  dynamic  grid  adaptation  to  the 
evolving  flow  pattern,  we  have  plotted  the  unstructured 
triangular  grid  corresponding  to  the  stage  at  which  con¬ 
tour  plots  are  shown.  In  Figure  2a.  pressure  contour 
plots  are  shown  shortly  after  the  detonation  wave  has 
been  initiated  at  the  aft  end  of  the  detonation  chamber. 
We  can  observe  that  the  shock  wave  front  is  planar.  The 
detonation  wave  velocity  is  1800  m/sec  and  the  pres¬ 
sure  at  the  front  of  the  detonation  wave  is  »  20  atm., 
corresponding  to  the  CJ  condition  for  the  ethylene/ air 
mixture.  Figure  2b  shows  the  results  of  the  detonation 
wave  reflecting  from  the  thrust  wall  and  the  detona¬ 
tion  products  starting  to  expand  into  the  flow  stream 
surrounding  the  detonation  chamber.  The  detonation 
products  expand  through  the  inlet  and  into  the  detona¬ 
tion  chamber.  This  simultaneous  expansion  results  in 
a  complicated  wave  structure  which  can  be  observed  in 
Figure  2b.  Here  we  also  note  that  the  dynamically  ad¬ 
justable  grid  closely  follows  developing  wave  structures. 
In  Figure  2c,  results  are  shown  at  the  stage  when  the 
two  main  shock  waves  generated  by  the  PDE  cycle  have 
interacted  and  are  about  to  leave  the  computational  do¬ 
main.  The  maximum  pressure  here  dropped  to  1.7  atm. 
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The  computational  grid  follows  the  shocks  and  vortices 
propagating  through  the  computational  domain  and  we 
can  observe  the  substantially  reduced  grid  density  in  the 
regions  of  relatively  monotonic  how.  Figure  2  illustrates 
the  level  of  detail  of  this  complicated  flow  regime  which 
can  be  studied  with  modern  CFD  methods  and  algo¬ 
rithms. 


Figure  3.  Time  averaged  thrust  and  force  data  from 
simulation  of  8cm  (solid  lines)  and  16cm  (dashed  lines) 
detonation  chambers,  200  Hz  detonation  frequency. 

In  Figure  3  the  total  force  and  time  averaged  thrust 
generated  by  the  device  in  the  simulations  just  discussed 
for  8cm  and  16cm  long  detonation  chambers,  are  shown 
as  a  function  of  time.  The  time  averaged  thrust  is  based 
on  the  total  time  for  one  cycle  defined  as  5.0  x  10“® 
sec.  This  time  is  equivalent  to  a  detonation  frequency  of 
200  Hz.  As  seen  in  the  figure,  initially  the  force  acting 
on  the  thrust  wall  is  close  to  zero.  The  simulation  was 
run  for  2.0  x  10'*  sec  physical  lime  to  establish  a  flow 
pattern  characteristic  of  the  steady  nonreactive  flow  of 
ambient  air  around  the  detonation  chamber.  At  the  time 
2.0  X  10^  sec  the  detonation  wave  started  to  propagate 
from  the  aft  of  the  chandler.  We  can  see  in  Figure  3  that 
the  detonation  wave  reaches  the  thrust  wall  at  the  time 
2.45  X  10'*  sec  (for  8cm  case)  and  2.9  x  10"*  sec  (for  16cm 
case),  when  a  very  large  force  of  «  5.0  x  10®lb  is  felt  on 
the  end  wall  of  the  detonation  chamber.  This  force  is  a 


result  of  the  high  pressure  behind  the  detonation  wave. 
It  rapidly  decays  to  virtually  zero  level  it;  %  0.5  x  10“^ 
sec  in  the  8cm  case  and  ss  i.O  x  10~^  se:  in  the  16cm 
case.  The  maximum  force  produced  on  th  thrust  wail  is 
the  same  in  both  cases.  The  increase  o*  e  detonation 
chamber  volume  is  most  noticeable  in  thrust  data. 
As  we  can  see  in  Figure  3  the  average  r  -  jst  increases 
from  12  Lbs  in  the  8cm  chamber  ase  to  24  Lbs 
in  16cm  chamber  case.  This  res'  shows  that  the 
thrust  of  the  detonation  chamber  wu  ale  linearly  with 
an  increase  in  detonation  chamber  length  when  the  other 
parameters  are  kept  constant. 

5.  Supersonic  Missile  Simulation 

In  this  section  we  present  the  results  of  a  full  simu- 
latbn  of  a  generic  supersonic  missile  powered  by  a  PDE. 
The  purpose  of  this  simulation  was  to  study  the  require¬ 
ments  placed  on  the  PDE  air  inlets  and  internal  struc¬ 
tures  that  may  be  needed  to  produce  a  well  mixed,  uni¬ 
form  flow  inside  the  detonation  chamber.  In  addition, 
the  simulations  were  carried  out  on  the  full  vehicle  in 
order  to  account  for  all  wave  drag  that  a  real  missile 
produces;  the  resulting  thrust  predictions  for  the  sim¬ 
ulations  are  therefore  true  net  thrust  values.  We  show 
here  the  results  of  a  successful  geometry  that  satisfies 
the  requirements  of  choking  flow  in  the  inlet  throat  and 
uniform  predetonation  flow  in  the  chamber  produced  by 
means  of  a  grill.  The  missile  geometry  and  computa¬ 
tional  grid  are  shown  in  figures  4a,  4b,  and  4c. 


Figure  4a.  Unstructured  Grid  for  Missile  and  Engine 
Simulation. 


Figure  4b.  Grid  Detail  for  Inlet  and  Manifold. 
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6.  Conclusions 


Figure  ^la  shows  the  main  missile  body  with  the 
PDC  covered  by  the  high  density  of  grid  points  neces* 
sary  to  resolve  the  details  of  the  PDE  chamber,  inlets 
and,  grill  as  shown  in  the  enlarged  views  of  the  cham¬ 
ber,  figures  4b  and  4c. 

The  simulations  were  performed  by  allowing  steady 
subsonic  Sow  conditions  to  be  established  in  the  detona¬ 
tion  chamber  holding  a  steady  supersonic  Sow,  Mach  2. 
about  the  missile.  The  degree  to  which  this  steady  and 
uniform  flow  can  be  established  in  the  chatitber  using  the 
inlet  and  grill  of  figure  4  is  shown  in  figure  5.  Here  the 
complete  flow  including  the  bow  shock  is  shown,  figure 
5a,  as  well  as  an  enlarged  view  of  the  flow  in  the  vicin¬ 
ity  of  the  inlets  showing  smaller  shocks,  figure  5b,  and 
a  particle  trace  showing  the  streamlines  of  the  uniform 
chamber  flow,  figure  5c.  When  steady  flow  conditions  are 
reached  in  the  detonation  chamber,  plane  detonation  is 
started  at  the  rear  end  of  the  chamber.  The  detonation 
then  travels  towards  the  inner  thrust  wail  at  approx¬ 
imately  Mach  4.  Figure  6  shows  the  same  sequence  of 
views  as  figure  5,  but  with  the  detonation  approximately 
having  travelled  halfway  to  the  thrust  wall.  Notice  that 
the  detonation  remains  more-or-less  planar  indicating 
that  the  flow  properties  are  uniform  in  the  chamber.  Fig¬ 
ure  7  shows  the  phenomena  associated  with  the  detona¬ 
tion  impacting  the  thrust  wail,  the  high  pressure  of  the 
detonation  wave  exhausting  from  the  inlet  and  particles 
leaving  the  chamber  through  the  inlets.  The  principle  re¬ 
sults  from  the  simulations  of  the  supersonic  missile  case 
are  that  the  use  of  such  a  grill  structure  and  inlet  shape 
allow  uniform  flow  to  be  established  before  and  after  det¬ 
onation  in  sufficient  time  that  detonation  frequencies  of 
200  cycles  per  second  are  obtainable.  It  is  not  clear  at 
this  time  whether  such  internal  grill  structures  are  de¬ 
sirable  from  the  standpoint  of  structural  integritry.  This 
question  will  be  addressed  later  m  planned  experimental 
studies  of  the  PDE. 


The  simulation  of  the  PDE  presented  in  this  pa¬ 
per  are  partial  results  from  an  ongoing  SAIC  research 
program  aimed  at  development  of  a  practical  PDE  en¬ 
gine  for  a  wide  spectrum  of  applications  including  small 
l/AV’s  and  PENAID  missiles  among  others.  The  pri¬ 
mary  focus  of  the  results  presented  here  is  the  scaling  of 
PDE  performance  with  respect  to  size  variation  and  the 
establishment  of  uniform  subsonic  flow  conditions  in  the 
detonation  chamber  before  and  after  detonation. 

The  results  of  the  scaling  studies  described  in  the 
text  lead  to  scaling  laws  that  can  be  used  to  predict  the 
performance  of  PDE’s  over  some  range  of  parameters  as¬ 
suming  that  other  parameters  are  held  flxed.  For  exam¬ 
ple,  holding  the  external  Mach  number  and  basic  cham¬ 
ber  and  inlet  geometry  flxed  suggests  that  the  thrust  at 
constant  speciflc  fuel  consumption  produced  by  the  PDE 
scales  as: 


where  Ti,  (v/wi)  and  (///i)  are  the  thrust  computed  for 
a  chamber  of  volume  vi  operating  at  frequency  /i,  the 
ratio  of  a  new  volume  to  vj  and  the  ratio  of  the  new 
frequency  to  /i  respectively.  Thus,  thrust  should  scale 
linearly  with  the  parameter  (v/vj)  *  (///i)  over  some 
range  of  this  parameter.  Departure  from  this  linear  vari¬ 
ation  may  occur  due  to  the  following  reasons:  First,  since 
volume  is  proportional  to  the  product  of  cross-  sectioneii 
area  and  length,  v  ~  (r  detonation  chsunber  ra¬ 
dius,  I  —  chamber  length)  physical  limits  will  be  placed 
on  r  and  /;  if  r  is  too  small  (less  than  1  cm)  a  detonation 
will  not  be  sustainable  and  if  I  is  too  small  (less  than 
10  cm)  it  may  be  difficult  to  mix  fuel  and  air  effectively. 
Using  the  thrust  relation  established  above,  we  make  the 
following  observEUicns.  For  a  PDE  device  producing  100 
pounds  thrust  at  100  Hz,  doubling  the  frequency  and  in¬ 
creasing  the  volume  by  a  factor  of  5  yields  a  thrust  level 
of  1000  pounds.  Assuming  that  the  aspect  ratio  of  the 
chamber  (chamber  length  to  radius)  is  fixed,  this  would 
required  an  engine  only  25,5  cm  in  diameter  and  25.5  cm 
in  length.  Similarly,  scaling  the  engine  down  in  size  to 
a  5  cm  diameter.  5  cm  length  detonation  chamber  op- 
eratin  at  100  Hz  yields  thrust  levels  of  the  order  of  3.7 
pounds.  Of  course,  the  derive  relation  between  thrust 
and  (v/vi)  *  (///i)  cannot  be  believed  over  too  wide  a 
range  of  parameters;  but.  it  does  serve  to  point  out  the 
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flexibility  in  scaieup  or  scaledown  permitted  by  the  PDE 
concept. 

We  further  conclude  that  the  performance  com¬ 
puted  for  PDEs  is  encouraging  from  the  point  of  view 
of  thrust,  thrust  control,  simplicity  of  the  device  (no 
moving  parts)  and  specific  fuel  consumption  (SEC).  The 
specific  fuel  consumption  computed  from  our  simulations 
(~  lLb//ir./16)  is  competitive  with  present  day  small 
turbojets  (SFCs  for  small  turbojets  are  in  the  range  of 
1.8-2.0  lb./(lb.*hr.)).  Thus,  for  a  given  mission  and  ve¬ 
hicle.  a  PDE  propulsion  unit  could  be  more  fuel  efficient 
resulting  in  increased  range.  Moreover,  if  the  expected 
thrust  control  in  PDEs  is  realizable,  it  may  be  possible 
to  produce  propulsion  units  that  can  slow  down,  loiter 
and  maneuver  and  finally  regain  full  thrust  within  the 
time  it  takes  to  increase  the  detonation  frequency. 


Figure  8.  Thrust  versus  Mach  number  variation  obtained 
from  simulation  data. 


Another  result  from  the  scaling  sltudies  is  that  the 
thrust  data  show  a  dependence  on  the  external  flight 
conditions,  e.g.  Mach  number.  The  Mach  number  plays 
a  role  in  the  wave  drag  that  the  geometry  of  the  PDE 
will  incur;  the  details  of  the  valve  and  inlet  configurations 
figure  prominently  in  the  total  wave  drag. 

On  the  other  hand,  the  simulations  showed  that  the 
timing  of  the  fresh  air  refilling  required  to  recharge  the 
chamber  for  subsequent  detonations  is  a  strong  function 
of  the  details  of  the  valve  and  inlet  geometry,  the  ex¬ 
pansion  of  the  combustion  products,  the  resulting  over- 
expansion  of  the  chamber  flow  and  the  external  flow 
regime  and  interaction  of  the  external  flow  with  the  in¬ 
ternal  flow.  For  subsonic  flight.  Mach  0, 2-0.9,  the  fresh 
air  entering  the  chamber  comes  from  two  separate  princi¬ 
ple  flow  processes;  one  comes  from  the  flow  through  any 
valve  or  inlet  and  the  other  comes  from  the  self-  aspira¬ 
tion  or  reverse  flow  from  the  aft  end  of  the  chamber  due 
to  strong  over-expansion.  All  these  processes  are  interde¬ 


pendent  and.  in  order  to  search  for  a  given  performance 
in  a  given  device,  requires  variation  of  many  parame¬ 
ters.  The  simulation  results  obtained  to  date  provide  an 
understanding  of  the  effects  caused  by  variation  of  the 
above-mentioned  parameters  and.  with  the  information 
available,  we  are  able  to  conclude  that  a  PDE  propulsion 
unit  can  be  optimized  (although  no  optimization  studies 
were  carried  out)  for  a  given  flight  regime.  For  exam¬ 
ple,  if  we  consider  the  simulations  obtained  for  constant 
(number  and  inlet)  geometry  but  at  Mach  numbers  0.8, 
0.5,  0.2,  and  0.0  respectively,  the  variation  of  maximum 
time  averaged  thrust  and  mean  thrust  as  a  function  of 
Mach  number  can  be  characterized  as  shown  in  Figure 
8. 

The  decrease  in  thrust  with  Mach  number  has  been 
described  earlier^  to  be  a  result  of  the  increased  wave 
drag  produced  by  the  inlet  geometry.  Optimization  of 
the  inlet  geometry  could  help  in  eliminating  a  iMge  part 
of  the  wave  drag.  The  data  contained  in  Figure  8  could 
be  used  to  determine  the  detonation  frequency  at  a  given 
Mach  number  yielding  constant  thrust.  For  a  constant 
thrust  level  of  90  pounds,  the  required  detonation  fre¬ 
quency  varies  from  84  Hz  at  M  =:  0.0  to  140  Hz  to  M  = 
0.8.  In  a  similar  fashion,  parametric  variations  of  other 
important  aspects  of  PDE  performance,  such  as  mini¬ 
mum  time  for  refill  at  given  Mach  number  as  a  function 
of  air  inlet  opening,  can  be  obtained.  In  order  to  find 
an  optimum  configuration  satisfying  given  performance 
over  a  wide  flight  regime,  a  more  extensive  simulation 
study  will  be  requited.  It  was  mentioned  earlier  that 
the  simulations  presented  here  were  carried  out  under 
the  assumption  of  inviscid  flow;  boundary  layer  effects 
were  not  included.  The  addition  of  boundary  layers  to 
the  PDE  engine  inlets  and  valves,  the  only  components 
where  boundary  layers  will  be  significant,  will  lead  to  in¬ 
creased  performance.  Rxiughly  the  same  amount  of  fresh 
air  will  flow  into  the  over-expanded  detonation  chamber 
but  at  a  somewhat  slower  rate  and  in  a  pattern  that  will 
promote  enhanced  circulation  and  hence  fuel/ air  mixing. 

A  final  conclusion  can  be  made  concerning  the  ap¬ 
plication  of  PDE’s  to  supersonic  vehicles.  As  shown  in 
the  simulations  the  ability  to  refill  the  detonation  cham¬ 
ber  with  fresh  air  charge  is  a  very  strong  function  of 
valve  and  inlet  geometry.  Refilling  may  also  be  some¬ 
what  enhanced  by  the  self-aspiration  effect,  but;  to  a 
much  less  e.xtent  than  in  the  subsonic  case.  The  exam¬ 
ple  of  supersonic  operation  discussed  in  Section  5  shows 
that  care  must  be  taken  in  design  of  the  inlet  or  valve 
configuration.  The  flow  in  the  chamber  must  allow  for 
refill  and  fuel/air  mixing.  More  than  likely  choked  flow 
conditions  will  be  required  at  the  inlet  entrance  to  the 
chamber.  This  could  lead  to  complications  in  the  design 
of  a  PDE  with  simple  geometry;  choked  flow  conditions 
are  a  function  of  the  external  Mach  number  and  a  fixed 


inlet  will  be  optimal  only  for  a  small  range  of  the  op¬ 
erating  envelope.  On  the  other  hand,  if  a  given  vehicle 
is  to  fly  at  supersonic  speeds  and  is  launched  at  super¬ 
sonic  speeds,  this  problem  may  not  appear.  Further,  if 
the  given  vehicle  is  launched  at  subsonic  speeds  and  a 
booster  is  used  to  bring  it  up  to  the  required  supersonic 
operating  speed,  the  problem  may  again  not  appear.  We 
conclude  that  the  POE  has  potential  for  the  supersonic 
flight  regime  and  it  is  not  excluded  that  a  configuration 
can  be  found  which  will  operate  over  the  flight  regimes 
0.2  <  Mach  number  <  3  in  a  fuel  efficient  manner. 
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a.  Pressure  Contours.  Missile  and  Engine. 


b.  Pressure  Contours.  Detonation  Engine.  c.  Traced  Particles.  Detonation  Engin 


Figure  5.  Supersonic  missile  simulation.  Missile  speed  M  =  2.0.  Time  t  —  0.0. 


a.  Pressure  Contours.  Missile  and  Engine. 


b.  Pressure  Contours.  Detonation  Engine.  c.  Traced  Particles.  Detonation  Engini 


Figure  6.  Supersonic  missile  simulation.  Missile  speed  M  =  2.0.  Time  t  =  2.0  •  10”®  sec. 


a.  Pressiu^e  Coatours.  Missile  and  Engine. 


b.  Pressure  Contours.  Detonation  Engine.  c.  TVaced  Particles.  Detonation  Engine. 


Figure  7.  Supersonic  missile  simulation.  Missile  speed  M  =  2.0.  Time  t  =  2.0  ■  10“'*  sec. 
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Abstract 

We  are  developing  a  model  to  simulate  the  plasma  enhanced  chemical  vapor  deposition  ( PECVD)  of  thin  diamond  films.  The 
emphasis  to  date  has  been  on  the  development  of  stand-alone  modules  to  simulate  the  microwave-induced  time-dependent  electric 
and  magnetic  fields,  the  generation  and  energization  of  plasma  electrons  In  the  discharge,  the  non-equilibrium  hydrocarbon 
chemistry,  and  the  development  of  a  two-dimensional  unstructured  mesh  hydrodynamics  solver  capable  of  simulating  flow 
through  geometrically  realistic  reactors.  The  coupling  of  the  various  modules,  and  the  incorporation  of  a  Surface  chemistry 
module  for  the  substrate  deposition,  into  a  self  consistent  reactor  model  is  underway.  We  present  some  preliminary  results  from 
components  of  a  model  2.45  GHz  microwave  reactor  employing  H.  with  \“A  CH4  and  operating  at  a  gas  pressure  of  5.3  x  10'  Pa 
(40  Torn.  We  have  completed  an  electromagnetic  model  of  the  microwave  energy  deposition  in  the  plasma  and  calculated  the 
held  patterns  in  the  reactor.  We  have  also  performed  point  calculations  of  the  time-dependent  electron  distribution  and  of  the 
build-up  of  atomic  hydrogen,  the  gas  temperature,  and  the  resulting  generation  of  CH,.  C.  H..  and  other  hydrocarbon  radicals. 
We  have  also  completed  a  fluid  simulation  of  the  flow  through  the  reactor  using  unstructured  mesh  techniques.  The  results  we 
discuss  in  this  paper  indicate  that  careful  treatment  of  non-equilibrium  processes  in  PECVD  reactors  as  well  as  accurate 
representation  of  reactor  geometry  are  essential  to  a  useful  simulation  capability. 


I.  Introduction 

The  ability  to  deposit  thin  diamond  films  rapidly 
onto  substrates  with  a  high  degree  of  uniformity  using 
the  plasma  enhanced  chemical  vapor  deposition 
(PECVD)  technique  is  a  high  priority  technology  goal. 
It  is  generally  recognized  that  an  improved  understand¬ 
ing  of  tne  .-nicroscopic  mechanisms  in  PECVD  reactors 
and  of  the  sensitivity  of  the  various  reactor  parameters 
is  needed.  The  important  design  issues  for  PECVD 
reactors  are  as  follows:  efficient  coupling  of  microwave 
energy  to  the  plasma  and  to  the  process  gas;  efficient 
transport  of  activated  process  gas  to  the  wafer  or 
substrate  deposition  area;  efficient  use  of  the  injected 
gas;  uniformity  of  chemically  active  species  flux  across 
the  deposition  area.  It  is  desirable  to  avoid  reactor 
designs  that  have  the  following:  high  microwave  electric 
fields  in  regions  away  from  the  desired  plasma  forma¬ 
tion  location,  leading  to  plasma  discharge  near  chamber 
walls  or  breakdown  of  dielectric  materials;  flow  pat¬ 
terns  which  carry  activated  species  to  the  reactor  walls 
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or  out  through  pumping  ports  rather  than  to  the  wafer; 
stagnant  or  circulating  flow  patterns  above  the  wafer, 
buffering  the  wafer  from  the  desired  chemically  active 
species. 

To  understand  these  issues  and  to  provide  input  to 
improved  reactor  designs  we  are  developing  a  self-con¬ 
sistent  numerical  model  which  simulates  each  of  the 
essential  mechanisms  in  the  PECVD  reactor.  A  physi¬ 
cally  realistic  model  requires  careful  simulation  of  the 
electromagnetics,  the  plasma  physics,  the  neutral  gas 
flow,  and  the  homogeneous  and  heterogeneous  chem¬ 
istry.  Furthermore,  the  different  elementary  processes  m 
the  reactor  are  highly  interactive;  for  this  reason  it  is 
difficult  to  foresee  intuitively  the  impact  of  varying  one 
or  another  reactor  parameter.  For  example,  the  mi¬ 
crowave  source  induces  a  complex,  geometrically  de¬ 
pendent  and  time  varying  electric  field  which  ionizes  the 
gas;  the  resultant  build-up  of  electrons  alters  the  devel¬ 
oping  electric  field  distribution.  The  microwave  energy 
input  heats  the  electrons,  and  the  energetic  part  of  the 
non-Maxwellian  electron  energy  distribution  dissociates 
the  gas,  inducing  a  rise  in  the  gas  temperature.  The 
amount  of  dissociation  and  heating  depends  sensitively 
on  the  high  energy  tail  of  the  electron  distribution 
which  consequently  must  be  accurately  determined.  The 
interaction  of  the  neutral  gas  with  the  plasma  alters  the 
molecular  input  stream  of  H;.  to  include  a  substantial 
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component  of  atomic  hydrogen,  and  this,  in  turn, 
affects  the  ionization  rate  and  the  electron  distribu¬ 
tion.  The  hydrocarbon  chemistry  is  non-equilibrium 
and  both  the  flux  and  the  spatial  distribution  of  ap¬ 
propriate  radicals  reaching  the  wafer  are  very  sensitive 
to  the  geometrical  configuration  of  the  reactor  and 
to  the  details  of  the  flow  configuration  through  the 
reactor. 

We  have  focused  to  date  on  the  development  of 
modules  to  simulate  the  microwave-induced  time-de¬ 
pendent  electric  and  magnetic  fields,  the  generation 
and  energization  of  plasma  electrons  in  the  discharge, 
the  evolution  of  the  molecular  and  atomic  hydrogen 
gas,  the  non-equilibrium  hydrocarbon  chemistry,  and 
the  development  of  a  two-dimensional  unstructured 
mesh  hydrodynamics  solver  capable  of  simulating  flow 
through  geometrically  realistic  reactors.  The  coupling 
of  these  modules,  and  the  incorporation  of  a  surface 
chemistry  module  for  the  substrate  deposition,  into  a 
self  consistent  reactor  model  is  underway.  In  the  next 
section  we  describe  in  some  detail  the  generation  of 
the  microwave  field  and  the  transfer  of  the  field  energy 
to  the  electrons.  This  is  followed  by  preliminary  model 
results  and  our  conclusions. 


2.  Microwave  field  and  plasma  generation 

The  absorption  of  microwaves  and  the  creation  of 
the  plasma  which  transfers  energy  to  the  neutral 
species  in  the  reactor  involves  the  solution  of  two 
closely  coupled  problems.  They  are  (1)  the  determina¬ 
tion  of  the  electromagnetic  field  patterns  in  the  com¬ 
plex  geometry  of  the  reactor  and  (2)  the  formation  of 
the  electron  distribution  function.  At  a  pressure  of 
5.3x10' Pa  (40Torr)  and  a  gas  temperature  in  the 
plasma  region  greater  than  2000  K.  the  mean  free  path 
of  an  electron  with  neutrals  is  approximately 
5  X  10'^  m.  During  the  time  an  electron  gains  the  av¬ 
erage  electron  energy  (approximately  2  eV)  typical  of 
the  reactors  we  are  modeling,  it  undergoes  around  150 
collisions  and  has  a  mean  displacement  of  approxi¬ 
mately  7  X  lO'^'m.  Thus,  to  an  excellent  approxima¬ 
tion.  the  heating  of  the  electrons  results  from  the 
microwave  electric  fields  which  are  local  to  the  e!ec- 
tron  s  spatial  location. 

The  electron  distribution  function  satisfies  the  Boltz¬ 
mann  equation.  Because  an  electron  undergoes  many 
collisions  as  it  is  heated,  the  distribution  function  is 
nearly  isotropic  and  can  be  well  approximated  by  the 
zero  and  first  c  der  terms  of  a  spherical  expansion,  the 
latter  representing  a  distortion  of  the  distribution  func¬ 
tion  in  the  direction  of  the  applied  field,  oscillating  at 
the  microwave  frequency  w.  The  equation  for  the  elec¬ 
tron  distribution  function  is 


ir/e£.,Y  1  f  /  ,  rF.,\ 

v-cv\  (  V  J 

=  L,  +  L^-^X~(v\,Fa) 

where  £„  is  the  amplitude  of  the  electric  field,  e, 
and  V  are  the  electron  charge,  mass,  and  velocity  re¬ 
spectively,  v„  is  the  electron  momentum  transfer  fre¬ 
quency.  £(,  is  the  zero  order  approximation  to  the 
distribution  function.  V  is  the  bulk  fluid  velocity,  M  is 
the  neutral  mass,  and  L,  and  £,  are  the  inelastic  loss 
terms  that  affect  the  distribution  function  respectively 
via  ionization  and  excitation  of  rotational,  vibrational, 
and  electronic  levels.  The  first  term  on  the  left  repre¬ 
sents  the  electron  velocity  diffusion  due  to  the  cumula¬ 
tive  affect  of  many  small  angle  scatterings  of  the 
electron  induced  by  the  oscillating  elecinc  field.  The 
next  two  terms  give  the  affect  of  the  divergence  of  the 
diffusive  and  convective  fluxes  respectively.  The  last 
term  on  the  right  gives  the  energy  loss  due  to  elastic 
collisions. 

Below  a  critical  electric  field  the  ionization  rate  is 
exceedingly  small  and  hence  the  electron  density  and 
power  deposited  per  unit  volume  are  also  small.  Above 
the  critical  field  the  ionization  rate  and  power  deposi¬ 
tion  increase  rapidly.  If  the  power  deposition  is  kept 
approximately  constant  and  equal  to  the  power  injected 
into  the  reactor  the  electric  field  will  rapidly  adjust  to  a 
level  close  to  the  breakdown  value.  The  power  de¬ 
posited  per  unit  volume  scales  as  Eo'n^.  where  is  the 
electron  density:  as  the  electron  density  rises  the  electric 
field  drops.  The  above  considerations  provide  the  neces¬ 
sary  prescription  for  determining  the  time-dependent 
evolution  of  the  electric  field,  the  electron  density,  and 
the  electron  energy  distribution.  Using  a  set  of  elastic 
and  inelastic  cross-sections,  the  last  two  parameters 
define  the  time-dependent  evolution  of  the  fluid,  includ¬ 
ing  the  build-up  of  atomic  hydrogen  and  :I',c  rise  in  the 
gas  temperature  as  the  gas  dissociates.  In  addition  to 
H,  and  H,  the  Boltzmann  calculation  monitors  the 
evolution  of  H;.*.  K/.  H^.  and  H'  and  separately 
tracks  each  of  the  three  lowest  vibrational  levels  of  H;. 
The  hydrocarbon  chemistry  is  initiated  by  energetic 
electrons,  but  being  trace  constituents  the  hydrocarbons 
do  not  significantly  affect  the  electron  development.  It 
is  useful  to  take  advantage  of  the  separation  of  time 
scales  inherent  in  this  problem.  The  electron  distribu¬ 
tion  function  is  established  on  a  time  scale  of  around 
10'*  s,  the  electron  density  growth  occurs  over  approx¬ 
imately  1  ps.  and  the  hydrogen  dissociation  and  hydro¬ 
carbon  chemistry  as  well  as  fluid  convection  and 
diffusion  occur  on  a  millisecond  time  scale. 
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3.  Results 

We  present  calculations  from  the  modules  of  the 
PECVD  model  that  have  been  constructed  and  tested. 
The  results  obtained  are  designed  to  identify  important 
physical  mechanisms  and  to  determine  the  regimes 
where  they  are  critical.  The  calculation  of  the  electric 
and  magnetic  fields  was  accomplished  using  SAIC's 
MASK  code,  a  general  two-dimensional  electromagnetic 
code  designed  for  the  study  of  microwave  devices  of 
arbitrary  geometrical  configuration.  The  code  introduces 
the  electric  fields  at  the  input  port  and  allows  them  to 
propagate  into  the  reactor,  which  can  include  arbitrarily 
shaped  regions  of  dielectric  or  conducting  bodies.  It 
employs  a  finite  difference  representation  of  the  full  set 
of  time-dependent  Maxwell  equations  and  solves  the 
initial  value  problem.  Figure  1  shows  the  results  of  a 
simulation  for  a  generic  reactor  in  which  the  plasma  is 
modeled  as  a  spherical  shell  with  a  finite  conductivity 
and  a  finite  dielectric  constant.  Ultimately  the  plasma 
model  will  be  replaced  by  results  of  Boltzmann  calcula¬ 
tions  over  the  plasma  region.  The  MASK  calculation 
retains  both  the  field  strength  and  the  phase  dependence 
and  determines  the  energy  deposition  in  the  target 
plasma.  The  results  shown  are  contours  of  constant  field 
amplitude  for  the  axial  ( a)  and  radial  ( b)  electric  compo¬ 
nents  in  an  azimuthaily  symmetric  configuration.  The 
bottom  horizontal  line  is  the  axis  of  symmetry.  The  input 


Fig.  I.  MASK  calculation  of  (a)  the  axial  and  lb)  the  radial  compo¬ 
nents  of  the  electric  field  in  a  model  reactor.  Shown  in  the  figure  are 
contours  of  constant  amplitude.  The  reactor  axis  is  the  bottom 
honzontal  line.  The  substrate  shelf  is  at  the  right  and  the  outlet  for  the 
reacting  gases  is  above  it.  The  plasma  shell  is  centered  on  the  axis  to 
the  left  of  the  substrate. 


ELECTRON  DENSITY  (M'^) 


TIME  (S) 

Fig.  2.  Time  development  of  the  electron  density  at  a  point  in  the 
reactor  of  high  electric  field  corresponding  to  the  one-point  simulation 
described  in  the  text. 


wave  is  introduced  on  the  left  and  propagates  into  the 
reactor  region  through  a  radially  expanding  transition 
region.  The  substrate  is  on  the  right  in  the  figure  and 
immediately  above  it  is  the  outlet  for  the  reacting  gases. 
The  figure  indicates  regions  of  high  and  low  field  concen¬ 
tration  which  will  provide  an  important  tool  for  reactor 
design.  This  calculation  determines  the  energy  deposi¬ 
tion  in  the  plasma  and,  hence,  the  reactor  efficiency. 
When  performed  seif  consistentiy  it  also  predicts  the 
shape  of  the  plasma  region  and  the  subsequent  coupling 
to  the  hydrodynamic  calculation. 

The  Boltzmann  module  calculation  simulates  the  elec¬ 
tron  and  heavy  panicle  evolution  at  a  location  within  the 
reactor  where  the  electric  field  is  sufficiently  high  to 
create  and  sustain  a  plasma.  We  maintain  a  constant 
deposited  microwave  power  and  assume  the  gas  pressure 
is  kept  constant  at  5.3  x  10’  Pa  (40Torr).  The  simula¬ 
tion  runs  for  several  milliseconds.'  beyond  which  time 
advection  and  diffusion  effects,  not  included  in  this 
calculation,  would  become  irnportant.  The  initial 
conditions  are  [Hj]  =  1.28  x  10^^  m  ’.  (CH4]  =  1.28x 
10^^  m  \  gas  temperature  T  =  300  K.  Figure  2  shows 
the  electron  density  rising  rapidly  to  approximately 
10'’  m"’  in  around  1  ns,  a  result  of  the  very  energetic 
electron  distribution  at  early  times.  Thereafter,  it  in¬ 
creases  nearly  two  more  decades  over  about  10'’  s,  the 
slower  increase  being  reflective  of  the  less  energetic 
electron  spectrum  as  the  electrons  give  up  energy  to  the 
various  inelastic  processes.  The  increase  on  a  millisecond 
lime  scale  is  associated  with  the  conversion  of  the  gas 
from  the  molecular  to  the  atomic  state  which  leads  to  an 
increasing  fraction  of  atomic  ions  (which  recombine 
much  more  slowly  than  molecular  ions)  and  also  causes 
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an  adjustment  in  the  electron  distribution  function.  The 
evolution  of  the  electron  distribution  function  as  deter¬ 
mined  by  the  Boltzmann  equation  is  illustrated  for 
these  three  time  regimes  in  Fig.  3  in  which  the  ordinate 
scale  is  arbitrary.  In  Fig.  3(a)  at  1.5  ns  we  see  the  very 
energetic  electron  spectrum;  the  average  electron  energy 
IS  around  8  eV.  In  Fig.  3(b)  at  55.2  ns  the  average 
energy  has  dropped  to  2eV  and  in  Fig.  3(c)  at  4.8  ms 
when  atomic  hydrogen  predominates,  the  spectrum  has 
changed  again,  the  average  electron  energy  increasing 
moderately  to  about  2.7  eV. 

The  evolution  of  the  hydrocarbon  species  is  simu¬ 
lated  with  a  chemistry  code  that  uses  the  output  of  the 
Boltzmann  code.  The  reactions  used  in  the  hydrocarbon 
model  are  listed  in  Table  1  along  with  the  constants  A, 
h.  and  E  which  determine  the  rate  coefficient  k  accord¬ 
ing  to  k  =AT^cxp{-EIT).  The  code  calculates  the 
rate  for  each  reverse  reaction  that  is  not  known,  using 
detailed  balance.  The  hydrocarbon  chemistry  is  ini¬ 
tiated  by  the  electrons  which  dissociate  (and  also  the 
CHj),  causing  the  release  of  chemical  energy  and  heat¬ 
ing  the  gas.  Figure  4  shows  the  gas  temperature  as  a 
function  of  time  for  the  simulation  described  above.  In 
Fig.  3  we  show  the  evolution  of  12  hydrocarbon  species 
plus  Hj  and  H  out  to  3  ms.  at  which  time  the  H-  and  H 
densities  are  approximately  equal.  Although  the  forma¬ 
tion  of  H  is  initiated  by  the  electron  dissociation  of  H,, 
after  about  2.5  ms  with  rise  in  temperature,  thermal 
dissociation  of  H-  becomes  predominant.  The  build-up 
of  CH,  due  to  the  dissociation  of  CH4  occurs  very  early 
(approximately  30  us)  but  it  reacts  with  itself  to  form 
CjHft  and  drops  to  a  local  minimum  before  i  ms.  As 
the  temperature  increases,  however,  the  CHj  recombi¬ 
nation  reaction  rate  decreases  and  CHj  increases  to  a 
new  maximum  near  2  ms:  thereafter  it  decreases  once 
more  as  the  CH4  becomes  exhausted.  Acetylene  (QHi) 
results  from  the  chain  of  reactions  initiated  by  the 
formation  of  CiHs,  thence  to  C>Hj  and.  in  turn,  to 
C2H4,  CjH,  and  finally  to  CjH,  which  persists  to  the 
end  of  the  simulation.  In  general,  the  hydrocarbon 
species  do  not  have  time  to  reach  the  equilibrium  values 
that  the  gas  temperature  would  dictate.  Thus,  the  time 
between  their  formation  in  the  plasma  and  their  reach¬ 
ing  the  substrate  determines  the  densities  of  the  critical 
radical  species  reaching  the  substrate. 


Fig,  3.  Electron  energy  distribution  for  ihe  simulation  as  in  Fig.  2. 
(a)  at  a  time  before  inelastic  processes  reduce  the  average  electron 
energy;  (bl  at  an  intermediate  nmr  when  the  average  electron  energy 
IS  about  2cV;  (c)  at  a  time  when  dissociation  of  the  H,  is  nearly 
complete.  The  ordinate  scale  is  arbitrary 
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TABLE  I.  Hydrocarbon  reactions  and  rate  coefficients 


Reaction 

h 

£(K) 

RangetK) 

2.7  X  lO-'* 

-0.6 

0 

100-  5000 

+  +  H  + 

I.S  X  10-* 

0 

4.84  X  10* 

2500-8000 

CH4  +  H-CH,  +  H, 

3.6  X  10--“ 

3.0 

4.40  X  10' 

300-2500 

CH,-I-H,-.CH4  +  H 

I.I  X  10--' 

3.0 

3.90  X  10' 

300-2500 

0 

X 

0 

4.45  X  10* 

1500-3000 

+  H  +  + 

-j  w  10*-* 

-3.0 

0 

300-2500 

CH,  +  CH,-.C,H5  +  H 

1.3  X  10-“ 

0 

1.34  X  10* 

1500-3000 

C.Hj  +  H-CH, +CH, 

5.0  X  I0-" 

0 

0 

300-1500 

CH,  +  CH,-C,H4  +  H, 

1.7  X  IO-“ 

0 

1.61  X  10* 

1500-2500 

,l5:2!l.7x  io-« 

0 

4.56  X  10* 

1500-3000 

CH.  +  H-CH  +  H, 

6.6  X  10-" 

0 

0 

300-  2500 

CH,  +  CH,-.C,H4  +  H 

6.6  x  I0-" 

0 

0 

300-2500 

C,H*  +  H-C,H5  +  H, 

9.0  X  10--- 

3.5 

2.62  X  10' 

300-2000 

C,Hs  +  CH,-.C,H,  +  CH4 

9.1  X  10--’ 

4.0 

4.17  X  10' 

300-2000 

C:H„  +  4?'44,^CH,  +  CH,  +  ch’4 

X 

0 

1 

0 

3.43  X  10* 

800-2500 

C,  H  j  +  C,  H  j  -  C,  H4  +  C,  H4 

2.3  X  10-" 

0 

0 

300-1200 

C:H,  +  A'-, -^C,H4  +  H + 

1.7  X  10-’ 

0 

1.56  X  10* 

700-1500 

C,H4  +  H-C,H, +  H, 

1 

0 

X 

ri 

0 

5.14  X  10' 

700-2000 

lei 

X 

0 

0 

3.99  X  10* 

1500-2500 

C.H4  +  A'u-C,H,  +  H  +  ,»4. 

,!i!:!4.3  X  10-’ 

0 

4.86  X  10* 

1500-2500 

C,H4+CH,-.C,H, +CH4 

7.0  X  10-" 

0 

5.59  X  10' 

300-1000 

C,H, +  H-C,H,  +  H, 

3.3  X  10-" 

0 

0 

300-2500 

,li.X;5.0  X  10-* 

0 

1.61  X  10* 

500-2500 

,iJ:2!i.ii  X  lO-*" 

0 

3.5  X  10-' 

300-500 

C.H, +  H-.C,H  +  H, 

1.0  X  10-'“ 

0 

1.19x  10* 

300-  3000 

C>H'+H,-.C,H,  +  H 

2.5  X  I0-" 

0 

1.56  X  10' 

300-3000 

C,H2  +  CH,-C,H,  +  H 

3.0  X  10-'= 

0 

0 

>298 

C,H,  +  C,H-.C4H.  +  H 

5.8  X  I0-" 

0 

0 

300-2500 

,|=:’j6.6  X  10-« 

0 

5.38  X  10* 

1500-3500 

■“n  denotes  the  number  of  reactants. 


Time  (ms) 

Fig.  4.  Evolution  of  the  gas  temperature  for  the  simulation  as  m  Fig. 


Finally,  we  present  preliminary  results  of  a  fluid 
simulation  of  a  generic  PECVD  reactor,  using  SAIC’s 
FUGG  code  which  is  capable  of  performing  fluid  calcu¬ 
lations  over  arbitrarily  complex  geometries.  The  code 


employs  an  unstructured  grid  allowing  extremely  fine 
resolution  in  critical  areas  while  employing  coarser 
gridding  in  regions  where  quantities  vary  slowly.  The 
code  was  designed  for  the  study  of  flow  problems 
dominated  by  convection  and  is  presently  being 
modified  to  incorporate  thermal  conduction  and  viscos¬ 
ity  effects.  In  Fig.  6  we  show  two  examples  of  the  code’s 
triangular  gridding  capability.  In  both  cases  a  cross- 
section  of  the  azimuthaliy  symmetric  model  reactor  is 
shown,  where  the  left  vertical  boundary  represents  the 
reactor  axis.  Three  gas  inlet  ports  are  modeled  allowing 
the  gas  to  enter  at  the  top  (in  Fig.  6(a)  the  plenum 
region  above  the  inlet  ports  is  also  modeled).  The  gas 
exits  through  the  horizontal  boundary  at  the  bottom 
right.  The  substrate  wafer  is  represented  in  Fig,  6(  a)  by 
the  left  half  of  the  lower  horizontal  boundary  and  in 
Fig.  6(b)  by  the  shelf  at  the  lower  left.  In  Fig.  6(a)  the 
variable  gridding  capability  is  clearly  illustrated  and,  in 
particular,  the  fine  gridding  needed  in  the  inlet  ports  is 
shown.  Figure  7  shows  results  of  a  fluid  calculation  for 
the  reactor  of  Fig.  6(b)  in  which  hydrogen  gas  enters  at 
50ms''  at  a  pressure  of  5.3  x  10^  Pa  (40Torr).  A 
heating  source  of  1.5  kW  over  a  spherical  volume  of 
radius  0.035  m,  centered  oh  the  reactor  axis  and  mid- 
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Fig,  7.  Velocity  field  for  reactor  of  Fig.  6tb)  in  which  enters  at  a 
velocity  of  50ms  '  at  a  pressure  of  5.3  x  10' Pa  (40 Torn,  A  heat¬ 
ing  source  of  1.5  kW  to  simulate  the  effect  of  the  plasma  is  centered 
on  the  axis  between  the  inlet  port  and  the  wafer  in  a  spherical 
volume  of  radius  0.035  m.  The  ordinate  and  abscissa  dimensions  are 


Fig.  6.  Examples  of  the  FUGG  code's  unstructured  gridding  capability  for  two  model  reactors  ((a)  and  (bl). 
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way  between  the  inlet  port  and  the  wafer,  is  included  to 
simulate  approximately  the  effect  of  the  plasma  source. 
Shown  are  velocity  vectors  for  the  flow  2.6  ms  after  the 
plasma  is  turned  on.  Also  calculated  but  not  shown  are 
the  pressure,  density,  and  temperature  fields.  While 
conclusions  should  be  tempered  because  of  the  current 
lack  of  inclusion  of  thermal  effects  in  the  code  and 
because  the  results  represent  a  transient  pre-steady-state 
stage,  the  elfccts  of  buoyancy  are  apparent.  The  com¬ 
plex  vortex  flows  seen  suggest  this  reactor  configuration 
would  be  very  poor  for  efficient  diamond  deposition. 

4.  Discussion  and  conclusions 

We  have  presented  results  of  a  model  under  develop¬ 
ment  that  will  permit  the  simulation  of  PECVD  reac¬ 
tors  of  arbitrary  geometry.  The  model  will  be  an  impor¬ 
tant  tool  providing  better  understanding  of  the  micro¬ 
scopic  processes  occurring  within  the  reactor,  permit 
parameter  studies  to  identify  those  parameters  which 
critically  atfect  both  the  rate  of  deposition  and  the 
uniformity  of  the  deposition  over  the  wafer  surface,  and 
ultimately  enable  the  design  of  improved  reactors.  We 
have  identified  several  critical  elements  in  the  modeling 
effort  that  need  to  be  treated  carefully  if  simulation 
results  are  to  be  meaningful.  First,  the  electromagnetic 
fields  which  initiate  the  plasma  formation  need  to  be 
determined  in  the  realistic  reactor  geometry,  including 


effects  of  all  metallic,  dielectric,  and  insulator  elements 
actually  present,  to  ensure  that  the  fields  are  high  in  the 
desired  plasma  formation  region  but  not  elsewhere. 
Second,  the  coupling  of  the  fields  to  the  plasma  elec¬ 
trons.  to  determine  accurately  both  the  time  develop¬ 
ment  of  the  electron  density  and  their  energy 
distribution,  is  most  important  for  determining  the 
evolution  of  the  rate  of  hydrogen  dissociation  and  the 
rise  in  the  gas  temperature.  This,  in  turn,  critically 
determines  the  non-equilibrium  hydrocarbon  chemistry 
development,  a  third  area  that  needs  to  be  carefully 
modeled.  Finally,  the  flow  of  hydrocarbon  radicals  to 
the  wafer  is  very  sensitive  to  the  reactor’s  geometrical 
configuration,  its  thermal  properties,  and  the  location 
of  the  plasma  relative  to  the  wafer.  In  conclusion,  our 
results  emphasize  the  highly  non-equilibrium  and  cou¬ 
pled  nature  of  PECVD  reactor  processes  and  the  strong 
influence  of  reactor  geometry.  A  numerical  simulation 
that  is  useful  must  address  all  such  issues. 
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1.  INTRODUCTION 

Very  recently,  there  have  been  exploratory  efforts  in  image  processing  based  on  nonlinear 
methodsJ'J  These  efforts  involve  systems  of  nonlinear  hyperbolic  partial  differential  equations  in 
combination  with  local  wave  representation,  such  as  wavelets,  for  signal  enhancement  Tech¬ 
niques  based  on  Kalman  filtering  for  feature  extraction  from  complex  time-evolving  scenes,  as  well 
as  neural  network  approaches  to  image  analysis  and  feature  identification,  cein  also  be  shown  to 
involve  nonlinear  PDE  analogies.  The  use  of  nonlinear  methods,  however,  is  largely  unexplored 
and  may  provide  another  level  of  improvement  for  image  processing. 

If  the  purpose  of  an  image  enhancement  process  is  to  highlight  the  edges  of  an  image,  then  the 
technique  used  in  the  frequency  domain  is  usually  highpass  filtering.  An  image  can  be  blurred,  how¬ 
ever,  by  attenuating  the  high-frequency  component  of  its  Foxirier  transform.  Since  edges  and  other 
abrupt  changes  in  the  gray  levels  are  associated  with  high-frequency  components,  image  sharp¬ 
ening  can  be  achieved  in  the  frequency  domain  by  a  highpass  Mtering  process,  which  attenuates 
the  low-frequency  without  disttirbing  high-frequency  information  in  the  Fourier  transform-  The 
primary  problem  with  this  technique  is  that  an  ide^  discontinuity  will  have  an  infinite  spectrum 
of  frequencies  associated  with  it.  When  filtering  is  applied,  some  frequencies  are  cut  off,  leading  to 
a  loss  of  some  edges  in  an  image. 

It  is  interesting  to  observe  that  in  the  field  of  Computational  Fluid  Dynamics  (CFD)  similar 
problems  exist  in  simulating  flows  with  discontinuities.  The  problem  of  simulating  flows  with  dis¬ 
continuities  is  less  forgiving,  since  an  incorrect  calculation  usually  leads  to  a  complete  distortion 
of  the  flow  field.  This  has  led  CFD  scientists  to  develop  sophisticated  algorithms  that  identify 
and  preserve  discontinuities  while  integrating  the  flow  field  in  the  computational  domain.  In  the 
image  domain,  sharpening  is  usually  done  by  differentiation.  The  most  commonly  used  methods 
involve  the  use  of  either  gradients  or  second  derivatives  of  the  pixel  information.  Central  differ¬ 
encing  is  usually  used  to  calculate  the  derivatives.  CFD  research  has  shown  that  this  strate^  will 
lead  in  many  cases  to  a  smearing  of  the  flow  discontinuities  (analog  of  the  image  edges  in  image 
enhemcement). 

Here,  we  describe  a  new  and  unique  image  sharpening  method  based  on  compu¬ 
tational  techniques  developed  for  CFD.  Our  preliminary  experience  with  this  method  shows 
its  capability  for  nonlineatr  enhancement  of  image  edges  as  well  as  deconvolution  of  an  image  with 
random  noise.  This  indicates  a  potential  application  for  image  deconvolution  from  sparse  and  noisy 
data  resulting  from  measurements  of  backscattered  laser-speckle  intensity. 


^Present  address:  Brookhaven  National  Lab.,  Apton,  NY  11973 


0-at94  -0695 -3/9!  /S4  00 


SPI£  Vol.  1567  Applications  of  Digital  Image  Processing  XIV  09911/  439 


2.  THE  CFD  IMAGE  ENHANCEMENT  TECHNIQUE 

Considerable  attention  has  been  devoted  to  the  development  of  numerical  methods  and  algo¬ 
rithms  for  Computational  Fluid  Dynamics  during  the  last  thirty  years.  In  recent  years,  however, 
our  understanding  of  numerical  algorithms  for  a  particular  class  of  problems  in  gcis  dynamics  de¬ 
scribed  by  the  Euler  equations  has  become  more  complete.  The  main  numerical  difficulty  :r.  solving 
invisid  compressible  flows  described  by  Euler  equations  is  the  occurrence  of  features  that,  in  the 
invisid  approximation,  are  discontinuous  eind  even  in  the  presence  of  viscosity  are  too  small  to  be 
resolved  on  an  affordable  computational  mesh.  These  flow  discontinuities  in  which  the  fluid  state 
jumps  across  shock  waves  or  contact  surfaces  are  extremely  important  in  fluid  simulations.  Most 
of  the  efforts  in  developing  numerical  techniques  in  fluid  dynamics  over  the  laist  twenty  years  were 
devoted  to  accurate  simulations  of  these  discontinuities.  Initially,  naive  numerical  methods  that 
used  a  formal  finite  difference  representation  of  the  conservation  equations  on  a  computational 
grid  were  employed.  That  led  to  disastrous  results,  smearing  of  the  discontinuities,  and  spurious 
oscillations.  Subsequently,  sophisticated  nonlinear  techniques,  which  allowed  accurate  simulations 
of  complex  discontinuities  without  smearing  and  ringing,  were  developed.  These  new  methods  also 
satisfy  a  very  demanding  criteria  for  robustness  and  allow  simulation  of  the  wide  range  of  flow 
problems  without  adjustment  or  tuning  of  the  numerical  technique. 

The  numerical  methods  that  allow  high  accuracy  resolution  of  flow  discontinuities  are  so-called 
TVD  (Total  Variation  Diminishing)  methods.  The  Second  0,uer  Godimov  Method  is  one  of  the 
most  successful  niune*'’  'al  techniques  developed  for  this  purpose.  In  Figure  1,  an  example  is  given 
of  a  solution  using  the  Second  Order  Godimov  Method  for  a  complicated  case  of  multiple  shock 
waves,J®J  illustrating  the  ability  of  this  method  to  capture  and  simulate  sharp  discontinuities. 

The  Second  Order  Godunov  Method  was  developed  based  on  an  understanding  of  the  phe¬ 
nomenology  of  signal  propagation  in  the  gasdynamical  system.  The  numerical  algorithm  imple¬ 
menting  this  method  is  not  analytic  and  is  based  on  a  set  of  steps  that  can  be  considered  as  wave 
filters.  These  filters  axe  designed  to  not  smear  the  discontinuity  (edge),  suppress  the  spurious  os¬ 
cillations,  and  propagate  the  relevant  signals  through  the  system.  The  following  algorithmic  steps 
are  performed  to  advance  the  solution  for  a  single  iteration  in  the  Second  Order  Godunov  Method; 

1.  Local  Extrapolation 

2.  Monotonicity  Constraint 

3.  Characteristics  Constraint 

4.  Riemann  Problem  Solution 

57  Integration 

It  is  interesting  to  note  that  most  of  these  steps  have  an  analog  in  conventional  image  processing 
methods.  Here,  we  will  give  an  explanation  of  the  function  of  each  algorithmic  step  of  the  Second 
Order  Godimov  Method  and  where  applicable,  will  point  to  its  possible  analog  in  conventional 
signal  processing  techniques. 

Step  1  consists  of  extrapolation  of  the  values  in  the  computational  grid  (pixel)  cell  to  the 
edges  of  the  cell.  Linear  or  nonlinear  extrapolation  can  be  used.  This  step  is  analogous  to  the 
standard  edge  sharpening  techniques  used  in  image  processing,  with  one  important  difference:  the 
extrapolation  is  done  not  for  the  value  itself  but  for  its  flux  (change  of  value  across  cell  boundary  ). 

Step  2  includes  a  monotonicity  constraint  for  the  values  at  the  cells’  edges.  This  is  analogous 
to  the  nonlinear  technique  of  the  locally  monotonic  regression!®]  only  recently  introduced  for  signal 
processing. 
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Step  3  subjects  the  values  at  the  edges  to  the  constraints  derived  from  a  solution  of  one  dimen¬ 
sional  characteristics.  This  step  assures  that  the  values  at  the  edges  have  not  been  extrapolated 
from  directions  inconsistent  with  the  characteristic  solutions.  This  prevents  extrapolation  as  well 
as  smearing  or  overshoot  of  the  discontinuities.  For  the  image  processing  application,  this  can  be 
regarded  as  a  form  of  automatic  edge  detection  step  where  the  shock  waves  are  associated  with  the 
edges  of  an  image. 

Step  4  uses  an  exact  solution  of  the  system  of  the  gas  dynamic  equations  for  calculation  of 
the  flux  values  based  on  the  extrapolated  values  of  the  parameters  at  the  left  and  right  side  of 
the  edges.  This  step  has  no  analogy  in  image  processing.  However,  since  the  analytical  solution 
includes  discontinuities,  an  exact  calculation  of  the  flux  at  the  edge  location  is  allowed,  even  if  this 
flux  is  calculated  through  a  discontinuity. 

Step  5  consists  of  finite  volume  integration  of  the  system  of  conservation  laws.  Here,  the  image 
is  effectively  treated  as  a  flow  field;  the  flux  integration  serves  as  a  smoothing  filter  from  the  image 
perspective. 

Application  of  these  steps  can  be  considered  as  the  application  of  a  unique  filter  stack  with 
proven  properties  of  discontinuity  preservation  and  robustness.  Below  we  illustrate  uses  of  this 
technique  for  practical  problems  of  image  processing  that  exemplify  the  feasibility  and  advantages 
of  this  approach. 

The  use  of  image  analogies  for  image  processing  is  not  new.  One  widely  applied  technique 
treats  an  image  as  a  potential  field  where  the  image  potential  acts  as  a  force  on  the  edges  that  are 
represented  as  elastic  curves  with  some  elastic  properties.^^^  Our  approach,  as  stated,  involves  an 
application  of  a  technique  developed  for  gas  dynamic  problems  for  image  deconvolution.  Although 
tWs  technique  is  very  new,  an  anzdysis  of  the  basic  steps  presented  above  and  our  experience  with  its 
application  for  image  deconvolution  show  that  this  nonlinear  algorithm  has  considerable  potential 
for  edge  enhancement  and  filtering  of  extremely  noisy  signals. 

3.  IMAGE  ENHANCEMENT 
BY  THE  SECOND  ORDER  GODUNOV  METHOD 

The  field  of  gray  scale  intensity  of  an  image  can  be  treinslated  into  a  flow  field.  To  every  image 
pixel  we  add  a  corresponding  cell  of  the  computational  domain  with  values  of  the  gas  dynamical 
psu’ameters  proportional  to  the  values  of  the  gray  scale.  Since  there  are  at  least  five  gasdynamical 
parameters  that  can  be  defined  in  every  cell  of  the  computational  domain  (pressure,  density,  two 
velocity  components  and  7)  and  only  one  parameter  in  the  image  domain,  cell  mapping  is  not 
unique.  Our  understanding  of  the  basic  gasdynamical  processes  plays  a  major  role  in  completing  the 
analogy.  Appropriate  mapping  of  the  image  gray  scale  intensity  into  a  flow  field  creates  conditions 
favorable  for  the  formation  or  enhancement  of  field  discontinuities.  For  example,  a  shock  v.'ave 
reflecting  from  a  waU  or  a  contact  surface  can  increase  in  strength,  or  two  colliding  flow  streams 
will  produce  a  contact  surface  that  will  become  stronger  in  time.  If  we  have  a  numerical  techmque 
to  resolve  these  discontinuities  accurately,  then  with  successive  numerical  integration  of  the  flow 
field,  the  discontinuities  will  sharpen  as  the  solution  evolves  in  time.  Then  by  inverse  mapping  of 
the  flow  field  to  the  image  gray  scale  field,  we  can  reconstruct  an  enhanced  image.  Below  we  give 
some  examples  of  practical  application  of  this  technique. 

3.1.  Edge  sharpening  for  a  sinusoidal  distribution 

In  Figure  2  results  are  given  for  edge  definition  of  a  one  dimensional  signal.  The  original 
sinusoidal  signal  is  shown  in  Figure  2a.  This  example  was  chosen  to  test  the  ability  of  our  technique 
to  identify  the  edges  of  an  image  where  the  signal  strength  has  deteriorated  in  the  vicinity  of  the 
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edges,  producing  a  gradued  (instead  of  sharp)  increase  in  the  gray  scale  intensity.  We  observe  that 
application  of  our  technique  results  in  significant  sharpening  of  the  edges,  even  after  :  5  or  more 
iterations. 

In  Figure  3  random  noise  has  been  added  to  the  sinusoidal  signal  shown  in  Figt;  2a.  The 
level  of  random  noise  addition  corresponds  to  10%  of  the  maximum  intensity  of  the  or:  ol  signal. 
The  original  signal  with  the  random  noise  is  shown  in  Figure  3a.  In  Figures  3b.  3c.  e  observe 
successive  noise  filtering  and  edge  enhancement  with  application  of  our  algorithm  fo:  .5,  30.  and 
45  interations  correspondingly.  We  see  that  the  edges  of  the  final  processed  signal  :  located  at 
exactly  the  same  position  as  shown  in  Figure  2d  for  the  uncontaminated  signal. 

Figure  4  illustrates  the  application  of  our  algorithm  to  the  signal  that  has  been  contaminated 
with  50%  addition  of  random  noise.  Significant  noise  filtering  occurs  after  15  iterations  and  edge 
definition  at  the  exact  original  locations  after  45  iterations. 

In  Figure  5  the  results  are  shown  for  a  signed  with  100%  random  noise  added.  Here  again  the 
signal  is  quickly  filtered  and  the  edges  are  picked  up  exactly  at  the  correct  locations. 

3.2.  Edge  sharpening  for  a  two  dimensional  image 

Figure  3  contains  a  picture  of  Washington.  DC  taken  from  a  Russian  satellite.  Digital  repre¬ 
sentation  of  this  picture  had  150  dots  per  inch  resolution.  A  fragment  of  the  picture  shown  in  Figure 
6  is  represented  on  an  evenly  spaced  400  x  360  grid.  We  take  the  gray  scale  pixel  information  of 
this  picture  and  convert  the  data  into  initial  conditions  for  a  gasdynamic  problem  by  assigning  the 
values  of  pressure  and  density  in  the  computational  domain  directly  proportional  to  the  values  of 
the  pixels  on  the  gray  scale.  Now  the  gasdynamic  problem  is  defined  and  we  can  solve  it  using 
our  high  resolution  Second  Order  Godunov  Method.  In  Figures  7a,  7b,  and  7c  results  in  the  pixel 
plane  are  shown  after  three,  six,  tind  nine  iterations  respectively  in  the  gasdynamic  domtiin.  By 
“iteration,”  we  mean  that  the  flow  solver  integration  algorithm  was  applied  to  the  given  flow  field, 
or  in  this  case,  tlie  pressure  and  density  data  derived  from  the  initial  picture.  Even  after  three 
iterations,  the  picture  is  significantly  sharper  and  continues  to  improve  with  more  iterations. 

A  more  detailed  examination  of  the  sharpening  effect  can  be  obtained  by  looking  at  the  one¬ 
dimensional  cross  section  of  the  picture  plane.  In  Figure  8,  an  arbitrary  cross  section  of  the  original 
picture  shown  in  Figure  6  is  given.  For  clarity  we  show  only  the  first  fourth  of  the  actual  pixels  in 
the  cross  section.  We  can  see  here  that  this  ptu'ticular  cross  section  contains  a  multitude  of  sharp 
edges  expressed  only  by  three  or  four  points.  Further  sharpening  of  these  edges  by  a  standard 
differentiation  technique  will  lead  to  significant  smearing  of  a  number  of  the  discontinuities.  In 
Figure  9,  the  same  cross  section  is  shown  after  three  iterations  with  the  Second  Order  Godunov 
solver.  Significeint  enhancement  of  all  the  sharp  edges  is  evident.  The  process  of  enhancement  can 
be  followed  in  Figures  6b,  6c  and  6d  corresponding  to  six,  nine,  and  twelve  iterations.  Continuous 
improvement  in  the  definition  of  edges  can  be  observed. 

In  Figures  10,  11a,  lib,  11c,  and  lid,  we  demonstrate  the  ability  of  the  current  nonlinear 
PDE  methodology  to  enhance  simultaneously  the  high  and  low  frequency  features  of  an  image. 
The  amplitudes  of  both  short  and  long  wavelengths  are  simultaneously  enhanced.  However,  as 
seen  in  the  circled  area,  long  wavelength  features  that  retain  one  grid-cell  discontinuities  exhibit 
interesting  behavior  in  that  the  cell-specific  discontinuity,  which  appears  in  Figure  10.  disappears 
in  Figures  lib  and  11c,  but  reappears  in  Figure  lid.  The  long  wavelength  definition  continues  to 
be  enhanced  in  Figures  11a- lid.  The  origin  of  this  behavior  is  presently  unknown. 
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3.3.  AoDlicaiion  to  Medical  Imaging 

Images  of  interned  organs  obtained  with  a  Gamma  Camera  are  usually  of  marginal  quality 
and  need  significamt  post-processing  to  be  useful  for  medical  diagnostics.  This  is  especially  true  if 
multiple  pictures  are  taken  of  moving  parts  of  the  body,  such  as  the  heart,  with  low  pixel  resolution. 
In  this  section,  we  will  demonstrate  the  application  of  our  CFD  technique  for  deconvolution  of 
Gamma  Camera  images  obtained  during  medical  examinations. 

Shown  in  Figure  12  is  an  image  of  the  human  heart  produced  by  the  staff  of  the  Georgetown 
University  Hospital,  Department  of  Nuclear  Medicine,  using  a  Siemens  Gamma  Camera.  This 
image  contains  a  sequence  of  64x64  pixel  frames  showing  the  heart  at  a  sequence  of  time  intervals. 
This  plane  image,  originally  recorded  in  256  shades  of  gray  scale,  is  presented  here  in  64  shades  of 
gray.  In  Figures  12b,  12c  and  12d  the  deconvoluted  image  is  shown  after  6,  12  and  18  processing 
iterations  by  our  nonlinear  technique.  We  observe  in  these  figures  a  significant  improvement  in  the 
image  quality  over  the  images  in  Figure  12a.  Some  of  the  diffuse  edges  in  Figure  12a  are  clearly 
pronounced  in  Figures  12c  and  12d.  We  have  also  applied  our  CFD  technique  to  the  Gaunma 
Camera  images  of  the  brain  and  liver  and  have  found  a  significant  image  deconvolution  and  edge 
enhancement. 


4.  CONCLUSIONS 

The  CFD  technique  described  here  for  nonlinear  signal  and  image  processing  is  based  on 
numerical  techniques  developed  for  Computational  Fluid  Dynaunics,  namely,  the  Second  Order 
Godunov  Method.  We  have  demonstrated  the  application  of  this  numerical  method  to  signal 
processing,  resulting  in  significant  signd  deconvolution  and  edge  enhancement  effects.  Our  pre¬ 
liminary  analysis  has  shown  that  the  Second  Order  Godunov  Method,  when  applied  to  the  gray 
scale  intensity  field  of  an  image,  is  equivalent  to  an  application  of  an  unique  filter  stack.  This  filter 
stack  has  automatic  edge  detection,  noise  reduction  and  edge  enhancement  properties.  We  have 
demonstrated  this  nonconventional  technique  for  the  system  of  gas  d3majnic  equations,  where  the 
Second  Order  Godunov  Method  assures  high  accuracy  resolution  of  the  flow  discontinuities  that 
are  analogous  to  the  edges  in  the  image  field.  However,  the  same  methodology  can  be  applied  to  a 
reduced  set  of  nonlinear  hyperbolic  partial  differential  equations,  which  will  result  in  a  significant 
optimization  of  the  proposed  technique. 
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Fig.  2.  Edge  enhancement  for  a 
sinusoidal  distribution  without  noise. 


Fig.  3.  Edge  enhancement  for  a  sinusoidal 
distribution  with  10%  intensity  random  noise. 
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Fig.  4  Edge  enhancement  for  a  sinusoidal 
distribution  with  50%  intensity  random  noise. 


Fig.  5.  Edge  enhancement  for  a  sinusoidal 
distribution  with  100%  intensity  random  noise. 
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Fig.  6.  The  original  satelite  photograph  of  Washington.  DC  with  resolution  reduced  to  150 
dots/inch.  _ 


Fig.  7a.  The  sharpened  picture  after  the  Godunov  solver  has  been  used,  .\fter  three  itciations. 
Note  the  details  that  appeared  on  the  Potomac.  These  details  are  barely  visible  even  on  t  e  ou„iua 
high  resolution  photograph. 
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Fig.  9.  Gray  scale  density  of  the  CFD  processed  image:  (a)  after  3  iterations;  (b)  after  6  iterations, 
(c)  after  9  iterations;  (d)  after  12  iterations. 
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Fig.  10.  Gray  scale  density  of  a  cross  section  of  the  original  image. 
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Fig.  11.  Gray  scale  density  of  the  CFD  processed  image:  (a)  after  3  iterations;  (b)  after  6  iterations; 
(c)  after  9  iterations;  (d)  after  12  iterations. 
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Fig.i2.  Image  of  hiimaxi  heart  taken  by  a  Siemens  Geimma  Camera,  (a)  Original  image  64x64 
pixels  per  frame;  (b)  Image  after  six  processing  iterations;  (c)  Image  after  12  processing  iterations; 
(d)  Image  after  18  processing  iterations. 
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Hcfe  we  review  expenmental  end  compucetionei  studies  of  the  pulsed  deloaslioa  engipe  concept  (PDEC) 
and  present  resuils  of  our  recent  nuiaericsl  study  of  this  concept.  The  PDEC  was  proposed  in  the  early  l940s 
for  smalt  engine  applications;  however,  its  potential  was  never  realised  due  to  a  compUcated,  nnstendy  operation 
regime.  In  this  study,  we  demonstrate  the  use  of  current  advances  in  numerical  simulation  for  the  analysts  of  the 
POEC.  The  high-thrust/ engine  volume  ratio  obtained  in  our  simulailons  demonstraies  promising  potential  of 
the  pulsed  detonation  engine  concept. 


Introduction 

ARLY  developments  of  engine  technology  leading  to 
practical  propulsion  engines  were  almost  completely  asso¬ 
ciated  with  steady-state  engine  concepts.  Unsteady  concepts, 
which  initially  appeared  promising,  never  evolved  from  the 
conceptual  state  and  have  remained  for  the  most  part  unex¬ 
plored.  The  eariy  work  in  unsteady  propulsion  suffered  from 
a  lack  of  appropriate  analytical  and  design  tools,  a  condition 
which  seriously  impeded  the  advancement  of  the  unsteady 
concepts  to  a  practical  stage. 

In  this  paper,  we  review  the  historical  development  of  un¬ 
steady  propulsion  by  concentrating  on  the  particular  concept 
of  the  intermittent  detonation  engine,  and  discuss  current 
research  activities  in  this  area.  A  review  of  the  literature'-^^ 
reveals  that  a  significant  body  of  experimental  and  theoretical 
research  exists  in  the  area  of  unsteady  propulsion.  However, 
this  research  has  not  been  extended  to  the  point  where  a 
conclusive  quantitative  comparison  can  be  made  between  im¬ 
pulsive  engine  concepts  and  steady-state  concepts.  For  exam¬ 
ple,  the  analysis  given  in  Refs.  8-11  of  the  performance  of  a 
detonation  engine  concept  includes  neither  frequency  depen¬ 
dence  nor  analysis  of  losses  due  to  multicycle  operation.  A 
new  generation  of  analytical  and  computational  tools  exists 
today  and  allows  us  to  revisit  and  analyze  such  issues  with  a 
high  degree  of  confidence.  Numerical  simulation  has  devel¬ 
oped  to  the  state  where  it  can  now  provide  time-dependent 
two-  and  three-dimensional  modeling  of  complex  internal  flow 
processes^-^*  "  and  will  eventually  result  in  tools  for  systemat¬ 
ically  analyzing  and  optimizing  engineering  design.  In  addi¬ 
tion  to  a  review  of  applications  of  the  pulsed  detonation 
engine  concept  (PDEC),  we  will  report  results  of  a  numerical 
study  of  an  air-breathing  detonation  engine.  This  study  was 
performed  using  new  unsteady  computational  fluid  dynamics 
(CFD)  tools  that  we  will  also  describe. 

Our  paper  is  structured  as  follows:  '.)  historical  review  of 
the  pulsed  detonation  development  efforts;  2)  description  of 
the  basic  phenomenology  of  the  air-breathing  pulsed  detona¬ 
tion  engine  concept:  3)  description  of  the  mathematical  formu¬ 
lation  and  new  numerical  scheme  used  to  simulate  the  prob¬ 
lem;  4)  discussion  of  the  simulation  results;  and  5)  conclusions. 
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Historical  Review 
CoiMMiii'Volumc  Combustion 

From  the  very  early  development  of  jet-propulsion  engines, 
it  was  known  that  an  engine  based  on  a  constant-volume 
combustion  process  achieves  higher  thermodynamics  effi¬ 
ciency  than  a  constant  pressure  engine.  This  follows  from  a 
thermodynamic  analysis  of  the  engine  cycle.' 

Constant-volume  combustion  was  used  in  gas  turbine  en¬ 
gines  at  the  beginning  of  this  century,  and  the  first  gas  turbine 
engines  in  commercial  use  were  based  on  the  constant-volume 
cycle.  Jet-propulsion  engines  were  one  of  the  appUcations  of 
the  constant  volume  cycle  (or  explosion  cycle)  which  was 
explored  in  the  late  1940s.*  Although  the  explosion  cycle  oper¬ 
ates  at  a  larger  pressure  variation  in  the  combustion  chamber 
than  in  a  pulse  jet,*-*  the  cycle  actually  realized  in  these  engines 
was  not  a  fully  constant-volume  one  since  the  combustion 
chamber  was  open-ended.*  In  Ref.  2,  the  maximum  pressure 
ratio  measured  in  an  explosion  cycle  engine  was  3:1,  whFT>,as 
the  pressure  ratio  for  the  same  mixture  under  the  assumption 
of  a  constant-volume  cycle  would  be  8: 1 .  Also,  this  engine  was 
limited  by  the  available  frequency  of  cycles,  which  in  turn  was 
limited  by  the  rea'  aon  rate.  A  simple  calculation*  showed  that 
if  the  combustion  time  could  be  reduced  in  this  engine  from 
0.(X)6-0.(X)3  s,  the  thrust  per  pound  of  mixture  would  increase 
lOO^o.  Thus,  the  explosion-cycle  engine  has  two  main  dis¬ 
advantages: 

1)  Constrained  volume  combustion  (as  distinguished  from 
constant-volume  combustion)  does  not  take  full  advantage  of 
Che  pressure  rise  characteristic  of  the  constant-volume  com¬ 
bustion  process. 

2)  The  frequency  of  the  explosion  cycle  is  limited  by  the 
reaction  rate,  which  is  only  slightly  higher  than  the  defiagra- 
tive  combustion  rate. 

The  main  advantage  of  the  constant-pressure  cycle  is  that 
it  leads  to  engine  configurations  with  the  steady-state  pro¬ 
cesses  of  injection  of  the  fuel  and  oxidizer,  combustion  of  the 
mixture,  and  expansion  of  the  combustion  products.  These 
stages  can  be  easily  identified  and  the  engine  designer  can 
optimize  them  on  the  basis  of  relatively  simple  steady-state 
considerations. 

At  the  same  time,  an  engine  based  on  constant-volume 
combustion  will  have  an  intermittent  mode  of  operation, 
which  may  complicate  its  design  and  optimization.  We  are 
interested  in  the  question  of  whether  this  complication  is  worth 
the  potential  gains  in  engine  efficiency. 

Pulsed  Delonaiion  Engine  »s  an  Ultimate  Constant-Volume 
Combustion  Concept 

The  detonation  process,  due  to  the  very  high  rate  of  reac¬ 
tion.  permits  construction  of  a  propulsion  engine  in  which  the 
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constant-volume  process  can  be  fully  realized.  In  detonative 
combustion,  the  strong  shock  wave,  which  is  part  of  the 
detonation  wave,  acts  like  a  valve  between  the  detonation 
products  and  the  fresh  charge.  The  speed  of  the  detonation 
wave  is  about  two  orders  of  magmiude  higher  than  the  speed 
of  a  typical  deflagration.  This  allows  the  design  of  propulsion 
engines  with  a  very  high  power  density.  Usually,  each  detona¬ 
tion  is  initiated  separately  by  a  fully  controlled  ignition  device, 
and  the  cycle  frequency  can  be  changed  over  a  wide  range  of 
values.  There  is  only  an  upper  limit  for  the  detonation  cycle 
frequency.  This  limit  is  determined  by  the  time  it  takes  to  refill 
the  detonation  chamber  with  the  fresh  combustible  mixture. 
This  in  turn  will  depend  on  chamber  geometry  and  the  external 
flow  parameters.  In  our  study,  we  have  established  that  deto¬ 
nation  frequencies  of  200-250  Hz  appear  to  be  feasible.  At  the 
same  time,  the  same  PDEC  engine  can  operate  at  very  low 
detonation  frequency  with  thrust  almost  linearly  proponional 
to  the  frequency.  Tlus  also  means  that  a  device  based  on  a 
detonative  combustion  cycle  can  be  scaled,  and  its  operating 
parameters  can  be  modified  for  a  range  of  required  output 
conditions.  There  have  been  numerous  attempts  to  take  ad¬ 
vantage  of  detonative  combustion  for  engine  applications.  In 
the  following,  we  give  a  description  of  the  most  relevant  past 
experimental  and  analytical  studies  of  the  detonation  engine 
concept. 

Hoffmann's  Report 

The  first  reponed  work  on  intermittent  detonation  is  at¬ 
tributed  to  Hoffmann^  in  liMO.  He  operated  an  intermittent 
detonation  test  stand  with  acetylene-oxygen  and  benzine-oxy¬ 
gen  mixtures.  The  addition  of  water  vapor  was  used  to  prevent 
the  highly  sensitive  acetylene-oxygen  mixture  from  premature 
detonation.  Hoffmaim^  indicated  the  importance  of  the  spark 
plug  location  in  reference  to  tube  length  and  diffuser  length.  It 
was  found  that  a  continuous  injection  of  the  combustible 
mixture  leads  to  only  a  narrow  range  of  ignition  frequencies 
that  will  produce  an  intermittent  detonation  cycle.  These  fre¬ 
quencies  are  governed  by  the  time  required  for  the  mixture  to 
reach  the  igniter,  the  time  of  transition  from  deflagration  to 
detonation,  and  the  time  of  expansion  of  the  detonation  prod¬ 
ucts.  Hoffmann  attempted  to  find  the  optimum  cycle  fre¬ 
quency  experimentally.  It  was  discovered  that  detonation-tube 
firing  occurred  at  lower  frequencies  than  the  spark-plug  ener¬ 
gizing  frequencies,  indicating  that  the  injection  flow  rate  and 
ignition  were  out  of  phase.  World  War  II  prevented  further 
work  by  Hoffmann  and  co-workers. 

NidraUt’  Ezpehmcau 

A  substantial  effort  in  intermittent  detonation  engine  re¬ 
search  was  done  by  a  group  headed  by  Nicholls^'*’  of  the 
University  of  Michigan  beginning  in  the  early  1950s.  The  most 
relevant  work  concerns  a  set  of  experiments  carried  out  in  a 


6-ft-long  detonation  tube.”  The  schematics  of  the  detonation- 
tube  experiments  test  rig  used  by  Nicholls  and  co-workers  are 
shown  in  Fig.  1.  The  detonation  tube  was  contruacd  from  a 
!-in.-i.d.  stainless-steel  tube.  The  fuel  and  oxidizer  were  in¬ 
jected  under  pressure  from  the  left  end  of  the  tube 
and  ignited  at  the  lO-in.  distance  downstream.  The  tube  was 
mounted  on  a  pendulum  platform  that  was  suspended  by 
support  wires.  Thrust  for  single  detonations  was  measured  by 
detecting  tube  (platform)  movement  relative  to  a  stationary 
pointer.  For  multicycle  detonations,  thrust  measurement  was 
achieved  by  mounting  the  thrust  end  of  the  tube  to  the  free  end 
of  the  cantilever  beam,  in  addition  to  direct  thrust  measure¬ 
ments,  the  temperature  on  the  inner  wall  ol  the  detonation 
tube  was  measured. 

Fuel  mixtures  of  hydrogen/oxygen,  hydrogen/ air,  acetylene- 
oxygen,  and  acetylene-air  were  used.  The  gaseous  oxidizer  and 
fuel  were  continuously  injected  at  the  closed  end  wall  of  the 
detonation  tube  and  three  fixed  flow  rates  were  used.  Under 
these  conditions,  the  only  parameters  that  could  be  varied 
were  the  fuel/oxidizer  ratio  and  frequency  of  ignition.  A 
maximum  gross  thrust  of  *3.2 1’u  was  measured  in  hydrogen/ 
air  mixture  at  the  frequency  of  »  30  detonations/s.  The  most 
promising  results  were  demonstrated  for  the  hydrogen/air 
mixture,  where  a  fuel  specific  impulse  of  /,„  =  2100  s  was 
reached.  The  maximum  frequency  of  detonations  obtained  in 
all  experiments  was  35  Hz.  The  temperature  measurements  on 
the  inner  wall  showed  that  for  the  highest  frequency  of  deto¬ 
nations  the  temperature  did  not  exceed  800°?. 

In  their  later  work,**’®  the  University  of  Michigan  group 
concentrated  on  development  of  the  rotating  detonation  wave 
rocket  motor.  No  further  work  on  the  pulsed  detonation  cycle 
was  pursued. 

Knycki’s  Expcrimcuii 

In  a  setup  somewhat  similar  to  Nicholls’,  Krzycki'‘  per¬ 
formed  an  experimental  investigation  of  intermittent  detona¬ 
tions  with  frequencies  up  to  60  cps.  An  attempt  was  also  made 
to  analyze  the  basic  phenomena  using  unsteady  gas  dynamic 
theory.  Krzyeki’s  attempt  to  analyze  the  basic  phenomena 
relied  on  wave  diagrams  to  trace  charaaeristics,  assumptions 
of  isentropic  flow  for  detonation  and  expansion,  and  incom¬ 
pressible  flow  for  mixture  injec'ion  processes.  The  most  con¬ 
vincing  data  from  the  experiments  are  the  measurement  of 
thrust  for  a  range  of  initiation  frequenaes  and  mixture  flow 
rates.  Unfortunately,  no  direa  pressure  measurement  in  the 
device  are  reported  so  that  only  indirect  evidence  exists  of  the 
nature  of  the  process  observed. 

The  basic  test  stand  used  by  Krzyeki  is  very  similar  to  that 
used  by  Nicholls  et  al.®  'The  length  of  the  detonation  tube  and 
intern^  diameter  were  exaaly  the  same  as  those  in  Nicholls’ 
experiments.  A  propane/air  mixture  was  continuously  in¬ 
jected  through  reversed-flow  diffuser  for  better  mixing  and 
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Fig.  I  Detonation  lube  u.'ied  in  cxfierimenis  by  Nicholls  ct  at. 
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ignited  at  the  25-cm  distance  from  the  injection  pomt  by  an 
automobile  spark  plug.  The  spark  frequency  was  varied  from 
1-60  Hz.  The  spark  plug  power  output  was  varied  inversely 
with  the  initiation  frequency  and  at  the  frequency  of  60  Hz 
was  only  0.65  J.  This  fact  alone  eliminated  the  possibility  of 
direct  initiation  of  the  detonation  wave  by  the  spark  and 
consequently  all  of  the  experiments  were  performed  in  the 
region  dominated  by  transition  from  deflagration  to  detona¬ 
tion.  According  to  experimental  data  and  theory,'*  for  direct 
initiation  of  a  mixture  of  propane/air  at  the  detonabiUty  lim¬ 
its,  an  energy  release  on  the  order  of  10*  J  is  required.  Thus, 
the  required  deflagration-detonation  transition  region  length 
would  have  been  prohibitively  large  for  the  propane/ air  mix¬ 
ture.  It  follows  that  in  all  of  the  experiments  a  substantial  part 
of  the  process  was  deflagrative.  This  resulted  in  low  efndency 
and  negligible  thrust.  Krzycki  repeated  the  experiments  of 
Nichoils  using  exactly  the  same  size  detonation  tube  and  basi 
cally  the  same  rates  of  injection  of  the  detonatable  mixture. 
Krzycki’s  experimental  resuiu  are  very  well-documented,  giv¬ 
ing  enough  information  to  deduce  a  clear  piaure  of  the  phys¬ 
ical  processes  occurring  in  the  tube.  A  conclusion,  arrived  at 
by  the  author,  was  that  thrust  was  possible  from  such  a  device 
out  practical  applications  did  not  appear  promising.  It  is  un¬ 
fortunate  that,  possibly  based  on  Krzycki's  extensive  but  mis¬ 
leading  results,  all  experimental  work  related  to  the  pulsed 
detonation  engine  concept  stopped  at  this  time. 

Work  Rtponed  in  Russiaa  SoHrccs  on  Pulse  Detonation  Devices 

A  review  of  the  Russian  literature  has  not  uncovered  work 
concerning  applications  of  pulsed  detonation  devices  to 
propulsion.  However,  there  are  numerous  repons  of  applica¬ 
tions  of  such  devices  for  producing  nitrogen  oxide'*  (an  idea 
proposed  in  the  1940s  by  Zeldovich  to  use  detonation  for 
binding  nitrogen  directly  from  air  to  produce  fertilizen)  and 
as  rock  crushing  devices.'* 

Korovin  et  al.'*  provide  a  most  interesting  account  of  the 
operation  of  a  commercial  detonation  reactor.  The  main  ob¬ 
jective  of  this  study  was  to  examine  the  efficiency  of  thermal 
oxidation  of  nitrogen  in  an  intermittent  detonative  process  as 
well  as  an  assessment  of  such  technological  issues  as  the  fa¬ 
tigue  of  the  reactor  parts  exposed  to  the  intermittent  detona¬ 
tion  waves  over  a  prolonged  time.  The  leactor  consisted  of  a 
tube  with  an  inner  diameter  of  16  mm  and  length  1 .3  m  joined 
by  a  conical  diffuser  to  a  second  tube  with  an  inner  diameter 
of  70  mm  and  length  3  m.  The  entire  detonation  reaaor  was 
submerged  in  running  water.  The  detonation  mixture  was 
introduced  at  the  end  wall  of  the  small  tube.  Methane,  oxygen, 
and  nitrogen  comprised  the  mixture  composition  and  the  mix¬ 
ture  ratios  were  varied  during  the  continuous  operation  of  the 
reaaor.  The  daonaiion  wave  velocity  was  measured  direaiy 
by  piezoelearic  senson  placed  in  the  small  and  large  tubes, 
liie  detonation  ir.'tiaiion  frequency  in  the  reaaor  was  2-16 
Hz.  It  is  reported  that  the  apparatus  operated  without  signifi¬ 
cant  changes  for  2000  h. 

Smirnov  and  Boichenko'*  studied  intermittent  daonations 
of  a  gasoline/air  mixtures  in  a  3-m-long  and  22-mm-i.d.  tube 
operating  in  the  6-8  Hz  ignition  frequency  range.  The  main 
motivation  of  this  work  was  to  improve  the  efficiency  of  a 
commercial  rock-crushing  apparatus  based  on  intermittent 
detonations  of  the  gasoline/air  mixtures.”  The  authors  inves¬ 
tigated  the  dependence  of  the  length  of  the  transitional  region 
from  deflagration  to  detonation  on  the  initial  temperature  of 
the  mixture. 

As  a  result  of  the  information  contained  in  the  Soviet  re¬ 
ports.  it  can  be  concluded  that  reliable  commercial  devices 
based  on  intermittent  detonations  can  be  constructed  and 
operated. 

Ocvdopmcni  of  the  Blast  Propnliion  Systeaa  at  JPL 

Back.'*  Varsi  et  aj.,  ’  Kim  et  ai..'*  and  Back  et  ai.'’  at  the  Jet 
Propulsion  Laboratory  (JPL)  studied  the  feasibility  of  a 
rocket  thruster  powered  by  intermittent  detonations  of  solid 


explosive.  The  main  application  foreseen  by  the  authors  ts 
propulsion  in  dense  or  high-pretsure  atmospheres  of  certain 
solar  system  planets.  The  JPL  work  was  direaed  at  very 
speafic  applications;  however,  the  studies”  '*  addressed  some 
key  issues  of  devices  using  unsteady  processes  such  as  propul¬ 
sion  effidency.  The  JPL  studies  have  imponant  implications 
to  pulsed  detonation  propulsion  systems. 

Reference  19  gives  the  haste  desenpcion  of  the  test  stand 
used.  In  this  work,  a  dau  shea  type  C  explosive  was  dao- 
nated  inside  a  small  dnonadon  chamber  attached  to  nozzles  of 
various  length  and  geometry.  The  nozzles,  complae  with  fir¬ 
ing  plug,  were  mounted  in  a  containment  vessel  that  could  be 
pressunzed  with  the  mixture  of  various  men  gases  from  vac¬ 
uum  to  70  atm.  The  apparatus  measured  directly  the  thrust 
generated  by  single  detonations  of  a  small  amount  of  solid 
explosive  charge  expanding  into  conical  or  straight  nozzles. 
Thrust  and  specific  impulse  were  measured  by  a  pendulum 
balance  system. 

Results  obtained  from  an  extensive  experimental  study  of 
the  explosively  driven  rocka  have  led  to  the  following  conclu¬ 
sions.  First,  rockeu  with  long  nozzles  show  increasing  spectfic 
impulse  with  increasing  ambient  pressure  in  carbon  dioxide 
and  nitrogen.  Short  nozzles,  on  the  other  hand,  show  that 
specific  impulse  is  independent  of  ambient  pressure.  Most 
importantly,  most  of  the  cxpenmenis  obtained  a  relatively 
high  specific  impulse  of  250  s  and  larger.  This  result  is  ait  the 
more  striking  since  the  detonation  of  a  solid  explosive  yields  a 
relatively  low  energy  release  of  approximately  1000  cal/g  com¬ 
pared  with  3000  cai/g  obtained  in  hydrogen/ oxygen  combus¬ 
tion.  Thus,  it  can  be  concluded  that  the  total  losses  in  a 
thruster  based  on  unsteady  expansion  are  not  prohibitive  and, 
in  principle,  very  efficient  propulsion  systems  operating  on 
intermittent  daonauons  are  possible. 

OetoMiloa  CagiM  Sladks  at  Naval  Postgraiiaaie  School 

A  modest  exploratory  study  of  a  propulsion  device  utilizing 
daonation  phenomena  was  conduaed  at  the  Naval  Postgrad¬ 
uate  School  (NPS).**'“  During  this  study,  several  fundamen¬ 
tally  new  elements  were  introduced  to  the  concept  dittingtiish- 
ing  the  new  device  from  previous  ones. 

Fust,  it  is  important  to  note  that  the  experimental  apparatus 
construaed  by  Hetman  et  ai.**  showed  the  first  successful 
self-aspiraiing,  air-breathing  detonation  device.  Intermittent 
detonation  frequencies  of  25  Hz  were  obtained.  This  fre¬ 
quency  was  in  phase  with  the  fuel-mixture  injection  through 
timed  fuel-vaive  opening  and  spark  discharge.  The  feastl^ty 
of  intermittent  injection  -as  established.  Pressure  measure¬ 
ments  showed  conclusively  that  a  daonation  process  occurred 
at  the  frequency  chosen  for  fuel  injection.  Furthermore,  self¬ 
aspiration  was'shown  to  be  effective.  Finally,  the  effectiveness 
of  a  primary  detonation  as  a  driver  for  the  main  detonation 
was  clearly  demonstrated.  Although  the  NPS  studies  were 
abbreviated,  many  of  the  technical  issues  consider^  to  be 
essential  for  efficient  intermittent  detonation  propulsion  were 
addressed  with  positive  results. 

Slaalalion*  of  Poised  Detonation  Engine  Cyde  at  NASA  Ana 
Rcaarcli  Center 

Recently  Camblier  and  Adelman**  earned  out  numerical 
simulations  of  a  pulsed  detonation  engine  cycle  taking  into 
account  finite-rate  chemistry.  Unfortunately,  the  simulations 
were  restricted  to  a  quasi-one-dimensional  model.  The  config¬ 
uration  considered  had  a  6-cm-i.d.,  50-cm-long  mam  chamber 
that  was  attached  to  a  43-cm-long  diverging  nozzle.  It  was 
assumed  that  a  stoichiometric  mixture  of  hydrogen/air  at  3.0 
atm  is  injeaed  from  an  inlet  on  the  closed  end  wall  of  the 
detonation  chamber.  Under  these  conditions.  Camblier  and 
Adelman  estimated  a  large  range  of  possible  detonation  fre¬ 
quencies  of  engine  operation  up  to  667  Hz.  The  origin  of  this 
estimate  is  not  clear  from  their  work  since,  according  to  their 
simulations,  the  detonation,  expansion,  and  fresh  charge  fill 
requires  2.5  ms.  This  value  leads  to  a  maximum  frequency  of 
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400  Hz.  The  simulated  engine  performance  yielded  a  large 
average  thrust  of  •  4000  N  and  an  unusually  high  speafic 
impulse  of  6507  s.  These  simulations  were  the  first  to  demon¬ 
strate  the  use  of  modem  CFD  methods  to  address  the  technical 
issues  associated  with  unsteady  pulsed  detonation  concepts. 

In  the  remaining  sections,  we  discuss  a  panicular  propulsion 
concept  based  on  the  results  of  the  experiments  of  Helman  et 
al.“  and  describe  a  computational  study  of  its  performance 
characteristics.  The  unsteady  numerical  scheme  used  for  the 
study  made  use  of  unique  simulation  techniques;  the  key  in¬ 
gredients  of  these  techniques  are  also  described. 

Generic  Pulsed  Detonation  Engine 

The  generic  device  we  consider  here  is  a  small  cylindrical 
engine,  15  cm  long  and  15  cm  in  diameter.  The  combustible 
gas  mixture  is  injected  at  the  closed  end  of  the  detonation 
chamber  and  a  detonation  wave  propagates  through  the  mix¬ 
ture.  The  size  of  the  engine  suggests  a  small  payload,  but  the 
concept  can  be  extended  to  larger  payloads  simply  by  scaling 
up  the  size  of  the  detonation  chamter  and  possibly  combining 
a  number  of  engines  into  one  large  propulsion  engine.  A  key 
issue  in  the  pulsed  detonation  engine  concept  is  the  design  of 
the  main  detonation  chamber.  The  detonation  chamber  ge¬ 
ometry  determines  the  propulsion  efficiency  and  the  duration 
of  the  cycle  (frequency  of  detonations).  Since  the  fresh  charge 
for  the  generic  engine  is  supplied  from  the  external  flowfietd. 
the  efficiency  of  the  engine  depends  on  the  interaction  of  the 
surrounding  flow  with  the  internal  flow  dynamics.  The  range 
of  the  physical  processes  requiring  simulation  in  order  to 
model  the  complex  flow  phenomena  associated  with  the  deto¬ 
nation  engine  performance  is  very  broad.  A  partial  list  is  as 
follows; 

1)  Initiation  and  propagation  of  the  detonation  w.->ve  inside 
the  chamber. 

2)  Expansion  of  the  detonation  products  from  the  chamber 
into  the  airstream  around  the  cham^r  at  flight  Mach  numbers. 

3)  Reverse  flow  from  the  surrounding  air  into  chamber 
resulting  from  overexpansion  of  the  detonation  products. 

4)  Pressure  buildup  in  the  chamber  due  to  reverse  flow.  The 
flow  pattern  inside  the  chamber  during  postexhaust  pressure 
buildup  determines  the  strategy  for  mixing  the  next  detonation 
charge. 

5)  Strong  mutual  interaction  between  the  flow  processes 
inride  the  chamber  and  flow  around  the  engine. 

Ail  of  these  processes  are  interdependent  and  their  timing  is 
crucial  to  the  engine  efficiency.  Thus,  unlike  simulations  of 
steady-state  engines,  the  phenomena  described  above  cannot 
be  evaluated  independently. 

The  need  to  resolve  the  flow  inside  the  chamber  accounting 
for  nozzles,  air  inleu,  etc.,  and  at  the  same  time  resolve  the 
flow  around  the  engine,  where  the  flow  regime  varies  from 
high  subsonic,  locally  transonic,  and  supersonic,  makes  it  a 
challenging  computational  problem. 

The  main  issue  is  to  determine  the  timing  of  the  air  intake 
for  the  fresh  gas  charge.  It  is  sufficient  to  assume  inviscid  flow 
for  the  purpose  of  simulating  the  expansion  of  the  detonation 
products  and  fresh  gas  intake.  In  the  following,  we  present  the 
first  resulu  of  an  inviscid  simulation  of  the  detonation  cycle  in 
a  cylindrical  chamber.  First,  we  describe  our  computational 
method  for  solving  the  time-dependent  Euler  equations  used 
in  the  study. 

UaMcady  Euler  Solver 

A  new  second-order  algorithm  for  solving  the  Euler  equa¬ 
tions  on  an  unstructured  grid  was  used  in  our  study  of  the 
detonation  concept.  The  approach  is  based  on  first-  and  second- 
order  Godunov  methods.  The  method  leads  to  an  extremely 
efficient  and  fast  flow  solver  that  is  fully  vectorized  and  easily 
lends  itself  to  parallelization.  The  low  memory  requirements 
and  speed  of  the  method  are  due  to  the  use  of  a  unique  data 
structure. 


Until  recently  most  CFD  simulations  were  earned  out  with 
logically  structured  grids.  Vectonzation  and/or  parallelization 
did  not  present  a  problem.  The  increased  need  for  simulation 
of  flow  phenomena  in  the  vicinity  of  complex  geometneal 
bodies  and  surfaces  has  led  to  the  development  of  CFD  codes 
for  logically  unstructured  grids.  The  most  successful  of  these 
unstructured  grid  codes  are  based  on  finite  elements  or  finite 
volume  methods.  For  an  unstructured  grid  in  two  dimensions, 
the  computational  domain  is  usually  covered  by  triangles,  and 
the  indices  of  the  arrays  containing  the  values  of  the  hydrody¬ 
namic  flow  quantities  are  not  related  directly  to  the  actual 
geouicLtic  location  of  a  node.  The  calculations  performed  on 
unstructured  grids  evolve  around  the  elemental  grid  shape 
(e.g.,  the  triangle  for  two-dimensional  problems),  and  there  is 
no  obvious  pattern  to  the  order  in  which  the  local  integrations 
should  be  performed.  Explicit  integration  of  hydrodynamic 
problems  on  an  unstruaured  grid  requires  that  a  logicri  sub¬ 
structure  should  be  created  which  identifies  the  locations  in 
the  global  arrays  of  all  of  the  local  quantities  necessary  for  the 
integration  of  one  element.  This  usually  results  in  a  large  price 
in  computational  efficiency,  in  memory  requirements,  and  in 
code  complexity.  As  a  consequence,  veaorization  for  the  con¬ 
ventional  unstructured  grid  methods  has  concentrated  on  rear¬ 
rangement  of  the  data  structure  in  a  manner  such  that  these 
locally  centered  data  structures  appear  as  global  arrays.  This 
can  be  done  to  some  extent  using  machine  dependent  gather- 
scatter  operations.^-^  Additional  opumizauon  can  be  achieved 
using  localization  and  search  algorithms.  However,  these  meth¬ 
ods  are  complex  and  result  in  marginal  improvement.  Most 
optimized  unstructured  codes  to  date  run  considerably  slower 
and  require  an  order  of  magnitude  more  memory  per  grid  cell 
than  their  structured  counterparu.  Parallelization  of  the  con¬ 
ventional  unstruaured  codes  is  even  more  difficult,  and  there 
is  very  little  experience  with  unstruaured  codes  on  massively 
parallel  computers. 

The  method  we  have  developed  overcomes  these  difficulties 
and  results  in  codes  with  sp^  and  memory  requiiemenu 
comparable  to  those  found  in  struaured  grid  codes.  More¬ 
over,  the  ability  to  construa  grids  with  arbitrary  resolution 
leads  to  a  flexibility  in  dealing  with  complex  geometries  not 
attainable  with  struaured  grids.  The  essence  of  the  method  is 
based  on  an  independent  flux  calculation  aaoss  the  edges  of  a 
dual  baricentric  grid,  followed  by  node  integration.  This  ap¬ 
proach  is  order  independent.  Below  we  give  the  essential  de¬ 
tails  of  our  algorithrn;  a  complete  desenption  follows  later. 


Btak  Integration  Algorithm 

We  begin  by  describing  the  first-order  Godunov  method  for 
the  system  of  two-dimensional  (axisymmetric)  Euler  equations 
written  in  conservation  law  form  as 
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Here  u  and  v  are  the  x  and  r  velocity  vector  components,  p 
the  pressure,  p  the  density,  and  e  the  total  energy  of  the  fluid 
per  unit  volume.  It  is  assumed  that  a  mixed  (initial  conditions, 
boundary  conditions)  problem  is  properly  posed  for  the  set. 
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Fig.  2a  CompnMtioMl  doaaaia  and  grid  used  in  simulation  of 
PDEC  operation. 


Fig.  2b  Eolargemeni  of  eampnaiional  grid  in  the  vidniir  of  the 
PDEC  oozde. 


Eq.  (i),  and  that  an  initial  distribution  of  the  fluid  parameters 
is  pven  at  f  ^  0  and  some  boundary  conditions  defining  a 
unique  solution  are  specified  on  the  boundary  of  the  computa¬ 
tional  domain. 

We  look  for  a  solution  of  the  system  of  equations  repre¬ 
sented  by  Eq.  (2)  in  the  computational  domain  covered  by  an 
unstructured  grid.  As  an  example.  Fig.  2a  shows  the  unstruc¬ 
tured  triangular  grid  used  in  the  pulsed  detonation  engine 
simulation.  Here  most  of  the  computational  effort  is  commit¬ 
ted  to  the  resolution  of  the  flow  inside  the  engine  detonation 
chamber  and  in  the  immediate  vicinity  of  the  nozzle.  In  Fig. 
2b,  an  enlargement  of  the  nozzle  region  is  shown,  illustrating 
the  ability  to  represent  geometry  of  arbitrary  complexity  and 
with  localized  resolution. 

Figure  3  displays  a  fragment  of  the  computational  domain 
with  the  corresponding  dual  grid.  The  secondary  or  dual  grid 
is  formed  by  connecting  the  baricenters  of  the  primary  mesh, 
thus  forming  finite  polygons  around  the  primary  venices. 

We  have  found,  as  have  others.^’  that  the  best  practical 
representation  of  the  integration  volume  is  obtained  when  the 
dual  grid  is  formed  by  connecting  baricenters  of  the  triangles. 
Integration  by  the  Godunov  method^*  can  be  divided  into  two 
basic  steps:  I)  calculation  of  the  fluxes  at  the  edges  of  the 
secondary  grid  using  solutions  of  a  set  of  one-dimensional 
Riemann  problems:  and  2)  integration  of  the  system  of  partial 
differential  equations,  which  amounts  to  addition  of  all  of  the 
fluxes  for  every  polygon  at  a  particular  time  step. 

To  define  the  fluxes  for  the  grid  shown  in  Fig.  3  at  every 
edge  of  the  main  end,  it  is  necessary  to  solve  the  correspond¬ 
ing  Riemann  problem,  for  example,  to  define  the  flux  at  the 
edge  ab.  we  solve  the  Riemann  problem  between  points  A  and 
B.  The  solution  oi  this  problem  is  in  coordinates  local  to  the 


Fig.  3  The  primary  (iriaagicsi  and  secondary  tpolygOMi  anatrac- 
turad  grids. 


edge  of  the  dual  grid  ab  so  that  the  tangential  component  of 
velocity  will  be  directed  along  this  edge  (ab).  Implementation 
of  our  approach  requires  maintaining  strict  consistency  when 
defining  the  “left”  and  "right”  states  for  the  Riemann  prob¬ 
lems  at  the  edges  ab.  be,  cd.  de,  ef,  and  fa.  For  this  reason,  we 
define  not  only  the  location  of  the  venices  and  lengths  of  the 
edges  but  also  the  direction  of  the  edges  with  respect  to  the 
primary  grid.  For  the  clockwise  integration  pattern  in  the  same 
polygon,  point  A  will  be  the  "right”  state  for  all  of  the 
Riemann  problems  related  to  this  point,  and  the  neighbor  will 
represent  the  “left”  side  of  the  diaphragm. 

It  is  easy  to  see  that  the  flux  calcuiation  is  based  on  infonnt- 
tion  at  only  two  nodes  and  requires  single  geometrical  parame¬ 
ters  defining  the  edge  of  the  secondary  grid  chat  disseca  the 
line  connecting  the  two  points.  Thus,  we  can  calculate  all  of 
the  values  needed  for  flux  calculation  in  one  loop  over  all 
edges  of  the  primary  grid  without  any  details  related  to  the 
geometrical  strunures  that  these  edges  form.  This  in  turn 
assures  parallelization  or  vectorization  of  the  algorithm  for 
the  bulk  of  the  calculations  involving  the  Riemann  solver  that 
provides  the  first-order  flux.  The  only  procedure  not  readily 
parallelizabie  is  the  integration  of  the  fluxes  for  the  flow 
variables  at  the  vertices  of  the  grid.  Here  we  use  the  “edge 
coloring”  technique  that  allows  us  to  split  the  flux  addition 
loop  into  seven  or  eight  loops  for  edges  of  different  color. 
Each  of  these  loops  is  usually  large  enough  not  to  impair 
vectorization.  At  this  stage,  all  of  the  fluxes  are  added  with 
their  correct  sign  corresponding  to  the  chosen  direction  of 
integration  within  the  cell.  The  amount  of  calcuiation  required 
here  is  minimal  since  the  fluxes  are  known  and  need  only  to  be 
multiplied  at  each  time  step  by  a  simple  factor  and  added  to 
the  vertex  quantity. 

Second-Order  fntegralion  Afgohfbm 

The  second-order  solver  is  constructed  along  lines  similar  to 
that  of  the  first-order  method.  At  each  cell  edge,  the  Riemann 
problem  is  solved  for  some  specified  pair  of  left  and  right 
conditions.  Die  solution  to  this  Riemann  problem  is  then  used 
in  the  calcuiation  of  fluxes  that  are  added  later  to  advance  to 
the  next  integration  step.  The  extension  to  second-order  is 
achieved  by  using  extrapolation  in  space  and  time  to  obtain 
time-centered  left  and  right-limiting  values  as  inputs  for  the 
Riemann  problem.  The  basic  implementation  of  the  method 
of  calculation  of  second-order  accurate  fluxes  is  fundamen¬ 
tally  the  same  as  for  one-dimensional  cases.  The  only  differ¬ 
ence  is  in  the  method  of  obtaining  linear  extrapolation  of  the 
flow  variables  as  a  first  guess  of  their  value  at  the  edges  of  the 
dual  grid.  To  obtain  the  first  guess,  we  need  to  know  the 
gradient  of  some  gasdvnamical  parameter  U  at  the  vertices  of 
the  primary  mesh.  The  value  of  V  U  can  be  evaluated  by  using 
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a  linear  path  integral  along  the  edges,  which  delineates  the 
finite  volume  associated  with  the  vertex.  For  vertex  A  in  Fig.  3, 

=  §,(/«  d/  (2) 

where  integration  along  the  path  /  in  this  case  is  equivalent  to 
integration  along  the  edges  ad,  be,  cd,  de,  ef,  and  fa.  Knowing 
the  gradient  of  the  gasdynamic  parameter  in  the  volume  re¬ 
lated  to  vertex  A  will  allow  us  to  extrapolate  the  values  of  this 
parameter  at  any  location  within  the  volume.  This  permits  us 
to  evaluate  the  first  guess  for  U  at  the  edges  of  the  dual  grid. 
The  final  implementation  of  the  second-order  algorithm  has 
been  described  previously. 

A  schematic  flowchart  of  the  basic  steps  of  the  second-order 
algorithm  impiemenution  is  shown  in  Fig.  4. 

Siaoiaikiiu  of  the  Geocnc  Pulsed  DetUBaiion  Eugioe 

In  this  section,  we  present  sample  results  of  simulations  of 
the  generic  PDE  device  using  the  numerical  code  described  in 
the  preceding  section.  In  Fig.  2a,  the  computational  domain 
containing  the  PDE  main  detonation  chamber  is  shown  cov¬ 
ered  with  the  unstructured  grid.  In  our  sample  simulation,  we 
have  chosen  a  smalt  IS-cm-long  and  >  1 3-cm-i.d.  cylindri¬ 
cal  chamber  with  a  small  converging  nozzle.  This  geometry  is 
one  of  a  number  of  the  geometries  we  have  analyzed  in  a 
parametric  study  whose  goal  was  to  evaluate  and  optimize  a 
typical  POEC  device.  The  device  shown  in  Fig.  la  does  not 
represent  the  optimum  and  is  given  here  to  illustrate  our 
methodology.  We  consider  a  situation  when  the  PDEC  serves 
as  a  main  thruster  for  a  vehicle  traveling  in  air  with  the 
velocity  of  Af  0.9  and  located  at  the  aft  end  of  the  vehicle. 
The  main  objectives  of  the  simulations  presented  here  are  as 
follows: 

1)  To  find  the  maximum  cycle  frequency.  This  is  deter¬ 
mined  by  the  time  required  from  detonation,  exhaust  of  com¬ 
bustion  products,  and  Intake  of  fresh  charge  for  the  next 
detonation. 

2)  To  calculate  the  thrust  produced  during  each  cycle  and 
the  integrated  thrust  as  a  function  of  time. 
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The  simulation  begins  at  /  =  0  when  we  assume  an  ideal 
detonation  process  has  taken  place  m  a  siochiomeiric 
propane/air  mixture,  initially  the  detonation  wave  has  trav¬ 
eled  from  the  open  aft  end  of  the  chamber  toward  the  interior 
with  a  maximum  velocity  of  1800  m/s  and  maximum  pressure 
of  20  X  10^  Pa.  The  distribution  of  pressure,  velocity,  and 
density  of  the  detonation  wave  is  defined  through  the  seif-sim¬ 
ilar  solution  for  a  planar  detonation  wave.  These  distributions 
are  shown  schematically  in  Fig.  5.  The  wave  was  directed 
toward  the  interior  of  the  chamber  to  capture  the  kinetic 
energy  of  the  wave  and  to  prolong  exposure  of  the  inner 
chamber  wails  to  the  high  pressure.  In  Fig.  6,  simulation 
results  are  shown  at  time  r  «  0. 19  ms  in  the  form  of  pressure 
contours  and  particle  paths  from  different  locations  inside  and 
ouuide  the  detonation  chamber.  From  the  pressure  contour 
plots,  we  observe  that  the  shock  reflection  from  the  inner  wall 
has  taken  place  and  detonation  products  are  expanding  into 
the  ambient  airstream.  The  flow  inside  the  chamber  is  choked 
due  to  the  converging  nozzle  and  the  maximum  pressure  be¬ 
hind  the  shock  is  >  8  atm.  The  pressure  inside  the  chamber  is 
less  than  3  atm.  The  strong  expansion  of  the  detonation  prod¬ 
ucts  into  the  ambient  airstream  produces  a  shock  wave  with  a 
spherical-like  front  rapidly  decaying  in  strength.  As  a  result  of 
the  interaction  of  the  expanding  detonation  products  with  the 
external  flow,  a  large  toroidal  vonex  is  created.  The  vortex  is 
carried  away  quickly  from  the  chamber  by  the  external  flow 
and  by  its  own  flow  momentum. 

In  Fig.  6a.  we  also  show  trajeaories  of  the  particles  intro¬ 
duced  inside  the  chamber  and  just  above  the  nozzle.  Examina¬ 
tion  of  these  trajectories  allows  us  to  follow  the  dynamics  of 
the  chamber  evacuation  and  refill.  In  order  to  track  the  deto¬ 
nation  products,  we  initially  place  marker  pattielet  inside  the 
chamber  at  three  cross  sections  in  clusters  of  four  distributed 
normally  to  the  detonation  chamber  axis.  Each  partide  has  a 
different  color;  however,  particles  in  the  same  cluster  have  the 
same  shade  of  color.  At  the  three  chosen  cross  sections,  we 
have  designated  shades  of  red,  yellow,  and  green  for  the 
particles  located  correspondingly  at  the  left  end,  cemer,  and 
beginning  of  the  nozzle  cross  sections  of  the  chamber.  The 
movement  of  these  panicles  is  shown  by  conne^iog  them  with 
a  continuous  line  beginning  with  particle  location  at  r  =  0  to 
the  present  time.  In  Fig.  6a,  we  observe  that  at  time  /  =  0.19 
ms  all  panicles  originally  in  the  nozzle  cross  section  and  three 
of  the  particles  originally  in  the  midsection  have  left  the  deto¬ 
nation  chamber.  However,  particles  originally  introduced  on 
the  inner  wall  of  the  chamber  have  only  advanced  to  the  nozzle 
region. 

We  use  a  different  technique  for  observing  the  motion  of 
the  ambient  gas  outside  the  chamber.  Here  a  cluster  of  seven 
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Fig.  5  Distribution  of  gasdynamic  paramtiers  behind  the  detonation 
according  lo  a  one-dimensional  self-similar  soiotion. 
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b)  (  »  1.7  msec 


d)  r  •  7.4  msec,  cad  of  flnt  ddonaiioa  cyde 


Fig.  6  PrcssoR  contours  and  particle  patbs  for  various  times  during  the  PDEC  simulation. 


panides  is  introduced  every  0.05  /iS  in  the  external  flow  above 
the  nozzle.  All  such  particles  are  traced  as  they  move  with  the 
flow  until  they  leave  the  computational  domain.  At  any  given 
time  only  the  current  location  of  the  panicle  is  display^,  and 
since  the  panicles  are  introduced  periodically  with  time  there 
are  a  large  number  of  particles  to  trace.  We  assign  a  color  to 
every  cluster  of  external  panicles  to  keep  track  of  the  time 
when  they  were  introduced  in  the  calculation.  The  colors  vary 
from  magenta,  for  those  panicles  introduced  early  in  calcula¬ 
tion.  to  blue,  for  those  introduced  shonly  before  the  end  of  a 
detonation  cycle.  In  Fig.  6a.  corresponding  to  very  early  times, 
only  one  cluster  of  external  particles  is  visible.  This  cluster  was 
introduced  at  r  =  0  and  is  tracking  the  expanding  flow  of  the 
detonation  products. 

In  Fig.  6b,  the  simulation  results  are  shown  for  r  =  1 .7  ms. 
The  pressure  contours  show  that  a  shock  wave  develops  at  the 
external  edge  of  the  nozzle  as  a  result  of  a  strong  expansion  of 
the  Mach  0.9  external  flow.  As  a  result  of  overexpansion  of 
the  detonation  products,  the  pressure  inside  the  detonation 
chamber  is  lower  than  the  ambient  pressure,  causing  the  shock 


to  be  located  lower  on  the  external  surface  of  the  nozzle.  The 
external  flow  about  the  chamber  has  a  stagnation  point  on  the 
axis  of  symmetry  downstream  at  >  25  cm.  At  this  time,  it  is 
evident  from  the  particles’  trajectories  that  most  of  the  deto¬ 
nation  products  have  left  the  chamber.  Figure  6b  shows  one 
continuous  trace  of  the  particles  originating  at  the  back  wall  of 
the  detonation  chamber  having  advanced  well  ahead  of  the 
stagnation  point  in  the  external  flow. 

The  marker  particles  released  outside  and  just  above  the 
nozzle's  exit  show  two  distinct  flow  paths.  One  path  takes  the 
flow  past  the  stagnation  point  to  the  right  of  the  detonation 
chamber;  this  flow  path  is  marked  by  the  four  upper  particle 
traces.  Another  flow  path  is  marked  by  three  lower  particle 
paths  released  close  to  the  nozzle  surface  and  is  deflected 
toward  the  detonation  chamber  exit.  Figure  3b  shows  particles 
marking  this  deflected  stream  approaching  the  detonation 
chamber  nozzle.  The  magenta  color  of  these  particles  indicates 
they  were  released  at  »  0.5  ms. 

Figure  6c  corresponds  to  the  simulation  time  t  =  ms. 
The  pressure  inside  the  chamber  has  risen  «  I  atm.  Higher 


864 


EIDELMAN.  GROSSMANN.  AND  LOTTATl 


J.  PROPULSION 


FiaSB  OETONATIOM  ENGINE  Fon*  Tkrsn 
Flitte  Mack  >  0.4 


TaSEC 

Fig.  7  Thnitl  and  force  generated  by  PDEC  as  a  function  of  lime. 


pressure  at  the  chamber  exit  has  resulted  in  the  shock  standing 
on  the  external  surface  of  the  nozzle  to  move  upward.  The 
particles  marking  the  movement  of  fresh  air  into  the  chamber 
show  these  to  be  well  inside  with  some  reflecting  from  the  end 
wail  giving  a  second  sugnation  point  for  the  reversed  fresh 
airflow. 

Figure  6d  corresponds  to  the  end  of  the  first  cycle  when  the 
detonation  chamba  is  filled  with  fresh  charge  and  ready  for 
the  next  detonation,  in  this  figure,  the  pardcies*  paths  indicate 
that  the  chamber  refills  in  a  pattern  suitable  for  fast  mixing  of 
the  fuel-air  mixture.  We  conjecture  then  that  fuel  injection 
along  the  chamber  axis  will  promote  fast  fuel-air  mixing.  We 
can  see  in  Fig.  6d  that  further  injection  of  external  air  inside 
the  chamber  stopped,  and  from  that  point  on  the  mixture 
composition  in  the  chamber  will  be  fix^. 

In  Fig.  7,  the  total  force  and  time-averaged  thrust  generated 
by  the  device  in  the  simulations  discussed  previously  are 
shown  as  a  function  of  time.  The  time-averaged  thrust  is  based 
on  the  total  time  for  one  cycle.  As  seen  in  Fig.  7,  initially  a 
very  targe  force  of  «  1.5  x  lO’  kg  is  felt  on  the  end  wall  of  the 
detonation  chamber.  This  is  a  result  of  the  inwardly  moving 
detonation  wave  used  in  our  simulation.  Very  early  during  the 
sequence,  this  wave  reflects  from  the  left  wall  of  the  detona¬ 
tion  chamber  briefly  generating  a  large  force.  This  force 
rapidly  decays  and  at  r  *>  0.1  ms  changes  sign  due  to  interac¬ 
tion  of  the  strong  shock  wave  with  the  converging  nozzle.  This 
effect  is  noticeable  in  the  thrust  data;  the  average  thrust  de¬ 
creases  somewhat  after  reaching  levels  of  »  1980  N.  The 
shock  partially  reflects  from  the  converging  nozzle  wails  and 
generates  a  wave  moving  to  the  left  wall.  The  reflected  wave 
thereafter  generates  positive  thrust  from  i  »  0.3  ms.  Finally, 
thrust  levels  reach  the  maximum  of  2200  N  and  then  decay 
slowly  as  a  result  of  the  cross-seaional  drag  force.  The  simula¬ 
tions  predict  that  to  sustain  this  level  of  thrust  will  require  a 
detonation  frequency  of  about  150  Hz.  All  simulations  were 
performed  on  a  Stellar  workstation. 

Conclusions 

The  main  intent  of  the  present  study  was  to  carry  out  a 
review  of  the  relevant  literature  in  the  area  of  detonation 
propulsion,  to  assess  the  state  of  the  art.  and  to  recommend 
future  research  based  on  our  findings.  We  have  reviewed  the 
literature  and  presented  our  summary  in  the  first  section  of 
this  paper.  Our  initial  conclusion  from  the  review  is  that  there 


is  a  substantial  body  of  evidence  leading  toward  the  possibility 
of  producing  propulsion  engines  with  significant  thrust  ievels 
based  on  an  intermittent  detonation. 

Most  of  the  historical  attempts  at  producing  thrust  based  on 
the  intermittent  detonation  cycle  were  carried  out  with  the 
same  basic  experimental  setup;  namely,  a  long  straight  detona¬ 
tion  tube  employing  forced  fuel  injection  at  t  .•  closed  tube 
end.  We  have  discussed  the  many  reasons  whv  -uch  a  device 
cannot  take  proper  advantage  of  the  physical  r  cesses  associ¬ 
ated  with  detonation. 

The  experiments  performed  at  the  Nav..  Postgraduate 
School  using  a  self-aspirating  mode  of  opera:. un  for  a  pulsed 
detonation  thruster  produced  very  useful  rc  aits  which,  upon 
further  examination,  provide  us  with  a  roii:e  toward  practical 
propulsion  engines  of  variable  thrust  levels  that  are  both  con¬ 
trollable  and  scalable. 

We  have  explored  some  of  the  implications  of  the  possible 
applications  of  the  self-aspirating  detonation  engine  concept 
and  have  developed  a  suitable  numerical  simulation  code  to  be 
used  as  a  design,  analysis,  and  evaluation  tool.  In  faa.  the 
preliminary  analysis  of  a  candidate  detonation  chamber  flow 
was  shown  to  be  dominated  completely  by  unsteady  gasdy- 
naraics.  An  attempt  to  understand  the  flow  properties  based 
on  any  steady-state  model  or  one-dimensional  unsteady  ana¬ 
lytical  model  will  miss  such  important  aspects  as  fuel-air  mix¬ 
ing  and  shock  reflection  from  intemai  geometncal  obstacle 
such  as  the  converging  nozzle.  The  unsteady  simulation  code 
developed  during  the  course  of  our  study  is  a  necessary  tool 
that  we  plan  to  use  in  a  study  leading  to  a  feasible  prototype 
engine  design  realizing  the  full  potential  of  the  intennittent 
detonation  process. 
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Abstract.  Quasisteady  supersonic  flow  over  a  flat  cone 
on  a  plane  surface  is  studied.  A  formula  is  derived  for  the 
angle  through  which  the  flow  lines  turn  at  the  cone.  The 
results  are  used  to  justify  the  use  of  two-dimensional  sim¬ 
ulations  of  the  flow.  Peak  pressures  and  total  impulses 
are  obtained  numerically  for  various  cone  angles. 

Key  words:  Cone,  Euler  equation,  Mach  reflection, 
CFD,  Supersonic  flow 


1.  Introduction 

The  purpose  of  this  study  is  to  determine  the  maximum 
pressure  on  the  surface  of  a  flat  cone  (one  for  which 
the  height  is  much  less  than  the  diameter)  in  the  quasi¬ 
uniform  flow  behind  a  strong  blast  wave  propagating 
at  right  angles  to  the  axis  of  the  cone.  If  the  cone  is 
small  compared  with  the  radius  of  the  blast  wave,  the 
undisturbed  flow  is  approximately  rectilinear.  First,  the 
blast  wave  passes  over  the  cone  and  an  unsteady  load 
builds  up  on  the  surface.  In  general  the  shock  will  un¬ 
dergo  Mach  reflection  over  at  least  part  of  the  surface 
of  the  cone,  the  extent  depending  on  the  cone  angle  ct, 
the  adiabatic  index  y,  and  the  Mach  number  M.  After 
a  short  transitional  stage  the  cone  will  then  be  sub¬ 
ject  to  the  quasisteady  supersonic  flow  field  behind  the 
blast  front.  (For  a  strong  blast  wave  in  air,  the  pres¬ 
sure  drops  to  one-half  the  peak  value  about  one-tenth 
of  the  way  back  from  the  front  toward  the  origin  of 
the  blast  (Sedov  1959).  Thus,  if  the  blast  center  is  lo¬ 
cated  100  radii  from  the  cone,  the  pressure  arriving 
at  the  cone  is  reduced  to  half  its  initial  value  ^  10 
radii  behind  the  front.)  The  post-shock  flow  velocity 
varies  on  the  same  scale.  We  would  like  to  find  whether 
the  pressure  on  the  cone  reaches  its  maximum  during 
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the  quasisteady  or  the  unsteady  regime  of  the  flow  and 
determine  its  magnitude. 

The  cone,  shown  schematically  in  Fig.  1,  is  located 
on  a  plane  surface.  We  take  its  axis  to  be  normal  to 
the  surface,  and  we  model  the  front  of  the  spherical 
blast  wave  as  a  planar  shock  wave  propagating  normally 
to  this  axis.  This  is  a  reasonable  approximation  when 
the  distance  to  the  blast  center  is  much  larger  than  the 
radius,  i.e.,  in  the  same  limit  for  which  we  can  assume 
that  the  state  behind  the  front  is  uniform.  The  flow 
over  the  cone  is  substantially  three-dimensional.  The 
only  symmetry  is  with  respect  to  inversion  about  the 
midplane  (the  plane  through  the  cone  axis  and  parallel 
to  the  flow).  In  the  general  case  in  which  the  cone 
axis  is  not  normal  to  the  plane,  the  problem  is  totally 
asymmetrical. 

Previous  studies  of  the  effect  of  supersonic  flows  on 
conical  bodies  have  focused  primarily  on  situations  in 
which  the  flow  is  parallel  or  nearly  parallel  to  the  axis 
of  the  cone.  Those  results  are  applicable  to,  e.g.,  the 
aerodynamical  effects  associated  with  the  nose  cones 
of  re-entry  vehicles.  In  contrast,  the  problem  we  are 
considering  may  be  regarded  as  an  idealized  model  of 
the  interaction  between  a  blast  wave  and  a  ground  or 
shipboard  structure.  It  can  also  model  the  flow  over  a 
bump  or  a  housing  on  the  skin  of  a  supersonic  aircraft 
or  missile.  The  results  may  thus  be  relevant  to  both 
damage  studies  and  flight  characteristics. 

A  number  of  experimental  studies  related  to  the 
problem  of  oblique  supersonic  flow  over  a  cone  have 
been  carried  out,  beginning  at  least  three  decades  ago 
(TVacy  1963;  Damkevala  and  Zumwalt  1968).  Most  of 
this  work  has  dealt  with  small  deviations  from  axisym- 
metry,  although  angles  of  attack  as  large  as  30*  have 
been  studied  (Yahalom  1971).  Less  experimental  effort 
seems  to  have  been  devoted  to  transverse  flows  (angle  of 
attack  equal  to  90®).  Likewise,  theoretical  studies  by  Go- 
man  and  Davydov  (1975)  and  Gusarov  et  al.  (1979)  have 
concentrated  on  small  deviations  from  conical  shapes  in 
eocisymmetric  flow.  Numerical  simulations  have  been  car- 
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ried  out  at  large  angles  of  attack  (30" -50®)  by  Fletcher 
and  Holt  (1976).  These  results  are  useful,  and  the  same 
techniques  can  be  applied  to  transverse  flows,  but  they 
have  deflnite  limitations.  At  the  Mach  numbers  investi¬ 
gated  (M  6-8)  the  flow  is  strongly  conditioned  by  the 
presence  of  a  viscous  boundary  layer.  This  necessitates 
solution  of  the  Navier-Stokes  equations  instead  of  the 
Euler  equations,  and  it  may  be  necessary  to  incorporate 
a  turbulence  model  as  well.  In  three  dimensions  it  is 
difficult  to  obtain  good  resolution  even  for  inviscid  flow; 
the  presence  of  a  thin  boundary  layer  makes  the  problem 
even  more  formidable. 

In  the  next  section  we  determine  the  streamlines  as¬ 
sociated  with  transverse  flow  over  a  cone  in  the  Newton¬ 
ian  approximation,  i.e.,  assuming  that  the  streamlines 
follow  the  contours  of  the  body  surface.  We  show  that 
for  a  flat  cone  the  streamlines  deviate  very  little  from 
the  vertical  plane  in  which  they  were  propagating  before 
reaching  the  cone.  We  use  this  result  to  argue  that  the 
flow  over  the  cone  can  be  accurately  modeled  by  treating 
each  cross  section  made  by  a  vertical  plane  separately, 
i.e.,  by  solving  a  series  of  two-dimensional  problents. 
In  the  section  following  that,  we  describe  the  results  of 
such  calculations.  For  this  purpose  we  use  an  Euler  code, 
which  is  only  valid  at  low  flow  Mach  numbers  (M;S5).  In 
our  calculations  the  shock  Mach  number  equals  25,  but 
the  Mach  number  of  the  flow  in  the  heated  region  behind 
the  shock  is  ~  3,  so  we  ate  justified  in  ignoring  viscous 
effects.  At  higher  values  of  M  our  results  are  at  least 
indicative  and  can  be  expected  to  yield  accurate  values 
of  the  peak  pressures  on  the  cone.  (Of  course  the  reduc¬ 
tion  of  the  problem  to  two  dimensions  is  a  consequence 
of  the  cone  geometry  and  would  be  equally  useful  for 
Navier-Stokes  applications.)  We  show  that  these  results 
can  be  combined  to  draw  a  picture  of  most  of  the  flow 
field.  In  the  final  section  we  suiiunuize  our  conclusions. 


2.  Streamline  trajectories 

If  the  flow  deflected  by  a  solid  object  remains  supersonic 
after  deflection,  the  angle  between  the  flow  direction 
and  the  surface  determines  the  flow  parameters  behind 
the  shock  for  given  inlet  flow  parameters.  For  shock 
Mach  numbers  M210,  the  shock  angle  is  small  and  ihe 
deflected  flow  on  the  upwind  side  closely  follows  the  form 
of  the  deflecting  object.  The  streamlines  are  determined 
by  the  condition  that  the  angle  through  which  they 
are  deflected  be  as  small  as  possible.  We  would  like  to 
analyze  how  this  deflection  angle  varies  on  the  surface  of 
the  cone  shown  in  Fig.  1.  Based  on  this  analysis  we  can 
estimate  most  of  the  characteristics  of  steady  supersonic 
flow  directed  transversely  toward  the  cone. 

The  equation  for  the  frustrum  of  a  cone  with  the 
geometrical  center  of  its  base  located  at  the  center  of 
coordinates  (see  Fig.  1)  is 

(r* -t- y^)tan*a  =  (i  -  A)*,  (1) 

where  A  is  the  height  of  the  cone  and  a  is  the  angle 
between  the  side  of  the  cone  and  the  base.  The  angle 


Fig.  1.  Schematic  of  the  model.  The  z  axU  coincidea  with  the  exit 
of  the  cone  and  the  flow  ia  taken  in  the  direction  of  the  poaitive  x 
axia.  The  angles  a,  0,  f,  and  w  are  defined  in  the  text 


5  between  the  propagation  direction  n  (taken  to  be  the 
positive  x-direction)  and  the  deflected  streamline  at  the 
leading  edge  of  the  cone,  which  determines  the  shock 
strength,  is  bounded  above  by  the  angles  between  n  and 
the  conic  sections  in  the  x~y  and  x-z  planes. 

The  cross  sections  of  the  cone  parallel  to  the  x-y 
plane  are  circles  given  by 

X*  +  =  {zo  -  A)*/  tan^  a  s  r^,  (2) 

where  zq  is  constant  for  each  particular  cross  section  and 
r  is  the  radius  of  the  circle.  The  angle  0  between  n  and 
the  tangent  to  this  circle  at  the  point  with  ordinate  y  is 
given  by 


dx  (rS  _  y 


(3) 


The  sign  is  chosen  so  that  positive  ^  .iues  of  0  correspond 
to  negative  values  of  z  (i.e.,  the  upwind  side). 

The  cross  sections  parallel  to  the  x-x  plane  form 
hyperbolas  on  the  surface  of  the  cone.  The  equation  for 
this  family  of  curves  is 


(x-A)» 

'A'  ' 

tan^a 


2  2 
*  =  Vo  . 


(4) 


where  yo  is  constant  for  each  particular  cross  section. 
The  angle  7  between  n  and  the  tangent  to  this  hyperbola 
is  given  by 

tan7  =  ||  =  tana/(l -f-yoV-*^^)’^* 

=  (1  -yo^/r^)*^^tano 

Let  us  examine  now  how  tan  13  and  tan  7  vary  on  the 
intersection  of  the  cone  with  the  x-y  plane  when  y 
changes  from  0  to  ±iZ,  where  r  =  ft  =  A/ tan  a.  From 
(3),  tanid  approaches  00  and  0,  i.e.,  0  =  90*  and  3  =  0", 
in  the  limits  y  -►  0  and  y  —  ±ft,  respectively.  From 
(5),  tan  7  approaches  tan  or  and  0  in  the  same  limits, 
corresponding  to  7  =  a  and  7  =  0®. 
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Comparing  (3)  and  (5),  we  «adiiy 
tan  a  <  1 

tan7<tan^,  0  <  y  <  iJ; 
tan  7  =  tan  /?  =  0,  y  —  R, 

and  for  tan  a  >  1 

tan7<tand,  0<y<ii/tana; 
tan7  =  tan/3,  y=:  32/ tana; 
tan7>  tan/3,  32/ tan  a  <  y  < /2; 
tan  7  =  tan  /3  =  0,  y  =  32. 


(7) 

Fig.  2.  Value  of  angle  at  which  mininiizes  deflection  angle  a< 
function  of  Y/R 


Thus,  at  any  point  with  z  <  0  on  the  cone  specified 
by  (1)  for  tana  <  1,  the  propagation  vector  n  makes  a 
smaller  angle  with  the  cone  in  the  cross  section  parallel 
to  the  x~z  plane  than  in  the  one  parallel  to  the  r-y 
plane.  For  supersonic  flow  over  the  cone  shown  in  Fig.  1, 
condition  (6)  implies  that  the  velocity  vectors  behind 
the  shock  front  in  the  region  of  compression  of  the  flow 
will  always  be  directed  over  the  cone  and  not  around  it. 

Now  we  consider  intermediate  cross  sections  of  the 
cone,  obtunable  by  rotating  through  an  angle  u  about 
the  line  AB  defined  by  the  intersection  of  the  x~y  plane 
and  a  plane  parallel  to  the  x-z  plane.  We  would  like  to 
find  the  minimum  angle  between  n  and  the  tangent  in 
these  cross  sections  when  u  varies  from  0*  (cross  section 
parallel  to  the  z-y  plane)  to  90*  (cross  section  parallel 
to  the  x-z  plane). 

This  family  of  cross  sections  is  defined  by  (1)  together 
with  the  equation  of  the  cross-section  plane, 

z  —  Z  =  {y  -Y)taau.  (8) 

where  w  is  the  angle  between  the  cross-section  plane. 
We  restrict  ourselves  to  points  lying  in  the  z-y  pljme  as 
shown  in  Fig.  1,  since  the  bow  shock  produced  by  the 
interaction  between  the  flow  and  the  cone  will  either  be 
attached  at  this  point  or  will  stand  off  slightly  ahead  of 
the  cone.  The  coordinates  of  the  point  where  the  flow 
encounters  the  cone  are  X  =  (32*— T*)*/’,  V,  and  Z  =  0. 
The  tangent  line  is  the  intersection  of  this  plane  and  the 
plane  tangent  to  the  cone  at  {X,  Y,  Z).  The  equation  of 
the  latter  is  obtained  from  (1): 


Now  we  look  for  the  extrema  of  /(w)  when  u  varies  from 
0*  to  90*: 


df  _  tan  6  (y  tan*  o  sin  w  —  h  cos  w) 
du  hsinw -t- y  tan*acosu; 


(12) 


which  vanishes  only  for 


tanw  =  — — s—  =  tanuimm- 
y  tan-'  a 


(13) 


It  is  easy  to  show  that  ( 13)  defines  the  minimum  of  /. 
Substituting  (13)  into  (11),  we  find 


(A*  —  y *  tan*  a)  tan  a 

(fiJ-l-y^tan^a)*'* 


(14) 


which  determines  the  angle  5min  through  which  the 
streamline  of  the  supersonic  flow  behind  the  shock  wave 
turns  as  a  function  of  Y. 

Ftom  (13)  we  see  that  tanw  >  1  holds  for  tana  <  1, 
since  Y  <  hf  tan  a.  Figure  2  shows  how  w^ia  changes 
when  y  varies  from  0  to  32  for  various  values  of  tana. 
This  figure  implies  that  for  flat  cones  the  supersonic  flow 
will  be  almost  parallel  to  the  x-z  plane. 

Another  way  to  reach  the  same  conclusion  is  by 
finding  the  maximum  y-displacement  of  a  streamline 
from  its  original  trajectory.  This  occurs  for  z  =  0,  when 
the  trajectory  reaches  its  highest  point  on  the  surface 
of  the  cone.  The  tangent  to  the  cone  at  z  =  0,  i.e.,  the 
section  of  the  cone  in  the  y-z  plane,  is  described  by 


[xX  -f-  yy )  tan*  o  -F  A  (z  —  A)  =  0. 


(9) 


Solving  (8)  and  (9)  simultaneously  yields  the  equations 
describing  the  tangent  line: 


z  =  (y  -  y)tanw  = 


-(z  —  X)X  tan*  o  tanw 
Atanw -h  y  tan*  a 


The  angle  6  between  this  line  and  n  is  given  by 


tan  6  = 


x-X 


(A*  -  y*  tan* o)*^^  tana  _  ^ 

A  sin  w  K  tan"'  a  cosw 


(10) 


(11) 


y  tan  a  -i-  z  =  A. 

Solving  this  equation  together  with 

,  Hy-Y) 

z  s=  (y-  y)tanwmin  =  777 — =! — , 

/  tan  a 

we  obtain 

hY  sec*  o 


y  = 


A  -f-  y  tan*  a 


s  yo- 


(15) 


(16) 


(17) 


Maximizing  i^y  —  yo  —  Y  with  respect  to  y,  we  find  that 
the  largest  value  of  Ay  occurs  for 


y  =  - 


A  cos*  a 


32  cos  a 


sin  a(  1 -+•  COSO )  1-hcoso 


(18) 


;oo 


and  equals 


< 

< 


(Ay)max  = 


h  sin  a  cos  a 
(1  +  cosa)^ 


/ttan^a/2 

tana 


(19) 


For  a  <  1  we  have  st  R/2  and  «  ha/4. 

In  summary,  the  vertical  deflection  of  the  streamlines 
over  a  cone  of  small  edge  angle  o  is  of  order  a,  while  the 
horizontal  deflection  is  of  order  o^.  For  a  $  0.1  we  see 
that  the  flow  over  the  cone  deviates  from  the  vertical 
plane  in  which  it  starts  out  by  an  amount  0.01.  Thus 
the  compression  region  of  supersonic  flow  over  flat  cones 
can  be  calculated  accurately  by  modeling  the  flow  over 
separate  cross  sections  of  the  cone  made  by  planes  par¬ 
allel  to  the  z~z  plane.  A  wedge,  being  two-dimensional, 
is  easier  to  model  than  a  cone.  For  this  reason  we  carried 
out  several  calculations  of  the  interaction  between  blast 
waves  and  wedges,  described  in  the  next  section. 

We  can  also  conclude  that  the  maximum  change 
in  the  direction  of  a  streamline  for  such  cones  will  be 
a.  If  the  shock  undergoes  regular  reflection,  uniform 
supersonic  flow  over  a  wedge  with  base  angle  a  gives  an 
upper  bound  for  the  pressure  on  the  cone.  Where  Mach 
reflection  occurs  it  is  necessary  to  model  the  transient 
regime,  as  the  pressure  peaks  associated  with  the  Mach 
stem  and  the  contact  surface  could  conceivably  be  larger. 


3.  Numerical  modeling 

Let  us  consider  a  cone  with  a  =  10*  (tana  =  0.176) 
at  the  base.  According  to  the  analysis  in  the  preceding 
section  of  a  transversely  directed  supersonic  flow  over  a 
cone,  an  upper  limit  can  be  obtained  by  modeling  the 
same  supersonic  flow  over  a  wedge  with  opening  angle  a. 

Here  we  present  the  result  obtained  by  numerically 
solving  the  equations  for  the  flow  over  the  wedge  when 
it  is  loaded  by  a  passing  blast  wave.  For  the  simulation 
we  used  the  Fast  Unstructured-Grid  Second-Order  Go¬ 
dunov  Solver,  described  by  Eidelman  and  Lottati  (1990). 
This  code,  which  is  based  on  a  second-order  Godunov 
method  (Eidelman  et  al.  1984),  provides  a  method  for 
solving  the  Euler  equations  of  gasdynamics  on  unstruc¬ 
tured  grids  with  arbitrary  connectivity.  The  use  of  a  data 
structure  with  only  one  level  of  indirectness  leads  to  an 
easily  vectorized  and  parallelized  code  with  low  memory 
requirements  and  high  computational  efficiency.  The  al¬ 
gorithm  has  been  tested  for  performance  and  accuracy 
over  a  wide  range  of  Mach  numbers  and  geometrical 
situations,  and  has  demonstrated  robustness  without 
the  need  for  any  adjustable  parameters.  It  can  be  im¬ 
plemented  in  either  a  triangle-  or  vertex-based  form; 
experience  with  the  method  has  shown  that  extremely 
low  levels  of  artificial  viscidity  can  be  achieved  using  the 
triangle-based  version  of  the  method.  Direct  dynamic  re¬ 
finement  of  the  grid  (Eidelman  and  Lottati  1990)  allows 
automatic  adaptation  to  the  front  of  the  moving  blast 
wave.  This  refinement  guarantees  that  the  associated 
highly  inhomogeneous  pressure  and  density  features  are 
accurately  tracked. 


Fig.  3.  Unstructured  grid  for  a  —  10*  at  times  (a)  35  ws,  (b)  55  us, 
and  (c)  130  lis,  associated  with  the  density  and  pressure  contour 
plots  of  Figs.  4  and  5.Djstancea  are  in  meters.  These  reproductions 
are  unable  to  resolve  the  smallest  triangles,  which  show  up  as  dark 
regions  roughly  coincident  with  the  locations  of  gasdynamic  dis¬ 
continuities 


For  the  initial  conditions  in  the  computational  do¬ 
main  we  assume  air  at  standard  temperature  and  pres¬ 
sure.  At  t  =:  0,  a  strong  (M  =  25)  blast  wave,  propa¬ 
gating  to  the  tight,  is  located  at  the  left  boundary.  We 
assume  that  the  blast  wave  is  “square”  and  that  condi-  # 
tions  at  the  left  boundary  of  the  computational  domain 
remain  constant  for  the  whole  time  of  the  simulation. 

A  constant  value  of  7  =  1.2  was  used  (appropriate  to 
flow  behind  shocks  with  this  value  of  M  on  account  of 
reai-gas  effects).  For  these  values  of  a,  7,  and  M,  shock 
tube  measurements  described  by  Glass  (1987)  of  diffrac-  ^ 
tion  over  a  wedge  indicate  that  double  Mach  reflection 
should  occur. 


Figure  3  shows  the  computationad  grid  at  various 
times  i:  (a)  at  t  =  35 /is,  shortly  before  the  blast  front 
reaches  the  apex  of  the  wedge,  located  at  a  horizontal 
distance  1  =  I  m  from  the  corner;  (b)  at  t  :=  55/i8,  just 
after  it  passes  the  apex;  and  (c)  at  f  =  130^,  after  " 
the  leading  shock  has  exited  from  the  computational  do¬ 
main  and  a  quasisteady  state  has  developed.  The  highly 
refined  portions  of  the  grid  follow  shock  fronts,  contact 
discontinuities,  etc.  The  numbers  of  vertices  shown  we 
4166,  11785,  and  10959,  respectively,  reflecting  the  com¬ 
plexity  of  the  corresponding  states,  i.e.,  the  amount  of  # 
structure  in  the  gasdynamic  processes  present. 

Figure  4  shows  contours  of  density  scaled  by  the 
ambient  density  po  =  1.29kgm"^  at  the  same  times  as 
in  Fig.  3.  In  the  first  frame  the  flow  is  still  identical 
with  that  for  a  shock  reflecting  from  a  single  wedge  with 
opening  angle  a,  and  therefore  is  evolving  self-similarly  ^ 
(Glass  1987).  The  first  Mach  stem  and  incident  shock  are 
clearly  defined.  The  associated  contact  surface  is  barely 
discernible,  both  because  the  contour  levels  are  bunched 
near  the  much  larger  jumps  at  the  shocks  and  because  at 
very  high  Mach  numbers  the  slip  line  is  found  quite  close 
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Fig.  4.  Scaled  density  contours  for  a  =  10*  at  times  (a)  35  (is,  (b) 

SSfis,  and  (c)  130  tts.  Thirty-five  contour  levels  are  plotted,  with 
p/po  varying  from  l.O  to  13.5.  They  are  concentrated  at  the  large 
density  jumps  in  the  strong  shocks.  This  causes  the  shocks  to  be 
emphasized  more  than  the  contact  discontinuity,  where  the  density 
change  is  relatively  small.  The  structure  of  the  Mach  reflection  is 
discernible  only  in  the  earliest  frame.  In  the  final  frame  the  flow 
has  become  essentially  steady 
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to  the  Mach  stem  (GIaz  et  al.  1985).  In  Fig.  4b  the  front 
has  passed  the  apex  and  the  evolution  is  no  longer  self- 
similar.  The  flow  behind  the  front  expands  through  an 
expansion  fan  attached  to  the  corner.  Also  clearly  visible 
is  the  recompression  shock  two-thirds  of  the  way  from  the 
comer  to  the  front.  This  shock,  which  serves  to  reconcile 
the  high  pressures  in  the  region  following  the  Mach  stem 
with  the  lower  vdues  appropriate  to  the  expanded  flow 
downstream  from  the  comer,  is  propagating  backward 
but  is  being  swept  to  the  right  by  the  strong  flow  behind 
the  leading  shock.  The  triple  points  have  moved  far 
above  the  cone  and  no  longer  appear  on  the  grid.  Note 
that  the  supersonic  outflow  boundary  condition  imposed 
at  the  top  of  the  mesh  allows  material  and  waves  to 
pass  out  of  the  system  without  reflecting  and  without 
causing  other  signals  to  propagate  back  inside.  Figure  4c 
depicts  the  flow  at  late  times,  when  transients  have 
essentially  disappeared.  The  only  gasdynamic  features 
visible  are  shocks  at  the  leading  and  trailing  edges  and 
the  expansion  fan. 

Figure  5  shows  traces  of  the  static  and  dynamic 
pressure  scaled  by  the  ambient  pressure  po  =  101.3  kPa 
along  the  top  surface  of  the  wedge  as  functions  of  the 
horizontal  distance  z  in  meters  at  the  three  specifled 
times.  Ahead  of  the  blast  these  quantities  are  at  ambient 
levels,  they  rise  sharply  when  the  shock  sweeps  past, 
fluctuate,  and  Anally  reach  their  asymptotic  values.  Note 
that,  as  is  seen  experimentally  in  shock-tube  studies 
(Glass  1987),  the  pressure  on  the  surface  of  the  wedge  is 
highest  at  the  leading  edge.  It  is  also  important  to  notice 
that,  although  these  traces  exhibit  considerable  structure 
(especially  the  static  pressure),  the  maximum  values  of 
the  pressure  and  density  for  the  transient  stages  are 


Fig.  5.  Scaled  dynamic  and  static  pretfi  ire  on  the  wedge  surface  in 
the  case  a  =  10*  as  functions  of  the  distance  for  times  35  iia  (□), 
SS  ns  (o),  and  130  ns  (A).  Ahead  of  the  shock  these  quantities  have 
their  ambient  values;  far  behind  the  shodk  they  become  essentially 
steady 


always  smaller  than  those  in  the  quasisteady  flow  regime. 
At  the  same  time,  values  of  the  Mach  number  in  the 
transitional  stage  can  be  higher  than  in  the  quasisteady 
state.  For  our  case,  however,  the  maximum  Mach  number 
is  at  most  10%  higher  than  the  steady-state  value.  This 
shows  that  the  maximum  force  is  applied  to  any  point 
on  the  surface  of  the  wedge  in  the  quasisteady  state. 

Figure  6  shows  as  functions  of  time  the  drag  and  lift 
coefficients,  defined  by 


Cd  = 


and 


(20) 


Ci  = 


f  Pxdx 


(21) 


Here  pj|  =  pcos^  and  px  =  psin^  are  the  horizontal 
and  vertical  components  of  the  pressure  in  terms  of  the 
angle  between  the  normal  to  the  surface  and  the  z 
axis,  the  integrals  are  carried  out  over  the  surface  of 
the  wedge,  and  pa,  and  Uoo  are  the  density  behind  the 
undisturbed  shock  front.  The  lift  grows  monotonically, 
but  the  drag  first  rises,  then  drops  to  its  quasisteady 
value.  The  decreaise  results  from  the  increase  in  pressure 
on  the  trailing  side  of  the  wedge  when  the  shocked  air 
reaches  that  side. 
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Fig.  a.  Lift  and  dra^  coefficient*  for  a  =  20*  a*  functions  of  time 
Fig.  6.  Lift  and  drag  coefficient*  for  a  =  lO*  a*  function*  of  time  (in  milliseconds) 


Fig.  T.  Scaled  dynamic  and  static  pressure  on  the  wedge  surface 
in  the  case  a  =  20*  as  functions  of  the  distance  for  times  34  u* 
(a),  94  MS  (o).  and  168  «u  (A) 


To  learn  how  sensitive  the  flow  is  to  the  wedge  an¬ 
gle,  we  carried  out  a  second  calculation  with  a  =  20® 
(tana  =  0.364)  and  the  other  parameters  unchanged. 
This  calculation  was  done  with  a  coarser  grid  than 
the  previous  one,  with  triangles  about  a  factor  of  three 
larger.  Most  of  the  features  resembled  those  of  the  first 
case.  For  example,  the  traces  of  the  static  and  dynamic 


pressure  along  the  top  surface,  shown  in  Fig.  7,  are 
qualitatively  similar  to  those  for  a  =  10®.  One  differ¬ 
ence  is  that  the  drag  rises  monotonically  as  a  function 
of  time  (Fig.  8),  rather  than  decreasing  after  the  shock 
has  pass^.  This  is  because  the  expansion  fan  attached 
to  the  top  of  the  cone  is  stronger  and  a  low-pressure 
‘1!)ubble”  forms  on  the  lee  side. 

We  carried  out  additional  calculations  with  other 
values  of  the  parameters.  As  long  as  a  was  amall  and  M 
was  large  the  results  resembled  those  discussed  above. 
They  are  not  described  here,  since  in  no  case  did  the 
transient  pressures  exceed  those  in  the  quasisteady  state, 
nor  were  the  features  in  the  flow  qualitatively  different. 


From  the  foregoing  treatment  it  is  clear  that  the  same 
modeling  technique  can  be  used  to  determine  the  pres¬ 
sure  distribution  in  cross  sections  other  than  the  mid¬ 
plane.  So  long  as  jyi  does  not  approach  R,  the  deflection  ^ 
is  mostly  vertical.  The  corresponding  profile  is  now  a 
hyperbola,  but  it  differs  noticeably  from  a  we  jge  only 
near  the  top.  The  principal  difference  is  in  the  expan¬ 
sion  wave  at  the  top,  which  becomes  broader  than  the 
centered  rarefaction  wave  seen  above.  For  larger  values 
of  y  the  cross  section  of  minimum  deflection,  found  by 
solving  (1)  and  (8)  together,  is  more  rounded  at  the  9 
top  but  the  leading  edge  of  this  hyperbolic  “wedge”  has 
a  smaller  angle.  By  combining  pressure  distributions  at 
several  representative  values  of  y  we  can  find  the  pressure 
loading  over  the  entire  cone.  The  picture  breaks  down 
only  at  the  lateral  extremities  of  the  cone  (|y|  ~  ff). 


4,  Conclusions 


;o3 


On  the  basis  of  qualitative  atjumen'.s  and  numerical 
simulation,  our  study  of  the  flow  resulting  from  a  blast 
wave  propagating  transversely  over  a  cone  leads  to  the 
following  conclusions: 

1.  Flow  over  a  cone  with  small  base  angle  can  be  ac¬ 
curately  simulated  by  individually  modeling  *he  two- 
dimensional  flows  over  cross  sections  of  the  coc  a  made 
by  vertical  planes  perpendicular  to  the  shock  front. 

2.  The  maximum  load  on  the  cone  can  be  calculated 
from  the  solution  of  the  flow  over  the  cross  section  de¬ 
termined  by  the  plane  through  the  cone  axis  (Fig.  1). 

3.  In  this  solution  the  pressure  attains  its  maximum  as 
a  function  of  time  in  the  quasisteady  supersonic  regime 
established  after  the  front  has  passed. 
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ABSTRACT 

A  mathematical  model  is  presented  describing  a  physical  system  of  detonation  waves  propagating  in 
a  solid  particle/air  mixtnre  with  a  wide  range  of  solid  phase  concentrations.  The 
was  solved  numerically  using  the  Second  Order  Godunov  method,  and  numerical  solutions  were  validated 
for  detonation  wanrea  propagating  in  mistures  with  concentrations  of  solid  phase  from  0.75  kg/m*  to  1000 
kg/m*.  Numerical  solution  was  obtained  for  detonation  waves  propagating  in  a  system  consisting  of  layers 
of  explosive  powder  with  substantial  variation  in  particle  density  between  the  layers.  The  study  revealed 
a  specific  detonation  front  structure  that  is  dependent  on  the  thickness  of  the  layers  and  their  eneri^tie 
content.  The  dynamics  of  lateral  initiation  of  the  adjacent  layers  and  the  structure  of  detonation  waves  in 
tlus  system  were  investigated.  Results  are  given  for  detonation  of  clouds  having  a  small  concentration  of 
particles  and  a  ground  layer  in  which  solid  particle  densities  are  three  orders  of  magnitude  larger  th«m  in 
the  cloud. 

1.  INTRODUCTION  variation  in  density  between  the  different  layers 

It  is  of  considerable  practical  interest  to  study  (regions)  of  the  mixture,  steady  detonatirm  in  one  layer 
difiraction  and  transmission  of  the  detonation  waves  into  result  in  an  overdriven  detonation  in  an  adjacent 

bounding  layers  of  explosives.  When  coidbustible  parti-  Li“  “tudied  experimentaUy  a  systnn  of 

cles  are  intentionally  or  unintentionally  dispersed  into  and  lateral  interactions  for  gaseous  deto- 

the  air,  the  resulting  mixture  «•««  be  detonable.  Forma-  nations.  Our  paper  demonstrates  that  the  phenomenoi- 
tion  of  this  potentially  explosive  dust  environment  and  of  these  interactions  is  somewhat  difoent  from  these 

the  properties  of  its  detonation  are  of  significant  prae-  experimental  studies  of  mnlti-Iaya  detonations  in  gases, 
tical  interest  in  view  of  its  destructive  or  creative  ef-  “  primarily  because  the  energy  content  of  adjacent 

fects.  The  experimental  and  theoretical  study  of  these  *“  »  typical  multi-gas  layer  experiment®  varies  by 

phenomena  until  now  has  addressed  only  homogeneous  *  factor  of  leas  then  two,  whereas  the  energy  content  in 
particle/oxidizer  mixtures.  However,  intentional  or  ao-  explosive  dust/ air  mixtures  can  vary  by  several  orders  of 

cidental  processes  of  the  explosive  dust  dispersion  will  magnitude. 

always  lead  to  inhomogeneous  particle  density  distribu-  In  this  paper  we  use  detailed  numerical  simulation 

tion.  Some  industrial  methods  of  explosive  forming  rely  to  study  the  initiation  dynamics  and  propagation  phe- 

on  detonation  of  explosive  powder.  This  powder  can  be  nomenology  for  a  general  case  of  explosive  dust  disper- 

deposited  as  a  thin  layer  over  the  surface  area  of  the  sion.  We  will  consider  particle  density  variation  ^m 

forming  metal,  with  some  remaining  concentration  in  1000  kg/m*  in  the  ground  layer  to  0.75  kg/m*  for  the 

the  vicinity  of  the  layer.  Also  a  multi-layer  system  can  upper  edges  of  the  cloud.  The  e&cta  of  variation  of 

be  formed  from  several  layers  of  condensed  explosives  of  the  cloud  density  on  detonation  wave  parameters  will  be 

different  density.  The  structure  of  the  detonation  waves,  examined  for  different  cases  of  cloud  particle  density  dis- 

phenomenoiogyofits  initiation,  and  propagation  in  these  tribution.  When  possible,  the  results  of  computer  sim- 

environments,  are  the  main  subjects  of  this  paper.  ulatioos  are  validated  in  comparison  with  experimental 

When  the  detonation  wave  is  generated  in  a  homo-  theoretical  studies, 

geneous  mixture  by  a^direct  initiatioo,”  it  starts  with  Section  2  of  this  paper  describes  a  mathematical 

a  strong  blast  wave  from  the  initiating  charge.  As  the  model  that  includes  governing  conservation  equations 

blast  wave  decays,  combustion  of  the  reactive  mixture  for  two  phases  and  the  constitutive  laws,  as  well  as  the 

behind  its  shock  front  starts  to  have  a  larger  role  in  model  for  a  particle  gas  interaction,  combustion  and 

support  of  the  shock  wave  motion.  When  the  initial  equation-of-state  for  gas  phase.  The  numerical  integra- 

explosion  energy  exceeds  some  critical  value,  transition  tion  technique  for  solving  the  mathematical  model  will 

to  steady  state  detonation  occurs.(’~'*3  In  explosive  dust  is  also  outlined.  In  Section  3,  we  present  our  numerical 

mixtures  with  a  nonuniform  distribution  of  particle  den-  simulation  results.  We  first  validate  our  model  by  con  - 

sity,  the  initiation  dynamics  is  significantly  more  compli-  paring  one-dimensional  detonation  wave  simulation  with 

cated.  The  critical  initiation  energy  sufficient  for  one  of  available  experimental  results.  We  then  give  the  two- 

the  explosive  particle  density  regions  is  not  necessarily  dimensional  simulation  for  detonation  wave  propagation 

adequate  for  other  regions.  Also,  when  there  is  a  sig-  in  combustible  particle/ air  mixtures  with  variable  parii- 


cle  density  distribution.  Concluding  remarks  are  given 
in  Section  4. 

2.  THE  MATHEMATICAL  MODEL  AND  THE  NU¬ 
MERICAL  SOLUTION 

The  mathematical  model  consists  of  conservation 
governing  equations  and  constitutive  laws  that  provide 
closure  for  the  model.  The  basic  formulation  s^opted 
here  follows  the  two-phase  fluid  dynamics  model  pre¬ 
sented  in  the  text  by  Kuo^.  The  approach  assumes  that 
there  are  two  distinct  continua,  one  foe  gas  and  one  for 
solid  particles,  each  moving  at  its  own  velocity  through 
its  own  control  volume.  The  sum  of  these  two  volumes 
represents  an  average  mixture  volume.  With  these  as¬ 
sumptions,  distinct  equations  for  continuity,  momentum 
and  energy  are  written  for  each  phase.  The  interac¬ 
tion  effects  between  the  two  phases  are  accounted  as  the 
source  terms  on  the  right  hand  side  of  the  govuning 
equation.  The  foUowing  is  a  short  description  of  the  two 
phase  flow  model  used  in  our  study,  with  conservation 
equations  written  in  Eulerian  form  for  two-dimensional 
flow  in  Cartesian  coordinates. 


Continuity  of  gaseous  phase 

Continuity  of  solid  particle  phase 

Conservation  of  momentum  of  gaseous  phase  in  x- 
direction 


^*Pt)  ,  dipiUfV,)  _  p  .  . 

At  Am  A..  ~  ~  ‘  “F  > 


Conservation  of  momentum  of  solid  particle  phase  in  y- 
direction 


d{piv,)  ,  .  d(piv^+<^Pf)  „  .  „ 

+ ^ - =  -F,+rvp  ; 


Conservation  of  momentum  of  solid  particle  phase  in  x- 
direction 


(2.5, 

Conservation  of  momentum  of  solid  particle  phase  iu  y- 
direction 


^  +  +  ^  =  (M) 


Conservation  of  energy  of  gas  phase 


djpiE^r) 

at 


d(piv,E^ 


r(_Z-i-.i+£;cAem-fC',f,)-(/Vu,-i-F,p,)--<j ;  (2.7^ 

Conservation  of  energy  of  solid  particle  phase 


QiPiE^T)  .  d(p7Ep,Uy,)  ,  5  ,  „  , 

- - - a* 

-r  -f  Eehem  -H  C.fp)  ;  ^  (2.8) 

Conservation  of  number  density  of  scdid  particle 

In  the  above  equations,  ^  s=  1  —  ,pi  s 

^pf,p7  =  (1  —  ^)pn  where  Nf  and  Mf  are  the  nuodier 
density  and  mass  of  each  particle,  respeetivriy,  and  p^ 
and  Pf  are  the  material  density  of  gas  and  particle  den¬ 
sities,  respectively.  Vf,Vf,Pf  are  gas  phsM  x- velocity, 
y-velocity  and  pressure,  respectively;  ate  x- 

velocity,  y-velodty  and  average  temperature  of  particle, 
respectively.  C«  is  specific  heat  of  solid  particle  and 
Eehem  is  chemical  energy  of  solid  phase,  F  is  the  rate 
phase  change  from  solid  to  gas  and  Q  is  heat  transfer  be¬ 
tween  the  two  phases;  E„  F,  are  the  drag  force  between 
the  two  phases  in  x  and  y  directions,  respectively. 

Equations  (2.2)  and  (2.7)  ate  linked  through  the 
relation  p7  =  nAf^.  In  the  case  of  a  reactive  solid 
phase,  Mp  decreases  due  to  coixd>uation.  The  mass  dP 
a  single  particle  at  any  point  can  be  obtained  from 
Afp  =  P3(z,y)/n(x,y),  and  the  diameter  of  a  particle 
at  any  spatial  location  is  D{x,y)  =  [6Mp(x,  y)/rpp]^f^. 
The  total  internal  energy  of  gaseous  phase 


E^  =  E,  +  +  o*)  and  E,  =  Efip,,Pf)  (2.10) 

where  Ef(Pf,Pg)  is  the  equation-of-state  for  the  gas 
phase,  which  will  be  discussed  later. 


in^sawn«] 


Eft  =  Ef¥  r{Vp  +  Wp)  and  Ep  =  Echem  +  C,fp  . 

(2.11) 

In  order  to  close  the  above  system  of  conservation 
equations,  it  is  necessary  to  define  certain  criteria  and 
interaction  laws  between  the  two  phases,  which  include 
mass  generation  rate,  F,  drag  force  between  particles 
and  gas,  F,,Fp  and  the  interphase  heat  transfer  rate  Q. 
The  model  for  particle  and  gas  interaction  and  particle 
combustion  that  results  in  the  constitutive  relation  for 
the  conservation  equations,  is  explained  in  detail  in  the 
next  subsection. 

Modelior  a  Particle  Gas  Interaction  and  Combustion 

Presently,  the  physics  of  the  energy  release  mecha¬ 
nisms  in  solid  particles/air  mixtures  is  not  clearly  under¬ 
stood.  This  can  be  attributed  to  the  obvious  difficulties 
of  making  a  direct  non-obtrusive  measurement  in  the 
optically  thick  environment  typical  for  this  system.  In 
the  experimental  and  theoretic^  work  done  for  the  grain 
dust  detonation  conditions,^  it  was  demonstrated  that 
the  volatile  components  released  by  the  particle  heated 
behind  the  shock  front  play  a  major  role  in  determining 
the  detonability  limits  of  the  mixture.  Eidelman  and 
Burcat^  successfully  applied  a  combination  of  fast  evap¬ 
oration  and  aerodynamic  shattering  mechanisms  to  sim¬ 
ulate  a  two-phase  detonation  process. 

The  chemical  processes  of  a  single  particle  combus¬ 
tion,  which  mainly  occur  in  the  gaseous  phase,  are  sig¬ 
nificantly  faster  thaui  the  physical  processes  of  particle 
gasification  or  disintegration.  Thus,  in  the  multi-phase 
mixtures,  the  rate  of  energy  release  will  be  mostly  deter¬ 
mined  by  physics  of  particle  disintegration.  It  is  very 
difficult  to  describe  the  details  of  particle  disintegra¬ 
tion  in  the  complex  environment  prevalent  behind  the 
shock  or  detonation  wave.  For  example,  Reinecke  and 
Waldman^  defined  five  different  di^tegration  regimes 
for  a  relatively  simple  environment  of  water  droplets 
passing  through  a  weak  shock.  Fortunately,  in  most 
cases  of  multi-phase  detonation,  only  the  main  features 
of  the  particle  disintegration  dynamics  need  to  be  cap¬ 
tured  to  describe  the  phenomena.  For  example,  Eidel¬ 
man  and  Burcat,^°  using  simple  models  for  particle  evap¬ 
oration  and  shattering,  obtained  simulation  results  that 
compared  very  favorably  with  experimental  data.  Be¬ 
cause  of  our  inability  to  resolve  the  particle  disintegra¬ 
tion  problem  in  all  its  complexity,  the  validation  of  the 
model  against  known  experimental  data  is  essential. 

In  this  paper  we  consider  solid  particles  consisting 
of  explosive  material.  Explosive  material  contains  fuel 
and  oxidizer  in  a  passive  state  at  low  temperature;  how¬ 
ever,  when  the  temperature  rises  the  fuel  and  o.xidizer 


react,  leading  to  detonation  or  combustion.  The  initi¬ 
ation  of  reaction  for  explosives  will  occur  at  relatively 
low  temperature.  For  example,  TNT  will  detonate  when 
heated  to  the  temperature^^  of  570*C.  Only  particles 
larger  than  a  critical  detonation  size  can  detonate  di¬ 
rectly  when  initiated  by  a  shock  wave.  We  consider  here 
particles  smaller  than  4mm  in  diameter  that  will  not  det¬ 
onate  when  heated,  but  will  burn  when  the  temperature 
on  the  particle  surface  reaches  a  critical  value.  Since 
the  heat  conduction  inside  the  explosive  materird  is  rel¬ 
atively  slow,  the  process  of  particle  heating  needs  to  be 
resolved  in  detail.  Our  simulations  numerically  solve  the 
temperature  field  in  the  particles  at  every  step  of  numeri¬ 
cal  integration  of  the  global  conservation  equations.  The 
explosive  particle  combustion  model  examined  in  this  pa¬ 
per  assumes  that  the  fraction  of  the  particle  that  reaches 
the  critical  temperature  will  burn  irutantaneously. 

Energy  transfer  by  convection  and  conduction  is 
simulated  by  solving  the  unsteady  heat  conduction  equa¬ 
tion  in  each  computational  cell  at  each  time  step.  As¬ 
suming  a  particle’s  temperature  7),  to  be  a  function  of 
time  and  radial  position  only,  the  unsteady  he^t  conduc¬ 
tion  equation  may  be  transformed  to: 


cPw  _  I  dw 
dr^  a  dt  ' 
subject  to  the  boundary  conditions: 


(2.12) 


w=;0  at  r  =  0,  t>0 


dw  1 

={h- —)w  =  hRTg  at  rz=R,  t  >  0  (2.13) 

where: 

u<r,t)  =  rrp(r,t) 

r  =  radial  position 

T(r,t)  =  temperature 

R  =  particle  radius 

Tf  =  temperature  of  surrounding  gas 

k,  =  thermal  conductivity  of  particle 

h  =  convective  heat  transfer  coefficient. 

The  Nusselt  number,  used  to  find  h,  is  given  by  an 
empirical  relation  provided  by  Drake.^^  The  gas  viscosity 
is  found  from  Sutherland’s  Law.  The  gas  thermal  con¬ 
ductivity  is  calculated  by  assuming  a  constant  Prandti 
number.  Lastly,  the  boiling  temperature  at  a  given  pres¬ 
sure  is  found  from  the  Clape}rron-Clausiu8  equation,  as¬ 
suming:  1)  constant  latent  enthalpy  of  phase  change,  2) 
the  vapor  obeys  the  ideal  equation  of  state,  and  3)  the 
specific  volume  of  the  solid/liquid  is  negligible  compared 
to  that  of  the  vapor.  A  critical  temperature  is  also  em¬ 
ployed  to  serve  as  an  upper  limit  to  the  boiling  point, 
regardless  of  pressure. 
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Equation  (2.13)  with  boundary  condition  (2.14)  can 
be  numerically  integrated  using  either  implicit  or  explicit 
schemes. 

Since  the  particle  radius,  R,  will  become  very  small 
due  to  evaporation,  the  implicit  Crank-Nicolson  algo¬ 
rithm  is  used  because  of  its  stability  properties  and  its 
second  order  temporal  and  spatial  accuracy.  Using  the 
Crank-Nicolson  scheme  co  predict  the  particle  tempera¬ 
ture  profiles  at  times  and  permits  easy  calculation 
of  the  total  energy  exchange,  Q  between  ti  and  h  due 
to  convection  and  conduction. 

Knowledge  of  the  particle  temperature  profile  also 
allows  us  to  determine  F,  the  rate  of  phase  change  from 
solid  particle  to  gas.  Once  any  point  at  a  radial  location 
0  S  ^  ^  temperature  exceeding  the  boiling  temr- 

perature,  the  entire  mass  between  r  and  R  is  transferred 
to  the  gas  phase  in  one  time  step.  In  so  doing,  an  energy 
equal  to  the  product  of  the  mass  lost  and  the  particle 
intrinsic  energy  is  transferred  by  the  particle  to  the  gas. 

The  interphaae  drag  force  (Fx,Fy)  is  determined 
&om  the  experimental  drag  for  a  sphere,  as  presented  by 
Schlichting^®. 


F.  *  (f  -  V,l(u,  -  u,)R»  (2.14) 

where 
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^  (l  +  for  Re  <  1000; 

0.44  for  Re  >  1000, 


(2.15) 


and  Re  =  ^  radius  of  partricle  and  u 

gas  viscosity  at  temperature  of  T/nm  =  1(7#  +  fp). 
Similarly,  the  formulae  for  Fy  is 


Fy  =  ~Npp,Co !v,  -  VpKv,  -  vp)R^.  (2.16) 


Equation  of  State  ■fot.Detonatiop  Products 

To  close  the  system  of  governing  equations,  one 
needs  a  constitutive  relation  between  density,  pres¬ 
sure,  temperature  and  energy  for  gas  phase,  which 
is  an  equation-of-state.  This  study  uses  the  Becker- 
Kistiakowsky- Wilson  (BKW)  equation-of-state*'*’“  that 
is, 

p,V,IRr,^l  +  xe^‘,  (2.17) 

where  Vf  =  volume  of  gas  phase 
Pp  Ts  pressure  of  gas  phase 
Tf  —  temperature  of  gas  phase 


R  =-  universal  gas  constant  # 

z  =  klF,{T  +  QY  k  =  Kl^iXiki 
with  empirical  constants  a,  b,  K,  0  and  i,.  The  con¬ 
stants  ki,  one  for  each  molecular  species,  are  co- volumes. 
The  co-volumes  are  multiplied  by  their  mole  fraction  of 
species,  A*,-,  and  are  added  to  find  an  effective  volume 
for  a  mixture.  For  a  particular  explosive,  if  we  know  the  ^ 
composition  of  detonation  products  and  a,  b,  @,  K,  and 
all  ki’s  can  be  found  in  Ref.  15. 

The  internal  energy  is  determined  by  thermodynamics 
relation 
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Integration  of  this  equation  for  a  fixed  composition 
of  the  detonation  products  will  allow  us  to  calculate  the 
energy  of  the  detonation  products  as  a  function  of  tem¬ 
perature  and  volume.  For  each  component,  its  thermo- 
dynamic  properties  as  functions  of  temperature  were  cal¬ 
culated  from  the  NASA  tables  compiled  by  Gordon  and 
McBride^^ . 

The  BKW  equation-of-state  is  the  most  common 
and  well  calibrated  of  those  equations^f-state  used  to 
calculate  the  properties  of  detonation  products.  The  de-  ^ 
tailed  discussion  and  review  of  the  BKW  equation-of- 
state  can  be  found  in  Ref.  15. 


Numerical  Method  of  Solutions 

The  system  of  partial  differential  equations  de¬ 
scribed  in  the  previous  paragraph  is  integrated  numer-  0 
ically.  The  Second  Order  Godunov  method  is  used  for 
the  integration  of  the  subsystem  of  equations  describ¬ 
ing  flow  of  gaseous  phase  material.  This  method  is  de¬ 
scribed  in  Ref.  17.  In  the  following,  we  will  elaborate 
only  on  some  specifics  of  its  application  to  simulations 
of  detonation  products.  The  subsystem  of  equations  de-  H 
scribing  the  flow  of  particles  is  integrated  using  a  simple 
upwind  integration.  This  is  done  because  out  mathemat¬ 
ic  model  neglects  pressure  of  interparticle  interaction 
and  that  prevents  formulation  of  a  Second  Order  Go¬ 
dunov  scheme  for  particles. 

The  physical  system  under  study  will  have  concen-  0 
trations  of  solid  explosive  powder  ranging  from  1000 
kg/m^  near  the  ground  to  0.75  kg/nY  or  less  in  the 
cloud.  Detonation  of  this  mixture  will  create  detona¬ 
tion  products  with  effective  7  ranging  from  3  to  1.1. 

To  describe  the  flow  of  detonation  products,  we  use  the 
BKW  equation-of-state  described  above.  Since  the  Sec-# 
ond  Order  Godunov  method  uses  primitive  variables  to 
calculate  Riemann  problems  at  the  edges  of  the  celb, 
its  implementation  for  non-ideal  EOS  is  difficult.  In  out 
simulations,  we  have  resolved  this  problem  by  using  di¬ 
rect  and  inverse  equations-of-state.  After  integrating  a 
system  of  gas  conservation  laws,  we  use  the  direct  BKW  0 


d 


# 


m 


# 


m> 


# 


equation-of-state  to  calculate  pressure,  gamma  and  tem¬ 
perature  as  functions  of  thermal  energy,  density,  and 
mixture  composition.  After  this  step,  m  have  a  com¬ 
plete  set  of  parameters  allowing  calculation  of  the  fluxes 
in  the  Second  Order  Godunov  method  as  well  as  inter¬ 
action  of  the  multi-phase  processes.  The  “inverse”  EOS 
calculates  internal  energy  as  a  function  of  density,  pres¬ 
sure  and  mixture  composition.  In  our  code  we  use  the 
“inverse”  EOS  to  calculate  the  fluxes  of  conserved  vari¬ 
ables  after  calculation  of  the  flux  of  primitive  variables. 

For  the  multi-phase  system  under  study, 
dxsdyalmm  was  used  to  allow  explicit  integration  of 
the  gasdynamic  and  physical  processes  of  evaporation 
and  heat  release.  When  a  mismatch  occurred  between 
the  physical  and  gasdynamical  characteristic  times,  the 
time  step  was  adjusted  by  some  fraction  to  assure  stabil¬ 
ity.  However,  this  did  not  result  in  a  signiflcantly  smaller 
time  step  as  compared  with  that  calculated  by  CFL  cri¬ 
teria.  For  larger  cell  sizes,  this  approach  is  impractical. 
Recently  we  implemented  a  scheme  in  which  multi-phase 
processes  are  calculated  implicitly;  however,  this  will  be 
reported  elsewhere. 

The  ntunerical  method  is  implemented  in  a  code 
named  MPHASE,  which  is  fully  vectorized  and  sup¬ 
ported  by  number  of  graphics  and  diagnostics  codes. 

3.  RESULTS 

Model  Validation  for  One-Dimensional  Detonation 
Wave  Problem 

The  main  advantage  of  our  particle  combustion 
model  is  its  description  of  the  phenomenology  of  det¬ 
onation  for  a  wide  range  of  explosive  particle  sizes  and 
densities.  We  will  demonstrate  this  capability  on  a  set 
of  one-dimensional  test  problems.  For  these  test  prob¬ 
lems,  we  simulated  the  initiation  and  propagation  of  the 
detonation  waves  in  a  shock  tube-like  setting,  where  the 
explosive  particles  are  distributed  uniformly  through  the 
shock  tube  volume. 

Results  of  these  simulations  are  summarized  in  Ta¬ 
ble  1,  which  shows  detonation  wave  velocity,  peak  pres¬ 
sure,  and  peak  density  given  as  a  function  of  the  aver¬ 
age  density  of  the  solid  explosive.  Here  the  explosive 
two-phase  mixture  is  composed  from  RDX  particles  and 
air,  where  RDX  particle  concentration  varies  from  0.75 
kg/m^  to  1000  kg/m^.  This  concentration  variation  cov¬ 
ers  the  whole  range  of  solid  explosive  concentrations  of 
interest  to  our  problem.  The  siqpuiations  performed  with 
the  MPHASE  code  were  compared  with  the  experimen¬ 
tal  results,^^’^*  and  the  calculations  presented  in  Ref.  19 
were  done  with  the  TIGER  code. 

From  Table  I,  it  is  clear  that  our  simulation  results 
compare  favorably  with  other  simulation  results  and  e.x- 
perimental  data.  The  maximum  deviation  between  our 
results  and  referenced  results  is  no  greater  than  15%  for 
the  entire  range  of  explosives  densities.  Considering  that 


our  results  were  obtained  with  a  single  model  for  parti¬ 
cle  combustion  applied  to  the  extreme  range  of  densities, 
our  model  gives  an  excellent  prediction  of  the  detonation 
wave  parameters. 

Two-Dimensional  Simulation  Results 

In  our  two-dimensional  simulations,  we  first  study 
the  dynamic  of  the  lateral  initiation  in  a  simple  system 
formed  by  two  layers  of  explosive  with  different  concen¬ 
trations  of  the  explosive  powder  in  the  layers.  These 
layers  of  explosive  will  be  considered  confined  in  a  rect¬ 
angular  shock  tube  with  rigid  walls.  The  schematics  of 
the  set  up  for  a  typical  simulation  of  this  type  are  shown 
in  Figure  I.  The  detonation  wave  is  initiated  in  the  lower 
layer,  and  its  propagation  though  the  shock  tube  causes 
lateral  initiation  of  the  adjacent  layer.  In  one  of  the 
test  cases,  both  layers  are  initiated  simultaneously  with 
a  planar  front. 

First  we  simulated  initiation  and  propagation  of  the 
detonation  in  a  system  of  two  layers  of  detonable  RDX 
powder/air  mixture  contained  in  a  rectangular  channel 
4  cm  wide  and  35  cm  long.  The  lower  layer  hSs  an  RDX 
powder  concentration  of  800  ^  and  occupies  half  of  the 
channel  width,  and  the  upper  layer  of  the  channel  has  a 
mixture  concentration  of  200  Detonation  is  initiated 

in  the  lower  layer  by  a  planar  front  that  is  propagating 
from  left  to  right.  In  Figures  2a:2f,  results  of  this  sim¬ 
ulation  are  shown  in  the  form  of  pressure  contours  on  a 
logarithmic  scale  in  MPa  for  a  sequence  of  time  frames.  | 
In  these  figures,  we  can  follow  the  evolution  of  the  lateral  | 
initiation  and  formation  of  the  detonation  wave  structure  ! 
in  this  system. 

In  Figure  2a,  contour  plots  are  shown  at  time  t=0, 
which  corresponds  to  the  beginning  of  the  simulation 
and  depicts  initial  conditions  of  the  planar  wave  in  the 
lower  layer.  This  initial  wave  causes  lateral  initiation 
of  the  upper  layer  through  an  oblique  detonation  front 
shown  in  Figure  2b  at  t=9  x  10~*  sec.  The  oblique  front 
reflects  from  the  upper  wall  of  the  channel,  and  in  Fig¬ 
ure  2c  we  observe  that  the  wave  pattern  indicates  it  is 
a  single  Mach  reflection.  The  Mach  stem  is  very  short 
at  this  point.  In  Figure  2d,  the  pressure  contours  are 
shown  at  the  time  t=31  x  sec.  Here  the  Mach  stem 
is  clearly  visible  and  the  reflected  shock  has  reached  the 
lower  wall  of  the  channel.  The  Mach  stem  will  continue 
to  grow  and  the  triple  point  will  propagate  towards  the 
high  density  layer.  In  Figure  2e,  the  simulation  results 
are  shown  at  t=52x  i0~*  sec  when  detonation  wave  com¬ 
plex  has  reached  steady  state  propagaticn  regime.  The 
triple  point  has  reached  the  interface  between  the  two 
layer  and  is  unable  to  continue  propagation  downwards 
due  to  the  high  level  of  pressure  and  density  in  the  lower 
layer.  Also  at  this  stage  of  the  detonation  wave  prop¬ 
agation,  the  reflected  shock  has  reached  the  upper  wall 
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of  the  channel.  In  Figute  2f,  the  simulation  results  ate 
shown  at  t=64  x  10'*  sec.  Here  the  structure  of  the  det* 
onation  front  is  basically  unchanged  from  the  previous 
picture,  except  for  an  additional  reflection  from  the  up* 
per  wall  of  the  channel.  The  detonation  wave  parameters 
ate  also  unchanged  from  the  previous  time  frame,  indi* 
eating  that  the  detonation  wave  in  this  two  layer  system 
has  reached  steady  state. 

lb  validate  that  the  detonation  waves  complex  ob> 
served  in  above  reported  simulation  is  not  a  function  of 
the  initial  conditions,  we  simulated  a  teat  case  in  which 
all  problem  parameters,  except  the  initiation  wave,  are 
the  same  as  in  the  previous  case.  The  initiation  is  done 
by  a  single  planar  wave  that  starts  propagating  simulta* 
neously  in  iMth  layers  of  the  explosive.  In  Figures  3a:3e, 
results  for  this  simulation  are  shown  in  the  form  of  pres¬ 
sure  contours  for  a  sequence  of  time  frames.  The  initial 
conditions  are  shown  in  Figure  3a.  Here  we  can  observe 
a  planar  front  impinging  sLomiltaneously  on  both  layers 
of  explosive  in  the  channel.  At  first,  this  front  propsr 
gates  some  distance  planariy,  as  observed  in  Figure  3b. 
However,  a  significant  difference  in  the  explosive  powder 
density  quickly  leads  to  formation  of  the  oblique  front 
in  the  upper  layer,  as  shown  in  Figure  3c.  As  in  the 
previous  case,  the  oblique  front  reflects  from  the  upper 
wall  in  the  single  Mach  reflection  shown  in  Figure  3d. 
And  as  in  the  previous  case,  the  triple  point  of  the  Mach 
stem  propagates  downward  to  the  interfaces  between  the 
liters  to  form  the  stable  wave  pattern  shown  in  Figure 
3e.  The  parameters  of  the  detonation  waves  and  the 
structure  of  the  detonation  wave  complex  are  identical 
to  those  observed  in  the  previous  case,  which  proves  that 
it  is  not  a  function  of  the  initid  conditions,  but  physical 
conditions  of  the  layers. 

We  studied  the  effects  of  the  channel  walls  using 
a  system  that  included  a  2cm  thick  lower  layer  of  high 
density  (800  RDX  powder  and  a  10cm  thick  upper 
layer  of  low  density  (200  RDX  powder.  The  re¬ 
sults  of  this  simulation  are  shown  as  pressure  contours 
on  a  logarithmic  scale  in  Figures  4a:4d.  Figure  4a  shows 
the  initial  conditions.  In  Figure  4b,  we  can  see  at  the 
time  t  s  25  X  10~*  a  planar  detonation  wave  is  prop¬ 
agating  through  the  lower  layer  and  an  oblique  wave  is 
propagating  through  the  upper  layer.  In  Figure  4c,  the 
detonation  wave  is  shown  at  the  time  t=:41  x  10~*  from 
the  initiation.  Here  the  oblique  wave  is  reflecting  from 
the  upper  wall;  however,  it  is  distinct  from  the  previous 
cases  because  only  a  regular  reflection  pattern  is  formed. 
This  is  due  to  the  shallow  angle  of  incidence  of  the  deto¬ 
nation  wave,  that  corresponds  to  the  large  wedge  angles 
in  reflection  problems.  Figute  4d  shorn  the  re¬ 

sults  of  the  simulation  at  t  :=  52  x  10'*.  Here  we  can 
observe  the  same  regular  reflection  pattern  as  in  the  pre¬ 
vious  stage;  however,  the  incidence  angle  of  the  oblique 


wave  in  the  upper  layer  is  increasing.  Thus,  if  this  trei^ 
continues,  later  in  the  detonation  wave  evolution  we  wP 
see  the  formation  of  the  Mach  reflecticn  pattern,  as  w< 
have  in  previous  cases. 

We  have  also  examined  propaca.  >n  of  the  detona 
tion  wave  in  the  system  shown  in  .  .gure  5  that  cor 
responds  to  the  situation  where  the  ipper  layer  is 
confined  by  the  channel  wall.  Here  che  computations 
domain  is  2Scm  x  25cm  in  sue.  The  explosive  powde: 
density  is  distributed  according  to  the  4th  power  lav 
of  vertical  distance,  starting  from  the  ground  where  th( 
density  is  860  kg/m^,  to  1.2cm,  where  the  density  i 
0.75  kg/m^.  From  this  point  to  25cm  height,  the  dt^ 
sity  is  constant  and  equal  to  0.75  kg/m^.  The  densit; 
dirtribution  in  the  direction  of  theSf  axis  is  unifonr 
The  boundary  conditions  for  the  computational  domait 
shown  in  Figure  5  are  specified  as  follows:  solid  wai 
along  the  “x”  axis;  symmetry  conditions  along  the  “y 
axis;  supersonic  outflow  for  upper  boundary  and  at 
right  of  the  computational  domain.  The  noixture  con 
sists  of  RDX  powder  and  air  at  ambintt  conditions  ant 
it  is  assumed  to  be  quiescent  at  the  time  of  initiation. 

The  simulation  starts  at  tsd)  when  the  mixture  i 
initiated  at  the  lower  left  comer  of  the  computations 
domain,  as  shown  in  Figure  5.  The  energy  released  # 
the  initiating  explosion  leads  to  formation  of  the  detone 
tion  wave  propagating  through  the  multi-phase  medfr 
Figure  6s  shows  pressure  contours  for  the  propagatin 
detonation  wave  at  the  time  of  tsl2  x  10~*  msec  afte 
initiation.  Here  the  pressure  contour  levels  are  show 
on  logarithmic  scale  in  MPa.  The  maximum  pressdP 
value  of  7940  MPa  is  observed  in  the  layer  of  condense 
explosive  located  near  the  ground.  The  pressure  in  tb 
layer  is  two  to  three  orders  of  magnitude  higher  tha 
pressure  behind  the  detonation  wave  in  the  0.75  kg/tr 
RDX  cloud  and  air,  which  is  located  above  the  distanr 
of  1.2cm  from  the  ground.  Figure  6a  dmoonstrates 
the  detonation  wave  in  the  cloud  is  overdriven,  since  tt 
pressure  behind  the  shock  continuously  rises  and  reach^ 
its  maximum  in  the  layer.  From  this  figure,  we  also  ot 
serve  that  the  ctverdriven  wave  propagates  faster  in  tb 
cloud  than  in  the  layer.  This  is  explained  by  the  fact  t^ 
it  is  easier  to  compress  air  that  is  very  lightly  loaded  Ww 
particles  and  located  above  the  ground  layer,  than  it 
to  compress  air  heavily  loaded  with  a  particle  mixtu: 
near  the  ground.  It  b  interesting  to  note  a  diMontii 
uous  pressure  change  between  the  yellow  contours  ar. 
the  light  blue  and  green  contours  behind  the  deto^ 
tion  front.  This  discontinuity  is  over-emphasised  by  ot 
presentation  of  contour  lines  on  the  logarithmic  seal 
however,  further  examination  of  our  simulation  resul 
indicates  this  feature  is  real  and  is  similar  in  nature  ' 
barrel  shocks  observed  for  strong  jets.  It  is  different 
nature  from  the  triple  shock  structures  described  abqv 
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Iq  Figure  6b,  gaa  phase  density  contours  ate  shown 
for  the  time  t  =  12  x  10'*^  sec.  Here  the  contour  lines 
are  distributed  on  logarithmic  scale.  The  main  features 
of  the  shock  wave  structure  are  very  similar  to  those  ob¬ 
served  in  the  pressure  contours  figure.  Here  we  see  that 
a  jet  of  high  density  gases  reflects  from  the  center  of 
symmetry  axis,  creating  a  contact  discontinuity  that  we 
will  observe  at  a  later  time.  The  barrel  shock  is  clearly 
visible  in  this  figure.  In  Figure  6c,  the  particle  density 
contour  plots  ate  shown  for  ts:12  x  I0~^  see.  The  con¬ 
tour  levels  in  this  figure  are  given  on  the  logarithmic 
scale  and  the  initial  deposition  of  the  explosive  material 
in  the  ground  layer  of  the  computational  domain  can  be 
clearly  observed.  The  black  contour  lines  delineate  the 
beginning  and  the  end  of  the  reaction  zone  in  the  cloud. 
To  the  left  of  these  contours  lies  an  area  with  combus¬ 
tion  products  and  to  the  right  unbutned  particles  in  the 
cloud.  Here  we  can  see  that  the  reaction  zone  length  is 
of  the  order  of  1cm. 

Figure  6d  shows  pressure  contours  for  the  same  sim¬ 
ulation  for  the  time  t  =  55  x  10~*  see,  just  before  the 
detonation  wave  leaves  the  computational  domain.  In 
this  figure,  we  see  that  the  global  structure  of  the  wave 
did  change  slightly  from  Figure  6a.  We  observe  that  the 
barrel  shock  wave  is  fully  developed  and  has  a  half  el¬ 
lipse  shape.  The  detonation  wave  in  the  cloud  is  still 
overdriven;  however,  part  of  the  shock  wave  front  that 
propagates  vertically  weakened  as  it  got  further  away 
from  the  detonation  front  in  the  layer.  In  Figure  6e,  gas 
temperature  contours  are  shown  at  t  =  55  x  10~*  sec.  In 
this  case,  it  is  interesting  to  note  that  the  highest  tem¬ 
peratures  are  observed  behind  the  front  of  the  overdriven 
detonation  wave  in  the  cloud,  in  the  immediate  vicinity 
of  the  upper  strata  of  the  layer.  Very  high  temperatures 
in  this  region  can  be  explained  by  the  high  pressure  gen¬ 
erated  by  the  detonation  of  the  explosive  material  in  the 
layer  and  by  relatively  low  density  of  strata  of  the  cloud 
in  the  immediate  vicinity  to  the  layer.  Here,  as  in  the 
pressure  contours  graph,  the  area  of  barrel  shock  can  be 
clearly  identified. 

We  also  observe  in  Figure  6  a  clear  development  of 
two  detonation  fronts,  one  moving  vertically  in  the  cloud 
and  another  moving  horizontally  in  the  layer.  Because 
the  energy  density  of  the  explosive  powder  in  the  layer 
is  about  three  orders  of  magnitude  larger  than  that  in 
the  cloud,  the  vertical  parts  of  the  front  represent  over¬ 
driven  detonation  waves  in  the  cloud.  Even  though  the 
vertical  front  has  slowed  down  compared  with  the  hori¬ 
zontal  front,  its  speed  and  parameters  far  exceed  those 
typical  for  detonation  waves  in  a  cloud.  In  fact,  the  self- 
sustuned  detonation  regime  in  the  cloud  wilt  develop  at 
the  distance  of  about  three  meters  from  the  layer.  The 
area  of  the  front  close  to  the  detonation  wave  in  the  layer 
will  remain  hot  and  overdriven,  since  it  is  located  very 


close  to  detonation  front  in  the  layer.  In  Figure  6f,  par¬ 
ticle  density  contours  are  shown  on  a  logarithmic  scale. 
We  can  clearly  observe  the  reaction  zone  delineated  by 
black  contour  lines.  In  this  case,  the  reaction  zone  length 
in  the  cloud  is  about  Icm.  Consistent  with  the  gradual 
transition  from  overdriven  to  self-sustained  detonation, 
the  reaction  zone  length  is  larger  for  the  vertical  part 
of  the  detonation  front.  The  deton^on  wave  velocity 
observed  in  our  simulation  is  approximately  4048  m/sec, 
which  is  significantly  lower  than  the  detonation  wave  ve¬ 
locity  observed  in  ROX  with  a  density  of  860  kg/m^ 
(see  Table  1),  which  is  the  highest  density  in  the  ground 
layer.  This  can  be  explained  by  the  high  gradient  of  par¬ 
ticle  density  distribution  in  the  layer,  where  the  density 
drops  rapidly  from  860  kg/m^  at  the  bottom  of  the  layer 
to  0.75  kg/m^  at  the  top  strata  of  the  layer  at  12  nun 
above  the  ground. 

4.  CONCLUSIONS 

We  have  presented  a  mathematical  model  and  nu¬ 
merical  solution  for  the  simulation  of  initiatioo  and  prop¬ 
agation  of  the  detonation  waves  in  multi-phase,  mixtures 
consisting  of  solid  combustible  particles  and  gas.  Using 
this  model,  we  studied  detonations  in  mixtures  of  solid 
RDX  particles  and  air  for  the  purpose  of  aamining  the 
effects  of  wide  variation  in  particle  density  distribution 
on  the  dynamics  and  structure  of  detonation  waves.  We 
considered  a  physical  system  of  layers  of  explosive  RDX 
powder  confined  in  a  channel  and  studied  initiation  and 
propagation  of  the  detonation  waves  in  this  system.  This 
study  revealed  a  specific  structure  of  the  detonation  front 
that  is  dependent  on  the  thickness  of  the  layers  and  their 
energetic  content.  We  showed  that  for  the  system  con¬ 
sisting  of  two  layers  of  the  same  thickness  but  of  vastly 
different  powder  density,  a  Mach  stem  r^ection  occurs 
that  propagates  to  the  interface  between  the  layers  and 
helps  create  a  stable  detonation  front.  However,  forma¬ 
tion  of  the  Mach  stem  reflection  will  be  a  strong  function 
of  the  relative  thickness  of  the  layer;  in  one  of  the  sim¬ 
ulated  examples,  only  a  regular  reflection  would  form  in 
the  simulation  time  frame. 

For  the  system  consisting  of  a  solid  particle  cloud  in 
air  and  a  layer  of  high  particle  density  near  the  ground, 
our  simulations  have  revealed  a  specific  detonation  front 
shape  with  a  characteristic  precursor  of  the  blast  front 
in  the  strata  immediately  above  the  layer.  This  feature 
of  the  detonation  front  can  be  explained  by  the  fact  that 
the  energy  released  in  the  detonation  wave  in  the  ground 
layer  produces  a  faster  shock  wave  in  the  dilute  cloud 
than  in  these  heavily  loaded  with  solid  particles  stratums 
of  the  ground  layer.  However,  these  structures  were  not 
observed  experimentally,  and  more  studies  are  needed  to 
examine  their  parameters. 

The  maximum  pressure  affecting  the  ground  was  di- 
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rectly  related  to  the  maximum  particle  density  in  the 
lower  strata  of  the  layer.  However,  the  detonation  front 
velocity  for  the  fourth  power  distribution  case  was  con¬ 
siderably  lower  than  calcidated  for  a  one-dimensional 
case  with  860  kg/m^  particle  density,  reflecting  the  sig¬ 
nificant  effect  of  two-dimensional  expansion.  Existence 
of  the  high  density  strata  at  the  bottom  of  the  ground 
liQrer  in  the  fourth  power  case  significantly  increased  the 
maximum  pressure  at  the  ground,  and  produced  higher 
detonation  wave  velocity. 

Using  a  wiable  density  layer,  one  can  reach  a  com¬ 
bination  of  pressure  and  velocity  conditions  outside  of 
Chapmen-Jougett  limitations.  The  range  of  conditions 
that  can  be  obtained  in  the  variable  density  system  and 
its  paramettics  of  that  system  needs  a  more  systematic 
study.  In  this  article,  we  introduced  only  the  m^e- 
matical  formulation  and  numerical  simulation  method 
validated  for  the  range  of  conditions  of  interest.  In  ad¬ 
dition,  we  have  given  some  examples  of  its  application 
for  two-dimensional  simulations.  However,  this  method¬ 
ology  should  be  linked  to  an  experimental  study  for  a 
more  in-depth  analysis  of  the  phenomenology  discussed 
here. 
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Table  1.  One  Dimensional  Validation  Result. 
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Figure  1.  Setup  for  the  two-layer  detonation  simulation  problem. 
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Figure  3.  Initiation  and  propagation  of  the  detonation  wave  in  a  two 
layers  system.  Both  layers  aire  initiated.  Pressure  contours. 
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Figure  5.  Computational  domain  and  boundary  conditions. 
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Abstract 

The  airbreathing  Pulsed  Detonation  Engine  (PDE)  is  analyzed  by  direct  simulations  of  its  cycle  using 
Computational  Fluid  Dynamics.  We  describe  a  new  CFD  methodology'  of  composite  structured/unstructured 
grids,  which  is  used  for  detailed  analysis  of  the  PDE  performance.  This  performance  is  analyzed  for  a  unique 
engine  geometry  in  which  the  PDE  is  located  in  a  wing  section.  Examination  of  the  key  processes  in  the  PDE 
device  shows  that  the  largest  portion  of  its  thrust  is  produced  during  the  very  short  time  interval  when  the 
detonation  wave  reflects  from  the  thrust  wall,  and  that  detonation  cycle  frequency  up  to  200Hz  is  feasible. 
We  conclude  that  the  PDE  type  devices  can  compete  with  small  diameter  turbojet  engines  in  performance 
characteristics  while  surpassing  them  in  simplicity  of  design,  flexibility  of  geometrical  configuration,  and 
price. 


1.  Introduction 

Our  first  reports  on  the  airbreathing  Pulsed  Detona¬ 
tion  Engine  (PDE)  concept^*^  described  a  systematic  se¬ 
ries  of  parametric  studies  of  the  PDE  via  computational 
fluid  dynamics  (CFD).  They  also  detailed  an  analysis  of 
engine  performance  over  a  wide  range  of  flight  regimes, 
including  subsonic  and  supersonic  flows  and  physical  ge¬ 
ometries  with  various  nozzle  and  air  inlets.  Addition¬ 
ally,  static  table  top  experiments^  demonstrated  that  the 
principle  of  pulsed  or  repetitive  detonation  can  be  suc¬ 
cessfully  applied.  To  date,  our  results  indicate  that  prac¬ 
tical  engines  for  certain  vehicles  can  be  conceptualized 
and  designed  with  the  information  that  has  already  been 
generated  from  the  studies.  Specificaiiy,  our  studies  have 
shown  that  the  PDE  is  an  excellent  candidate  for  the  pri¬ 
mary  propulsion  source  for  small  aerodynamic  vehicles 
that  operate  over  the  flight  envelope,  0.2<M<2.0.  Fur¬ 
ther,  our  analysis  of  the  simulation  results  indicates  that 
the  PDE  is  a  high  thrust-to- weight  ratio  device.  The 
predicted  performance  places  the  PDE  propulsion  con¬ 
cept  in  a  strongly  competitive  position  compared  with 
present  day  small  turbojets.  The  PDE  concept  has  the 
added  attractiveness  of  rapid  variable  thrust  control,  no 
moving  parts  and  the  potential  for  low  cost  manufactur¬ 
ing.  The  PDE  concept  is  scalable  over  a  wide  range  of 
engine  sizes  and  thrust  levels.'*  For  example,  it  is  theo¬ 
retically  possible  to  produce  PDE  engines  on  the  order 
of  one  to  several  inches  in  diameter  and  thrusts  on  the 
order  of  pounds,  as  well  as  devices  that  provide  thou¬ 
sands  of  pounds  thrust.  One  of  the  unique  features  of 
the  PDE  that  will  be  explored  in  this  paper  is  its  geomet¬ 
ric  flexibility.  Ail  the  configurations  of  the  engine  that 
we  have  examined  in  previous  papers  had  an  axisym- 
mctric  geometry.  However,  the  PDE  concept  allows  a 


tremendous  flexibility  in  engine  geometry.  In  this  paper 
we  will  investigate  the  possibility  of  fitting  a  PDE  det 
onation  chamber  into  a  section  of  a  conventional  wing 
One  of  the  obvious  advantages  of  this  design  is  reductior 
of  the  drag  and  weight  penalty;  other  advantages  can  b< 
associated  with  stealth  quality  of  the  Wing-PDE  design 
The  parametric  studies  to  date  were  made  possi 
ble  by  the  development  of  a  new  generation  of  CFD 
tools.  These  tools  have  allowed  us  to  accurately  sim¬ 
ulate  the  details  of  the  complex  nonlinear  time  depen¬ 
dent  processes.  In  this  article,  we  used  a  new  algorithir 
implemented  on  a  composite  structured/unstructurec 
grid.  This  algorithm  combines  the  flexibility  of  describ 
ing  complicated  geometries  characteristic  of  the  unstruc¬ 
tured  triangular  grids  with  the  computational  efficiency 
of  the  structured  grids.  A  brief  description  of  the  CFC 
methods  employed  in  our  studies  is  given  in  Section  3. 
2.  The  Pulsed  Detonation  Engine  Concept 

A  detonation  process,  due  to  the  very  high  rate  oi 
reaction,  leads  to  a  propulsion  concept  in  which  the  con¬ 
stant  volume  process  can  be  fully  realized.  In  detonative 
combustion,  the  strong  shock  wave,  which  is  part  of  the 
detonation  wave,  acts  like  a  valve  between  the  detonation 
products  and  fresh  charge.  The  speed  of  the  detonation 
wave  is  about  two  orders  of  magnitude  higher  than  the 
speed  of  a  typical  deflagration.  This  allows  the  design  of 
propulsion  engines  with  a  very  high  power  density.  Each 
detonation  has  to  be  initiated  separately  by  a  fully  con¬ 
trolled  ignition  device  with  a  wide  range  of  variable  cycle 
frequencies.  A  physical  restriction  dictating  the  range  of 
detonation  frequency  arises  from  the  rate  at  which  the 
fuel/aii  mixture  can  be  introduced  into  the  detonation 
chamber.  This  also  means  that  a  device  based  on  a  det¬ 
onative  combustion  cycle  can  be  scaled  and  its  operating 
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parameters  can  be  modified  for  a  range  of  required  out¬ 
put  conditions. 

There  have  been  numerous  attempts  to  take  ad¬ 
vantage  of  detonative  combustion  for  engine  applica¬ 
tions,®’^'*  the  most  recent  and  successful  which  was  car¬ 
ried  out  at  the  Naval  Postgraduate  School*  (NPS)  by 
Heiman  et  al.  During  this  study,  several  fundamentally 
new  elements  were  introduced  to  the  concept  that  dis¬ 
tinguished  the  NPS  research  device  from  previous  stud¬ 
ies.  First,  it  is  important  to  note  that  the  NPS  experi¬ 
mental  apparatus  was  the  first  successful  self-  aspirating 
air  breathing  detonation  device.  Intermittent  detona¬ 
tion  frequencies  of  25  Hz  were  obtained,  which  was  in 
phase  with  the  fuel  mixture  injection  through  the  timed 
fuel  valve  opening  and  spark  ignition.  The  feasibility 
of  intermittent  injection  was  establbhed.  Pressure  mea¬ 
surements  showed  conclusively  that  a  detonation  process 
occurred  at  the  frequency  chosen  for  fuel  injection.  Far¬ 
ther,  self-  aspiration  was  shown  to  be  effective.  Finally, 
the  effectiveness  of  a  primary  detonation  as  a  driver 
for  the  main  detonation  was  clearly  demonstrated.  Al¬ 
though  the  NPS  studies  were  abbreviated,  many  of  the 
technical  issues  considered  to  be  essential  for  efficient 
intermittent  detonation  propulsion  were  addressed  with 
positive  results. 

The  generic  device  we  considered  in  our  previous 
studies^'®  is  a  small  engine  shown  in  Figure  1,  which 
is  a  schematic  of  the  basic  detonation  chamber  attached 
to  the  aft  end  of  a  generic  aerodynamic  vehicle.  In  the 
current  study,  we  considered  a  Wing-POE  configuration 
that  will  be  described  below;  however,  for  the  sake  of 
simplicity  we  will  describe  the  basics  of  the  PDE  concept 
using  the  illustration  in  Figure  1.  For  the  engine  configu¬ 
ration  shown  in  this  figure,  the  combustible  gas  mixture 
is  injected  at  the  closed  end  of  the  detonation  chunber 
and  a  detonation  wave,  initiated  at  the  aft  end  of  the  det¬ 
onation  chamber,  propagates  through  the  mixture.  The 
main  portion  of  the  thrust  is  produced  by  the  detona¬ 
tion  wave  in  a  very  short  period  of  time  as  it  impinges  on 
the  thrust  wall.  After  the  detonation  wave  has  refiected 
from  the  thrust  wall,  the  detonation  products  will  vent 
from  the  volume  of  the  detonation  chamber  through  the 
open  aft  end  of  the  chamber  and  air  inlets  shown  in  Fig¬ 
ure  1.  Then  the  chamber  volume  will  be  filled  with  the 
fresh  combustible  gas  mixture  and  the  process  will  be  re¬ 
peated  with  the  frequency  of  100  to  200Hz.  A  key  issue 
in  the  pulsed  detonation  engine  concept  is  the  design  of 
the  main  detonation  chamber.  The  detonation  chamber 
geometry  determines  the  propulsion  efficiency  and  the 
duration  of  the  cycle  (frequency  of  detonations).  Since 
the  fresh  charge  for  the  generic  engine  is  supplied  from 
the  external  flow  field,  the  efficiency  of  the  engine  de¬ 
pends  on  the  interaction  of  the  surrounding  flow  with  the 
internal  flow  dynamics.  The  range  of  the  physical  pro¬ 


cesses  requiring  simubtion  in  order  to  model  the  complc^ 
flow  phenomena  associated  wi>  .  the  detonation  engine 
periormance  is  very  broad.  T!.  se  pr-cesses  include  I 
initiation  and  propagation  of  t  det'  uion  wave  inside 
the  chamber;  2)  expansion  r  ne  c  jnation  product; 
from  the  chamber  into  the  ai-  tream  around  the  cham 
ber  at  flight  Mach  numbers;  >  fresh  air  intake  from  tUP 
surrounding  air  into  the  cha.  iner;  4)  the  flow  pattern  in 
side  the  chamber  during  p  .,t-exhaust  pressure  buildup 
which  determines  the  strategy  for  mixing  the  next  deto¬ 
nation  charge;  and  5)  strong  mutual  interaction  betweer. 
the  flow  inside  the  chamber  and  surrounding  the  engine 

All  of  these  processes  are  interdependent,  and  intef# 
action  and  timing  are  crucial  to  engine  efficiency.  Thus 
unlike  simulations  of  steady  state  engines,  the  phenom 
ena  described  above  cannot  be  evaluated  independently 
The  need  to  resolve  the  flow  regime  inside  the  cham 
ber  and  account  for  nozzles,  air  inlets,  etc.,  and  at  thi 
same  time  resolve  the  flow  outside  and  surrounding  tfa# 
engine  where  the  flow  regime  varies  from  high  subsonic 
locally  transonic  and  supersonic,  makes  it  a  challenging 
computational  problem. 

The  single  most  important  issue  is  to  determine  the 
timing  of  the  air  intake  and  mixing  of  the  fresh  charge 
leading  to  repetitive  detonations.  It  is  sufficient  to  a4^ 
sume  inviscid  flow  for  the  purpose  of  simulating  the  ex¬ 
pansion  of  the  detonation  products  and  fresh  air  intake 
This  assumption  makes  the  numerical  simulation  of  the 
PDE  flow  phenomena  somewhat  easier  than  using  a  fully 
viscous  flow  model.  For  the  size  of  the  generic  device 
studied  in  this  work,  the  effects  of  viscous  boundary  la/P 
era  are  negligible,  with  the  exception  of  possible  bound¬ 
ary  layer  effects  on  the  valve  and  inlet  geometries  dis¬ 
cussed  subsequently. 

3.  Computational  Method  Used  in  the  Study 

The  basic  computational  tool  used  for  our  stud¬ 
ies  is  the  AUGUST  (Adaptive  Unstructured  Goduno^ 
Upwind  Second  Order  on  Triangular  Grids)  code,  de¬ 
scribed  in  detail  by  Lottati  et  al.*’*®  This  code  pro¬ 
vides  a  method  for  solving  the  Euler  equations  of  gas- 
dynamics  on  unstructured  grids  with  arbitrary  con¬ 
nectivity.  The  formulation  is  based  on  a  second  or¬ 
der  Godunov  method.**  For  the  current  study,  th^ 
AUGUST  code  has  been  implemented  on  a  compos¬ 
ite  structured/unstructured  grid.  The  combined  struc¬ 
tured/unstructured  method  is  a  much  more  efficient  ap¬ 
proach  to  domain  decomposition  than  the  separate  ap- 
plicaticn  of  each  method.  In  the  following  discussion, 
we  show  that  the  results  of  applying  this  technique  t^ 
the  complex  problem  of  the  external/internal  reactive 
flow  typical  for  the  PDE  engine  show  complex  wave  pat¬ 
terns  propagating  seamlessly  through  interfaces  between 
structured/unstructured  grids  without  reflections  or  dis¬ 
tortions,  This  new  approach  provides  ultimate  flexibility 
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ia  domain  decomposition  with  maximum  code  efficiency. 
latroductioD 

Structured  rectangular  grids  allow  the  construction 
of  numerical  algorithms  that  perform  an  efficient  and  ac¬ 
curate  integration  of  fluid  conservation  equations.  The 
efficiency  of  these  schemes  results  from  the  extremely 
low  storage  overhead  needed  for  domain  decomposition 
and  the  efficient  and  compact  indexing  that  also  defines 
domain  connectivity.  These  two  factors  allow  code  con¬ 
struction  based  on  a  structured  domain  decomposition 
that  can  be  highly  vectorized  and  para.Uelized.  Integra¬ 
tion  in  physical  space  on  orthogonal  and  uniform  grids 
produces  the  highest  possible  accuracy  of  the  numerical 
algorithms.  The  disadvantage  of  structured  rectangular 
grids  is  that  they  cannot  be  used  for  decomposition  of 
computational  domains  with  complex  geometries. 

The  early  developers  of  computational  methods  re¬ 
alized  that,  for  many  important  applications  of  Com¬ 
putational  Fluid  Dynamics  (CFD),  it  is  un:u:ceptable 
to  describe  curved  boundaries  of  the  computational  do¬ 
main  using  the  stair-step  approximation  available  with 
the  rectangular  domain  decomposition  technique.  The 
techniques  of  boundary-fitted  coordinates  were  devel¬ 
oped  to  overcome  this  difficulty.  With  these  techniques, 
the  computational  domain  is  decomposed  on  quadrilat¬ 
erals  that  can  be  fitted  to  the  curved  domain.  The  so¬ 
lution  is  then  obtained  in  the  physical  space  using  the 
geometrical  information  defining  the  quadrilaterals,  or  in 
the  computational  coordinate  system  that  is  obtained  by 
transformation  of  the  original  domain  into  a  rectangular 
domain.  The  advantage  of  this  technique  is  that  it  em¬ 
ploys  the  same  indexing  method  as  the  rectangular  struc¬ 
tured  domain  decomposition  methods  that  also  serve  to 
define  domain  connectivity.  The  boundary  fitted  coor¬ 
dinated  approach  leads  to  efficient  codes,  with  approx¬ 
imately  a  4.T  penalty  in  terms  of  memory  requirement 
per  cell  as  compared  with  rectangular  domain  decompo¬ 
sition.  However,  this  approach  is  somewhat  restricted  in 
its  domain  decomposition  capability,  since  distortion  or 
large  size  variations  of  the  quadrilaterals  in  one  region 
of  the  domain  lead  to  unwanted  distortions  or  increased 
resolution  in  other  parts  of  the  domain.  An  example  of 
this  is  the  case  of  structured  body  fitted  coordinates  that 
are  used  for  simulations  of  flows  over  a  profile  with  sharp 
trailing  edges.  In  this  case,  increased  resolution  in  the 
vicinity  of  the  trailing  edge  leads  to  increased  resolution 
in  the  whole  row  of  elements  connected  to  the  trailing 
edge  elements. 

The  most  effective  methods  of  domain  decomposi¬ 
tion  developed  to  overcome  this  disadvantage  are  those 
using  unstructured  triangular  grids.  These  methods 
were  developed  to  cope  with  very  complex  computational 
domains.  The  unstructured  grid  method,  while  efficient 
and  powerful  in  domain  decomposition,  results  in  codes 


that  must  store  large  quantities  of  information  defining 
the  grid  geometry  and  connectivity,  and  have  large  com¬ 
putational  and  storage  overheads.  As  a  rule,  an  unstruc¬ 
tured  grid  code  requires  greater  storage  by  a  factor  of  10. 
and  will  run  about  20  times  slower  when  compared  on  a 
per  cell  per  iteration  basis  with  a  structured  rectangular 
code. 

Unstructured  grid  methods  are  used  to  their  best 
advantage  when  combined  with  grid  adaptivity.  This 
feature  usually  allows  dynamic  decomposition  of  the 
computational  domaun  subregions,  thus  leading  to  an  or¬ 
der  of  magnitude  reduction  in  the  number  of  ceils  for 
some  problems,  as  compared  to  the  unstructured  grid 
without  this  adaptive  capability.  However,  this  advan¬ 
tage  is  highly  dependent  on  the  problem  solved.  Adap¬ 
tive  unstructured  grids  have  an  advantage  over  the  un- 
adaptive  unstructured  domain  decomposition  if  the  area 
of  high  resolution  domain  decomposition  is  less  than 
one  tenth  of  the  global  area  of  the  computational  do¬ 
main.  This  explains  the  fact  that  while  the  adaptive 
unstructured  method  may  be  extremely  effective  for  so¬ 
lutions  with  multiple  shock  waves  in  complex  geometries, 
it  becomes  extremely  inefficient  when  high  resolution  is 
needed  in  a  substantial  area  of  the  computational  do¬ 
main. 

Our  approach  to  domain  decomposition  combines 
the  structured  and  unstructured  methods  for  achiev¬ 
ing  better  efficiency  and  accuracy.  Using  this  method, 
structured  rectangular  grids  are  used  to  cover  most  of 
the  computational  domain,  and  unstructured  triangular 
grids  are  used  only  to  patch  between  the  rectangular 
grids  (Figure  2),  or  to  conform  to  the  curved  boundaries 
of  the  computational  domain  (Figure  3).  In  these  figures, 
an  unstructured  triangular  grid  is  used  to  decompose  the 
regions  of  the  computational  domain  that  have  a  simple 
geometry. 

Our  paper  will  illustrate  the  performance  gains 
achieved  from  the  use  of  this  composite  grid  decompo¬ 
sition  approach.  We  apply  the  Second  Order  Godunov 
method”  to  solve  the  Euler  equations  on  both  struc¬ 
tured  and  unstructured  sections  of  the  grid. 
Mathematical  Model  and  Integration  Algorithm 

We  consider  a  system  of  two-dimensional  Euler 
equations  written  in  conservation  law  form  as; 
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Here  u,v  are  the  velocity  vector  components,  p  is 
the  pressure,  p  is  the  density  and  e  is  total  energy  of  the 
fluid.  We  assume  that  the  fluid  is  an  ideal  gas  and  the 
pressure  is  given  by  the  equation-of-state. 

P  =  (7  -  l)(e- !(«*  +  «'■))  (2) 

where  7  is  the  ratio  of  specific  heats  and  typically  taken 
as  1.4  for  air.  It  is  assumed  that  an  initial  distribution  of 
the  fluid  parameters  is  given  at  t  =  0,  and  the  boundary 
conditions  defining  a  unique  solution  are  specified  for  the 
computational  domain. 

The  system  of  governing  equations  in  Eq.  (1)  can 
be  written  as 
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where  Q  represents  the  convective  flux  vector.  By  inte¬ 
grating  Eq.  (3)  over  space  and  using  Gauss’  theorem, 
the  following  expression  is  obtained 


(4) 

where  dl  =  ndC,  n  is  the  unit  normal  vector  in  the  out¬ 
ward  direction,  and  d£  is  a  unit  length  on  the  boundary 
of  the  domain.  The  variable  Cl  is  the  domaun  of  com¬ 
putation  and  dCl  is  the  circumference  boundary  of  this 
domain. 

Equation  (4)  can  be  discretized  for  each  element 
(cell)  in  the  domain 
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where  X,-  is  the  area  of  the  cell;  At  is  the  marching  time 
step;  and  Up  are  the  primitive  variables  at  the 
center  of  the  cell  at  time  n  and  at  the  update  n  =  1 
time  step;  Qj  is  the  value  of  the  fluxes  across  the  M 
boundaries  on  the  circumference  of  the  cell  where  rij  is 
the  unit  normal  vector  to  the  boundary  edge  j,  and  A^j 
is  the  length  of  the  boundary  edge  j.  The  fluxes 
are  computed  by  applying  the  Second  Order  Godunov 
algorithm,  and  Eq.  (5)  is  used  to  update  the  physical 
primitive  variables  Ui  according  to  computed  fluxes  for 
each  marching  time  step  At.  The  marching  time  step 
is  subjected  to  the  CFL  (Courant-ftedrichs-Lewy)  con¬ 
straint. 

We  seek  a  solution  to  the  system  of  Eq.  (1)  in  the 
computational  domsun,  which  is  decomposed  in  part  into 
triangles  with  arbitrary  connectivity  and  in  part  into 
rectangles  using  a  logically  structured  grid.  We  use  the 
advantage  of  the  unstructured  grid‘*~‘*  to  describe  the 
curved  boundary  of  the  computational  domain  and  areas 
that  need  increased  local  resolution;  this  covers  10%  of 


the  total  computational  domain.  The  structured  grid  oc¬ 
cupies  the  remaining  90%  of  the  computational  domain 
in  our  example.  The  numerical  technique  for  solving 
Euler’s  equation  on  an  unstructured  grid  is  described  in 
Refs.  9-10,  and  the  technique  for  the  structured  grid 
is  described  in  Ref.  11.  These  numerical  techniques 
apply  some  of  the  ideas  that  were  introduced  in  Reis. 
17-18.  The  structured  and  unstructured  codes  apply  the 
center-based  formulation,  i.e.,  the  primitive  variables  are 
defined  in  the  center  of  the  ceil,  which  makes  the  cell  the 
integration  volume,  while  the  fluxes  are  computed  across 
the  edges  of  the  cell.  The  basic  algorithmic  steps  of  the 
Second  Order  Godunov  method  can  be  defined  as  fol¬ 
lows; 

1.  Find  the  value  of  the  gradient  at  the  baricenter  of 
the  cell  for  each  gas  dynamic  parameter  Ui ; 

2.  Find  the  interpolated  values  of  U  at  the  edges  of  the 
cell  using  the  gradient  values; 

3.  Limit  these  interpolated  values  based  on  the  mono¬ 
tonicity  condition: 

4.  Subject  the  projected  values  to  the  characteristic’s 
constraints; 

5.  Solve  the  Riemann  problem  by  applying  the  pro¬ 
jected  values  at  the  two  sides  of  the  edges; 

6.  Update  the  gas  dyneunic  parameter  U  according  to 
the  conservation  equations  (1)  applying  to  the  fluxes 
computed  and  the  current  time  step. 

As  was  advocated  in  Ref.  9,  we  prefer  the  trian¬ 
gle  center-based  over  the  vertex-based  version  of  the 
code.  For  the  same  unstructured  grid,  a  triangle- based 
algt^thm  will  result  in  smaller  control  vdumes  than  a 
vertex-based.  In  addition,  for  the  Second  Order  Go¬ 
dunov  solver,  implementation  of  the  boundruy  condi¬ 
tions  is  more  straightforward  and  accurate  for  the  center- 
based  algorithm  than  in  the  vertex-based.  These  two  fac¬ 
tors,  along  with  the  efliects  of  grid  connectivity,  strongly 
affect  the  algorithm  accuracy  and  performance,  and  are 
the  main  reasons  for  the  superiority  of  the  center-based 
version  over  the  vertex  version. 

4.  Results  for  Wing-PDE  configuration 

All  of  our  previous  studies  considered  axisymmet- 
ric  configurations  of  the  PDE  devices.  However,  because 
PDE  does  no^faave  rotating  parts,  it  allows  another  de¬ 
gree  of  flexibility  that  enables  us  to  configure  the  PDE 
devices  in  other  than  axisymmetric  geometries.  To  illus¬ 
trate  this,  we  used  the  inner  volume  of  a  section  of  the 
wing  as  a  detonation  chamber  for  a  PDE  device.  The 
schematic  of  the  Wing-PDE  geometry  considered  in  this 
study  is  shown  in  Figure  4.  We  assume  that  the  wing  is 
located  in  a  subsonic  air  flow  stream  with  M  =  0.8.  The 
particular  wing  shape  used  is  the  Gastelow  cusped  su¬ 
percritical  airfoil.**  Two  significant  modifications  of  the 
original  Gastelow  airfoil  geometry,  provision  for  an  inlet 
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at  the  leading  edge  and  an  outlet  nozzle  at  the  trailing 
edge,  allow  its  use  as  a  PDE  device. 

In  Figure  5,  the  cross  section  of  the  Wing-PDE  ge¬ 
ometry  is  shown  in  the  computational  domain  that  is  de¬ 
composed  into  structured  rectangular  and  unstructured 
triangular  grids.  For  clarity,  we  show  only  every  sixth 
point  of  the  grid  used  in  simulation.  In  our  simulations 
we  have  used  a  structured  grid  with  255  x  131  nodes  and 
an  unstructured  grid  with  7229  nodes.  The  area  cov¬ 
ered  by  the  unstructured  grid  is  about  10%  of  the  total 
area  of  the  computational  domain.  It  is  obvious  from 
Figure  5  that  the  unstructured  grid  is  used  in  the  re¬ 
gions  of  the  computational  domain  having  complex  ge¬ 
ometry,  i.e.,  wing  external  and  internal  surfaces,  inlet, 
and  nozzle.  The  structured  rectangular  grid  is  used  to 
cover  the  rest  of  the  computational  domain.  As  men¬ 
tioned  previously,  this  method  of  domain  decomposition 
leads  to  the  most  efficient  use  of  computer  resources. 
Our  results  demonstrate  that  flow  propagates  through 
the  interfaces  between  the  triangular  unstructured  and 
rectangular  structured  sections  seamlessly. 

First,  we  have  to  examine  the  flow  pattern  for  the 
steady  state  flow  regime  of  the  Wing-PDE  device  shown 
in  Figure  5.  This  udll  also  establish  the  reference  val¬ 
ues  of  the  airdynamic  drag  and  lift  for  this  configura¬ 
tion.  In  Figure  6a,  the  results  are  shown  in  form  of  the 
pressure  contours  for  the  converged  steady  state  solu¬ 
tion  for  the  Wing-PDE  configuration  in  M^.8  external 
flow  stream  at  zero  angle  of  attack.  We  can  observe  in 
Figure  6a  a  very  complex  internal/external  flow  pattern 
around  Wing-PDE  geometry.  In  addition  to  the  shock 
waive  near  the  trailing  edge  on  the  upper  surface  of  the 
wing,  we  can  observe  two  additional  shock  waves.  One 
is  created  by  the  flow  exiting  from  the  inner  volume  of 
the  wing  through  the  nozzle  at  the  trtuling  edge,  and 
another  is  created  at  the  flow  inlet  located  under  the 
leading  edge.  The  air  flow  enters  the  inner  volume  of 
the  wing  through  the  inlet  and  creates  a  complex  flow 
field  with  an  average  pressure  of  «  1.0  atm.  It  is  easy 
to  improve  the  flow  uniformity  in  the  inner  vdume  of 
the  inlet  geometry  and  geometry  of  the  inner  surfaces. 
However,  these  aspects  of  the  Wing-PDE  design  will  be 
considered  in  future  studies;  for  the  purposes  of  this  pa¬ 
per,  we  examine  only  the  main  features  of  the  Wing-PDE 
configuration.  The  air  flow  in  the  inner  volume  of  the 
wing  create  considerable  drag.  By  integrating  the  pres¬ 
sure  over  the  inner  and  outer  surface  of  the  Wing-PDE 
configuration,  we  have  calculated  the  basic  air  dynamic 
characteristics  of  this  profile  at  M  =  0.8  flow.  The  fol¬ 
lowing  values  for  the  steady  state  flow; 

Lift;  Cl  =  0.18;  Drag:  Cj  =  -0.138;  Pitching  Mo¬ 
ment;  Cm  =  0.034. 

We  have  assumed  that  at  t  =  0,  the  inner  volume 
of  the  wing  is  filled  with  a  detonable  gas  mixture.  The 


detonation  wave  is  initiated  at  the  aft  end  of  the  inner 
volume  of  the  wing  by  a  planar  front.  The  fuel  chosen  for 
these  simulations  was  ethylene.  The  detonability  Hmiu 
of  ethylene  in  air  range  from  4%  to  12%  concentrations 
by  volume,  and  depend  somewhat  on  temperature  and 
pressure.  We  assume  for  the  sake  of  simplicity  that  the 
fuel/ait  ratio  is  6%  by  volume. 

In  Figure  6b,  the  pressure  contours  are  shown  at 
t  =  1.18  X  10~'*  sec.  The  propagation  of  the  detonation 
front  is  planar.  However,  because  of  the  curved  inner 
walls  of  the  wing,  the  detonation  front  reflects  from  the 
wall  surfaces  and  the  maximum  pressure  in  the  reflected 
waves  reach  36.6  atm.  However,  this  level  of  pressure 
is  observed  in  a  very  small  area  of  the  detonation  front 
where  reflected  or  colliding  transverse  waves  can  cause 
a  local  maximum.  The  detonation  wave  velocity  for  this 
mixture  is  about  1800  m/sec. 

In  Figure  6c,  the  pressure  contours  are  shown  at  the 
time  i  —  5.24  x  10“^  sec,  shortly  after  the  detonation 
front  has  reflected  from  the  inner  surface  of  the  lead¬ 
ing  edge.  Here  the  maximum  pressure  was  dropped  to 
12.1  atm,  the  reflected  shock  is  moving  in  the  direction 
of  the  trailing  edge,  and  the  expansion  of  thp  detona¬ 
tion  products  through  the  inlet  was  created  a  semicircu¬ 
lar  shock  wave  that  propagates  in  the  opposite  direction 
to  the  external  flow  stream.  In  Figure  6d  at  the  time 
t  s  9.5  X  10“'*  sec,  the  reflected  wave  teaches  the  noz¬ 
zle  at  the  trailing  edge,  and  expansion  of  the  detonation 
products  through  this  nozzle  creates  an  additional  shock 
wave  that  expands  in  the  direction  of  the  flow  stream. 
When  the  original  reflected  shock  has  reached  the  con¬ 
verging  area  at  the  trailing  edge,  it  will  partially  reflect 
and  send  a  shock  wave  towards  the  inner  surface  of  the 
leading  edge.  In  Figure  6e,  the  pressure  contours  are 
shown  at  t  =  1.39  x  10“^  sec.  Here  the  shock  waves  cre¬ 
ated  by  the  detonation  products  emitting  &om  the  inlet 
and  nozzle  of  the  Wing-PDE  device  collide,  creating  a 
complex  flow  pattern  with  two  triple  point  shocks,  a  vor¬ 
tex  at  the  trailing  edge  and  a  complex  system  of  waves 
propagating  through  the  inner  volume  of  the  wing.  The 
maximum  pressure  observed  in  Figure  fie  at  the  wave 
shock  wave  interaction  is  3.2  atm.  It  is  important  to 
note  that  the  numerical  method  simulates  the  flow  evo¬ 
lution  seamlessly  through  the  structured/unstructured 
grid  interfaces. 

In  Figure  6f,  the  simulation  results  are  shown  at 
t  =  5.7  X  10"®  sec;  this  corresponds  to  the  end  of  one 
cycle  for  the  Wing-PDE  configuration.  Here  we  can  ob¬ 
serve  that  the  flow  pattern  is  very  similar  to  the  one  in 
Figure  6a,  except  for  some  vortices  propagating  in  the 
lower  right  part  of  the  computational  domain.  The  max¬ 
imum  pressure  is  reached  at  the  leading  edges  and  has 
the  same  values  as  shown  in  Figure  6a.  The  inner  vol¬ 
ume  of  the  wing  has  a  relatively  uniform  flow  pattern 
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with  an  average  pressure  of  0.83  atm.  At  this  time  the 
gaseous  mixture  in  the  inner  chamber  of  the  wing  will 
be  initiated  at  the  trailing  edge  and  the  second  cycle  will 
get  started. 

Examination  of  the  details  of  the  flow  pattern  result¬ 
ing  from  a  single  detonation  not  only  allows  evaluation 
of  the  timing  between  the  subsequent  detonations  but 
also  provides  important  information  for  optimization  of 
mixing,  detonation  products  expansion,  and  other  gas- 
dynamic  processes  related  to  operation  of  the  PDE  cy¬ 
cle.  Performance  characteristics  of  the  PDE  device  can 
be  analyzed  by  integrating  in  time  the  forces  exerted  by 
pressure  on  the  inner  and  outer  surfaces  of  the  Wing- 
PDE  device.  In  Figure  7,  results  for  such  an  integratics) 
of  the  force  parallel  to  the  ground  as  a  function  of  time 
are  shown.  Calculation  of  this  force,  taking  into  account 
the  drag  and  the  thrust  resulting  from  the  detonation 
cycle,  yields  the  net  thrust  force.  Figure  7  gives  this 
force  for  a  linear  meter  of  the  wing  in  pounds.  In  this 
figure,  we  observe  that  the  net  thrust  force  is  negative 
before  the  detonation  is  initiated,  reaches  the  value  of 
4.6  X  10’  Lb/M  during  the  reflection  of  the  main  deto¬ 
nation  front  from  the  inner  walls  of  the  wing,  and  quickly 
decays  to  its  negative  initial  values  that  correspond  to 
the  drag  of  the  Wing-PDE  configuration  in  M=0.8  am¬ 
bient  flow  stream.  The  positive  thrust  force  is  produced 
by  the  detonation  engine  in  a  very  short  time  interval; 
w  3.0  X  10'^  sec. 

The  time  integral  of  the  force  shown  in  Figure  7 
is  thrust  produced  by  the  PDE  device.  Because  of  its 
intermittent  operation,  we  need  to  assume  the  cycle  fre¬ 
quency  to  be  able  to  calculate  the  net  thrust.  In  Figure 
8,  the  results  of  thrust  force  integration  ate  shown  in  the 
assumption  of  200Hz  detonation  frequency  of  the  Wing- 
PDE  device.  Our  analysis  above  of  a  single  cycle  shows 
that  this  frequency  of  operation  is  feasible.  In  Figure  8, 
we  observe  that  the  maximum  thrust  of  5000  Ib  per  linear 
meter  of  the  wing  is  achieved  in  the  first »  4.0  x  I0~^  sec 
after  the  detonation  wave  impinges  on  the  thrust  wall. 
This  period  of  time  corresponds  to  the  duration  of  the 
positive  thrust  force  shown  in  Figure  7.  After  this,  the 
thrust  will  erode  because  of  drag  force  to  the  value  of 
4000  lb  at  the  end  of  the  cycle.  The  average  thrust  for 
the  duration  of  the  cycle  is  4250  Ib  per  linear  meter  of 
the  wing. 

One  of  the  advantages  of  the  Wing-PDE  configura¬ 
tion  is  that  it  will  generate  lift.  Our  simulations  show 
that  the  chosen  configuration  will  produce  significant  lift 
even  at  zero  angle  of  attack  because  of  the  flow  of  det¬ 
onation  products.  In  Figure  9,  the  net  integrated  lift  is 
presented  as  a  function  of  time  in  the  same  format  as  the 
net  thrust  shown  in  Figure  8.  The  integrated  lift  shown 
in  Figure  9  is  not  a  linear  function  of  time,  as  will  be  the 
case  for  the  steady  state  flow  regime.  Substantial  lift  is 


generated  shortly  after  the  detonation  products  start  to 
expand  into  the  surrounding  flow  stream.  The  average 
lift  generated  is  about  2250  lb  per  meter  of  wing  length:  ^ 
this  is  comparable  to  the  net  thrust  of  4250  Ib.  Our  esti¬ 
mates  indicate  that  about  half  of  this  lift  is  generated  by 
the  detonation  products  and  the  other  half  by  the  free 
stream  flow  through  the  chamber. 

5.  Conclusions 

We  have  presented  a  powerful  numerical  technique  ^ 
for  analysis  of  nonsteady  flow  over  a  complex  geometrical 
configuration  in  the  computational  domain  decomposed 
on  unstructured  triangular  and  structured  rectangular 
grids.  Simulations  of  the  Wing-PDE  cycle  have  demon¬ 
strated  flexibility  and  efficiency  of  this  technique  of  do¬ 
main  decomposition.  Numerical  results  show  seamless  ^ 
propagations  through  structured/unstructured  grid  in¬ 
terfaces  of  the  multiple  shocks,  contact  discontinuities, 
vortices,  rarefaction  waves  and  other  complex  flow  fea¬ 
tures. 

Use  of  this  powerful  numerical  technique  allowed  us 
to  examine  the  operation  cycle  and  propulsion  character-  ^ 
istics  of  the  Wing-PDE  device.  We  demonstrated  in  this 
study  that  in  principle,  the  Wing-PDE  device  can  oper¬ 
ate  with  the  200  Hz  cycle  frequency  producing  4250  lb 
per  linear  meter  of  the  wing  of  the  net  thrust.  We  exam¬ 
ined  the  Wing-PDE  configuration  to  illustrate  the  geo¬ 
metric  flexibility  of  this  engine.  This  is  an  additional  ad- ' 
vantage  to  efficiency,^  scalability,^  thrust  control,’  sim¬ 
plicity,  and  low  cost  of  this  device  discussed  in  our  pre¬ 
vious  publications. 
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Figure  1.  Schematic  of  the  generic  PDE  showing  detonation  chamber,  inlet,  detonation 
wave,  fuel  injectors  and  position  relative  to  an  aerodynamic  vehicle. 


Figure  2.  An  example  of  hybrid  stnictured/unstructured  domain  decomposition. 
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Figure  3.  An  example  of  hybrid  structured/unstructured  domain  decomposition. 
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Figtire  8.  Net  integrated  thnist  for  the  viing-PDE  simulation. 
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Figure  9.  Integrated  net  lift  for  the  wing  PDE  simulation. 


A  Second  Order  Godunov  Scheme  on  SpatiaU 
Adapted  Triangular  Grid 


Itzhak  Lottati  and  Shmuel  Eidelman 
Science  Applications  International  Corporation 
ABSTRACT 

Spatial  adaptation  procedure  for  the  accurate  and  efficient  solution  of 
unsteady  inviscid  flow  simulation  is  described.  The  adaptation  procedures 
were  developed  amd  implemented  applying  a  second  order  Godunov  scheme. 
These  procedures  involve  mesh  enrichment/coarsening  to  either  add/remove 
vertices  in  high/low  gradient  regions  of  the  flow,  respectively.  The  goal  is 
to  achieve  solutions  of  high  spatial  accuracy  at  minimal  computational  cost. 
The  paper  describes  a  very  effective  error  estimator  to  detect  high/low  ac¬ 
tivity  regions  of  the  flow  to  be  enriched  or  coarsened,  respectively.  The  error 
estimator  is  based  on  total  energy  amd  density  fluxes  into  the  cell  combined 
with  gradient  of  density.  Included  in  the  paper  is  a  detailed  description  of  the 
direct  dynamic  refinement  method  that  is  used  for  adaptation.  A  detailed 
simulation  of  a  reflection  and  diffraction  of  multiple  shock  waves  flowing 
over  a  diaimond  shape  wedge  is  presented  and  compared  with  e.xperimentai 
results.  The  simulated  results  are  shown  to  be  in  excellent  agreement  with 
the  experiment  primarily  in  that  all  the  complicated  features  of  the  physics 
are  accurately  accounted  for  and  the  shock  waves,  slip  lines,  vortices  are 
sharply  captured. 
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INTRODUCTION 

Considerable  progress  has  been  made  over  the  past  decade  in  develop¬ 
ing  methods  for  spatial  adaptation  of  the  computational  meshes  based  on 
the  numerical  solution  of  the  simulated  physics.  These  methods  are  being 
developed  to  produce  higher  spatial  accuracy  in  such  simulation  more  effi¬ 
ciently.  The  goal  of  mesh  adaptation  is  to  enrich  meshes  locally,  based  on 
the  numerical  solution,  in  order  to  capture  physical  features  of  importance; 
in  contrtist  to  globally  fine  meshes,  this  process  will  minimize  computer  run 
times  and  memory  costs.  The  methods  of  mesh  adaptation  can  be  catego¬ 
rized  into  three  general  classes;  1)  mesh  regeneration,  2)  mesh  movement, 
and  3)  mesh  enrichment. 

The  idea  of  mesh  regeneration  is  systematically  to  identify  high/low 
activity  region  in  the  flow  and  accordingly  remesh  those  regions  applying 
mesh  generation  code.  This  is  done  by  assigning  criteria  for  spatial  accuracy 
and  number  of  vertices.  This  procedure  requires  a  mapping  of  the  “old”  flow 
solution  into  the  “new”  generated  meshes  by  using  one  of  the  interpolated 
schemes.  For  the  second  method,  mesh  movement,  the  number  of  points  in 
the  computational  domain  remains  fixed.  The  adaptation  procedure  moves 
vertices  from  low  activity  regions  to  high  gradient  regions  to  achieve  a  high 
concentration  of  vertices  to  resolve  high  activity  regions.  The  movement 
of  the  points  is  dictated  by  forcing  functions  in  the  Poisson  -  equation  in 
the  grid  generator  code.  The  final  method  of  spatial  adaptation  is  mesh 
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enrichment.  In  this  method,  vertices  are  added  or  removed  according  to  the 
spatial  resolution  of  the  physicjd  features  in  the  flow.  The  advantages  of  mesh 
enrichment  over  regeneration  and  movement  are  its  higher  degree  of  flexibility 
in  being  able  to  add  points  where  they  eire  needed  and  to  remove  points  where 
they  are  not  needed.  In  our  mesh  enrichment  method,  we  add  points  ahead 
of  the  shock  wave,  thus  preventing  the  need  of  interpolation  in  the  high 
gradient  region  for  achieving  higher  accuracy  of  the  results,  .\dding  and 
removing  points  are  done  in  monotone/ very  low  activity  regions  to  prevent 
numerical  dissipation. 

Lohner^^^  has  developed  procedures  to  enrich  the  mesh  for  transient  flow 
problems  locally  by  subdividing  elements  in  the  grid  according  to  specific 
spatial  resolution  criteria.  The  method,  referred  to  as  H-refinement,  keeps 
a  history  of  the  initial  grid  (mother  grid)  and  the  subdivision  of  each  level 
(daughter  grids).  The  H-refinement  relies  heavily  on  the  initial  grid  m  it  is 
subdivided  for  enrichment  and  recovered  in  the  coarsening  stage.  A  similar 
adaptive  strategy  to  Lohner  is  adopted  by  Rausch^^^  et  al.,  but  applies  a 
different  error  estimator  and  upwind  type  algorithm  for  a  solver. 

In  our  paper,  we  describe  a  Godunov  scheme  to  solve  Euler  equations 
on  an  unstructured  adaptive  triangle  mesh.  We  discuss  the  methodology  of 
a  cell  centered  Second  Order  Godunov  scheme  applied  to  a  triangular  mesh, 
amd  the  method  of  Direct  Dynamic  Refinement  that  is  used  for  adaptation 
of  the  unstructured  triangular  grid.  Simulation  and  experimental  results 
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are  compared  for  a  test  case  applying  the  adaptive  unstructured  grid  to  a 
complicated  pattern  of  planar  shock  wave  flow  diffraction  over  a  half  diamond 
shape  wedge. 


SECOND  ORDER  GODUNOV  • 

ALGORITHM  ON  UNSTRUCTURED  GRID 

This  section  describes  the  implementation  of  the  Second  Order  Godunov  ^ 

algorithm  on  a  triangular  unstructured  grid.  The  algorithm  is  explicit  and 
is  cell-center  based. 

We  consider  a  system  of  two-dimensional  Euler  equations  written  in 
conservation  law  form  as: 
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dt  ^  dx 
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Here  u,u  are  the  x,y  velocity  vector  components,  p  is  the  pressure,  p  is  the 
density  and  e  is  totzd  energy  of  the  fluid.  We  assume  that  the  fluid  is  an 


ideal  gas.  The  total  energy  of  gas  is  given  by  the  following  equation: 
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where  7  is  the  ratio  of  specific  heats.  It  is  assumed  that  an  initial  distribution 
of  the  fluid  parameters  is  given  at  t  =  0,  and  the  boundary  conditions  defining 
a  unique  solution  are  specified  for  the  computational  domain. 

The  system  of  governing  equation  (1)  can  be  written  in  the  following 
form: 

^  +  V-0  =  0  (3) 

where  Q  represents  the  convective  flux  vector.  By  integrating  Eq.  (3)  over 
space  and  using  Gauss'  theorem,  the  following  expression  is  obtained 


^  f  UdA+  <{  O-dI  =  0  (4) 

^  Ja  Jdtt 

where  dl  =  nd£,  n  is  the  unit  normal  vector  in  the  outward  direction,  and  dC 
is  a  unit  length  on  the  boundary  of  the  domain.  The  variable  Q  is  the  domain 
of  computation  and  dQ  is  the  circumference  boundary  of  this  domain. 


Equation  (4)  can  be  discretized  for  each  element  (cell)  of  the  domain 


{vr*'-un.  w 


where  Aj  is  the  area  of  the  cell;  At  is  the  marching  time  step;  and 


up  are  the  primitive  variables  at  the  center  of  the  cell  at  time  n  and  at 
the  update  n  -f  1  time  step;  is  the  value  of  the  fluxes  across  the  three 
boundaries  edges  on  the  circumference  of  the  cell  where  hj  is  the  unit  normal 
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vector  to  the  boundary  edge  j,  and  ALj  is  the  length  of  the  boundary  edge  j. 
Equation  (5)  is  used  to  update  the  physical  primitive  variables  {/,  according 
to  computed  fluxes  for  each  time  step  At.  The  time  step  is  subjected  to  the 
CFL  (Courant-Fredrichs-Lewy)  constraint. 

To  obtain  a  second  order  spaciai  accuracy,  the  gradient  of  each  primitive 
variable  is  computed  in  the  baricenter  of  the  cell.  This  gradient  is  used  to 
define  the  projected  values  of  primitive  variables  at  the  two  sides  of  the  cell’s 
edge,  as  is  shown  in  Figure  1.  The  gradient  is  approximate  by  a  path  integral 


(6) 


The  notation  is  similar  to  the  one  used  for  Eq.  (5)  except  the  domain  is  a 
single  cell  and  and  17***®*  are  values  at  the  baricenter  and  on  the  edge 
respectively.  The  gradient  is  estimated  as 


1  ® 

(7) 

where  is  an  average  value  representing  the  primitive  variable  value  for 
edge  j. 

The  gradients  that  axe  computed  at  each  baricenter  are  used  to  project 
values  for  the  two  sides  of  each  edge  by  piecewise  linear  interpolation.  The 
interpolated  values  are  subjected  to  monotonicity  constraints. The  mono¬ 
tonicity  constraint  assures  that  the  interpolated  values  are  not  creating  new 
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extrema. 


The  monotonicity  limiter  algorithm  can  be  written  in  the  following  form: 


where  Af  is  the  vector  from  the  baricenter  to  the  point  of  intersection  of  the 
edge  with  the  line  connecting  the  baricenters  of  the  ceils  over  the  two  sides 
of  this  edge.  6  is  the  limiter  coefficient  that  limits  the  gradient  Vi/,. 

First,  we  compute  the  maximum  and  minimum  values  of  the  primitive 
variable  in  the  i’s  cell  and  its  three  neighboring  ceils  that  share  common 


edges  (see  Fig.  1): 


USi  =  Min  (err") 


|it  =  i, 1,2,3  . 


The  limiter  can  be  defined  as: 


(^  =  Min  { 1,  /?  =  1,2,3 


where  superscript  Ir  stands  for  left  and  right  of  the  three  edges  (6  combina¬ 
tions  in  total).  is  defined  by: 


j.lr  _ 
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1  +  Sgn  {AUin]  +  [1  -  Sgn  (Af/f)]  ^^^23 
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(11) 
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where  =  VUj’'  ■  Aft-  and 


A  rrmkx  _  rrmax  free// 

A  rrmin  rrmin  rree// 

^^ctU  —  ^cell  ~ 


(12) 


To  obtain  a  second  order  of  accuracy  in  time  and  space,  we  subject  the 
projected  values  of  the  left  and  right  side  of  the  cell  edge  to  characteristic 
constraints  following  Ref.  4.  The  one  dimensional  characteristic  predictor  is 
applied  to  the  projected  values  at  half  time  step  t"  +  The  characteristic 
predictor  is  formulated  in  the  local  system  of  coordinates  for  the  one  dimen¬ 
sional  Euler  equation.  We  illustrate  the  implementation  of  the  characteristic 
predictor  in  the  direction  of  the  unit  vector  n^.  The  Euler  equations  for  this 
direction  can  be  written  in  the  following  form: 


Wi-hA(W)W„c  =  0 


(13) 


where 


/u  — r  0 \ 

;  AiW)  =  0  u  r  (14) 

y  0  p(^  u  j 

where  t  —  p~^,  p  denotes  density  while  u,p  are  the  velocity  and  pressure. 
The  matrix  A{W}  has  three  eigenvectors  (/^,r^)  (/  for  left  and  r  for  right 
where  #  denote  +,o,-)  associated  with  the  eigenvalues  A"*"  =  u  -|-  c,  A"  = 


An  approximation  of  projected  value  to  an  edge  accurate  to  second  order 


in  space  and  time  can  be  written  as; 
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An  approximation  to  can  be  written  as: 


=  VV,  +(Af,  -  fi,)VW, 


At, 


(16) 


where 


(A/f  A/f  \  -  i >®)  fo*”  ceil  left  to  the  edge 
*  "  ~  \Mm(A,",  o)  for  cell  right  to  the  edge  . 

The  gradients  applied  in  the  process  of  computing  the  projected  values 
at  t"  +  (At/2)  are  subjected  to  the  monotonicity  limiter. 

Following  the  cheuracteristic  predictor  described  above,  the  full  Riemann 
problem  is  solved  at  the  edge.  The  solution  of  the  Riemann  problem  defines 
the  flux  through  the  edge.  The  fluxes  through  the  edges  of  triangles 

are  then  integrated  (Eq.  5),  thus  giving  an  updated  value  of  the  variables  at 
t’*''"^  One  of  the  advantages  of  the  described  algorithm  is  that  calculation  of 
the  fluxes  is  done  over  the  largest  loop  in  the  system  (loop  over  edges)  and 
can  be  carried  out  in  the  vectorized  or  parallelized  loop.  This  fact  leads  to 
efficient  algorithm. 
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The  algorithm  presented  is  a  modification  of  the  algorithm  of  Ref.  5 
which  was  derived  for  structured  mesh.  This  algorithm  has  been  applied  to 
simulate  a  wide  range  of  flow  problems  and  has  been  found  very  accurate 
in  predicting  the  features  of  the  physics.  The  performance  of  the  algorithm 
is  well  documented  in  Refs.  6-8.  The  next  section,  the  spatial  adaptive 
procedure,  is  described  in  detail.  These  descriptions  include  explanations 
of  the  error  estimator  for  flow  feature  detection  amd  the  Direct  Dynamic 
Refinement  Method  used  to  enrich  and  coarsen  the  mesh. 

DIRECT  DYNAMIC  REFINEMENT  METHOD  FOR  ADAPTATION 
ON  AN  UNSTRUCTURED  TRIANGULAR  GRID 

The  Direct  Dynamic  Refinement  method  (DDR)  is  a  new  method  for 
adapting  unstructured  triangular  grids  during  the  computational  process. 
As  stated,  an  unstructured  grid  is  very  suitable  for  implementing  boundary 
conditions  on  complex  geometrical  shapes  as  well  as  the  adaptation  of  the 
grid,  if  necessary.  The  adaptation  of  the  unstructured  triangular  grid  leads 
to  efficient  usage  of  memory  resources.  The  adaptive  grid  enables  the  user 
to  capture  moving  shocks  and  high  gradient  flow  features  with  high  resolu¬ 
tion.  The  available  memory  resources  can  be  very  efficiently  distributed  in 
the  computational  domain  to  accommodate  the  resolution  needed  to  cap¬ 
ture  features  of  the  physical  property  of  the  solution  as  they  are  evolved. 
Dynamic  refinement  controls  the  resolution  priorities.  These  priorities  can 
be  set  according  to  the  physiczil  features  that  the  user  wishes  to  emphasize 
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in  the  simulation.  The  user  has  control  over  the  accuracy  of  the  physical 
features  resolved  in  the  simulation,  without  being  restricted  to  the  initial 
grid.  The  alternative  to  Direct  Dynamic  Refinement  (DDR)  is  the  hierar¬ 
chical  dynamic  refinement  (H-refinement)  that  keeps  a  history  of  the  initial 
grid  (mother  grid)  and  the  subdivision  of  each  level  (daughter  grids).  In 
the  H-refinement  method,  it  is  necessary  to  keep  overhead  information  on 
the  level  of  each  triangle  subdivision,  and  double  indirect  indexing  is  needed 
to  keep  track  of  the  H-refinement  process.  As  mentioned,  the  H-refinement 
relies  heavily  on  the  initial  grid  as  it  subdivides  this  grid  and  returns  to  it 
after  the  passage  of  the  shock. 

To  minimize  the  dissipation  caused  by  the  interpolation  and  extrapola¬ 
tion  in  the  refinement  and  coarsening  of  the  grid,  the  addition  and  deletion 
of  point  is  done  in  the  region  where  the  flow  features  are  smooth.  Thus  for 
capturing  the  shock,  the  refinement  should  be  applied  in  the  region  ahead  of 
the  shock.  The  coarsening  of  the  grid  is  done  in  the  flow  regions  where  the 
gradients  of  the  flow  parzuneters  are  small. 

In.  the  present  version  of  AUGUST  (Adaptive  l^nstructured  ^odimov 
Upwind  Second  order  Trieuiguleir),  we  implemented  an  algorithm  with  mul¬ 
tiple  criteria  for  capturing  a  variety  of  features  that  might  exist  in  the  physics 
of  the  problem  to  be  solved.  To  identify  the  location  of  a  moving  shock,  we 
use  the  flux  of  total  energy  into  triangles.  The  fluxes  entering  and  leaving 
triangles  are  the  most  accurate  physical  variables  computed  by  the  Godunov 
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algorithm  for  solving  Euler’s  equations,  and  are  used  to  update  the  physical 
variables  for  each  time  step  in  each  triangle.  Supplementary  to  the  :  ux  of 
energy  as  an  error  indicator,  we  use  the  flux  of  total  density  into  t  ■  mgles 
and  the  density  gradient.  The  error  indicator  is  the  only  sensor  tha-  .s  solely 
responsible  for  identifying  the  area  to  be  refined  or  coarsened  in  cne  compu¬ 
tational  domain.  As  such,  the  error  indicator  should  be  sensitive  enough  to 
detect  physical  features  that  are  of  interest  to  the  user,  such  as  shock  waves, 
rarefaction  waves,  slip  lines  and  vortices.  The  error  indicators  that  are  im¬ 
plemented  in  the  code  are  able  to  sense  very  weak  slip  lines  in  the  presence 
of  strong  shock  waves.  The  ability  of  the  error  indicators  to  identify  weak 
physical  features  in  the  presence  of  strong  ones,  without  picking  up  numer¬ 
ical  noises,  is  essential  to  the  simulation  of  adaptive  grids.  As  stated,  the 
quality  of  the  results  is  as  good  ^ls  the  error  indicators  applied.  If  the  error 
indicators  fail  to  identify  the  physical  feature,  this  feature  probably  will  be 
overlooked  in  the  simulated  results.  It  should  be  noted  that  the  process  of 
applying  error  indicators  for  identifying  the  areas  to  be  adaptively  refined  or 
coarsened  is  an  expensive  loop  that  has  to  check  the  whole  triangles  table  in 
the  simulation.  Thus,  the  error  indicators  axe  applied  each  9  to  15  time  steps. 
This  process  is  preceded  by  application  of  an  algorithm  that  refines  a  buffer 
zone  ahead  of  the  features  and  coarsens  the  grid  after  it  was  moved  away. 
The  buffer  zone  ahead  of  the  feature  is  identified  by  using  a  search  pattern  of 
finding  the  neighbors  of  the  flagged  triangles  sorted  by  the  error  indicators. 
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We  are  not  applying  any  physical  parameters  to  identify  the  ’ones  ’‘ahead.” 

The  refinement  algorithm  follows  several  basic  steps.  The  process  of 
adding  points  to  refine  the  grid  locally  is  done  by  either  adding  a  new  vertex 
in  the  baricenter  ot  the  triangle  or  adding  a  new  vertex  in  the  middle  of  the 
edge.  Adding  a  new  vertex  in  the  baricenter  of  a  triangle  is  very  efficient 
in  the  sense  that  the  refinement  affects  this  individual  triangle  only.  We 
apply  this  process  exclusively  for  refinement.  As  a  supplement,  especially  on 
the  boundary,  we  apply  the  method  of  adding  a  new  vertex  on  an  edge.  As 
a  complement  to  adding  new  vertices,  we  apply  the  reconnection/swapping 
algorithm  that  flips  the  diagoncd  (common  edge)  of  two  adjacent  triangles  to 
improve  the  quality  of  the  triangles  constructed.  Figure  2  displays  a  chain 
of  those  basic  steps  to  illustrate  the  refinement  process.  Figure  2a  shows  the 
original  grid.  Figure  2b  illustrates  a  one  step  scheme  refinement  in  which  a 
new  vertex  is  introduced  into  a  triangular  cell  forming  three  cells  (two  new 
ones).  On  the  boundary  edges,  a  new  vertex  is  introduced  in  the  middle 
of  those  edges  to  form  two  cells  (one  new  one).  This  refinement  is  followed 
by  reconnection  that  modifies  the  grid  as  demonstrated  in  Fig.  2c.  The 
process  of  refinement  and  reconnection  can  be  continued  until  the  necessary 
grid  resolution  is  achieved.  As  an  example,  another  loop  of  refinement  is 
illustrated  in  Figs.  2d  and  2e.  This  direct  approach  to  grid  refinement 
provides  extreme  flexibility  in  resolving  local  flow  features. 

A  similar  direct  approach  is  applied  to  grid  coarsening.  The  basic  step 


in  this  process  is  deleting  the  cells  and  edges  associated  with  a  vertex  to  be 
removed,  as  shown  in  Fig.  3b.  During  the  second  step,  this  void  in  he  grid 
is  filled  with  new  larger  triangles  (Fig.  3c)  without  introducing  ne-  ertices. 
The  last  step  is  local  reconnection  and  relaxation  as  shown  in  F'  .  3d.  The 
relaxation  procedure  is  a  simple  relocation  of  the  vertex  moved  ,  the  center 
of  the  polygon  surrounding  this  vertex  (only  if  the  polygon  is  a  convex). 

The  algorithm  of  direct  dynamic  refinement  proved  to  be  very  efficient  in 
refining  and  coarsening  the  grid  adaptively.  The  refinement  and  cozirsening 
followed  a  short  inquiry  on  the  quality  and  shape  of  the  triangle  flagged  and 
its  close  neighbors.  Since  we  do  not  keep  any  history  or  tree  for  each  triangle, 
the  DDRM  algorithm  has  much  less  checking  to  do  as  compared  to  the  H- 
refinement  eilgorithm.  The  vectorization  eiud  parallelization  of  the  solver  is 
straightforward. 

NUMERICAL  RESULTS  FOR  THE 
TWO  DIMENSIONAL  TEST  PROBLEM 

We  have  tested  the  Second  Order  Godunov  algorithm  in  a  variety  of 
flow  simulations  ranging  from  the  low  subsonic  to  the  high  hypersonic  Mach 
(6-8)  regime.  The  AUGUST  code  proved  to  be  very  robust  and  accurate.  The 
results  obtained  are  comparable  to  or  better  than  those  obtained  applying 
leading  flow  solvers  in  all  of  the  regimes  tested. 

To  validate  our  DDRM  implemented  in  the  AUGUST  code,  we  simulated 
the  problem  of  interaction  of  a  Mach  2.S5  planar  shock  wave,  propagating 


are  accurately  accounted  for  and  the  shock  waves,  slip  lines,  vortices  are 
sharply  captured. 
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in  a  channel  with  a  45°  symmetrical  double  ramp.  Figtire  4  shows  the  ex¬ 
perimental  interferogram  of  the  problem  to  be  simulated  (reproduced).  The 
example  that  we  chose  to  simulate  is  most  appropriate  to  test  the  perfor¬ 
mance  of  an  adaptive  algorithm.  The  experimental  results  show  a  complex 
flow  pattern  containing  a  mix  of  strong  discontinuities,  as  shock  ’aves,  and 
very  weak  features  such  ais  slip  lines,  vortices,  and  rarefaction  waves.  The 
error  estimator  must  recognize  and  flag  ail  these  features  for  refinement.  The 
error  estimator  should  be  sensitive  enough  to  identify  very  weak  slip  lines 
without  picking  up  numerical  noises  present  in  the  simulation.  We  have 
simulated  the  shock  wave  reflection  and  diffraction  over  a  45°  comer  at  the 
conditions  that  correspond  to  the  experimental  result  shown  in  Fig.  4.  Here 
we  present  results  for  several  shapes  of  the  flow  evolution.  The  flow  in  the 
channel  is  from  left  to  right.  Figure  5  displays  density  contour  plots  after 
the  shock  passed  the  apex  of  the  double  wedge  obstacle.  In  Fig.  5a,  the 
density  contours  are  overlayed  on  the  grid  used  at  this  stage  of  the  evolving 
flow.  For  clarity,  only  the  density  contours  are  displayed  in  Fig.  5b.  The 
grid  displayed  in  Fig.  5a  shows  how  well  the  adaptation  technique  follows 
the  high  activity  region  in  the  flow.  The  grid  is  adapting  to  regions  with  high 
pressure  gradients  and  high  density  gradient.  In  Fig.  5a,  one  can  observe 
high  quality  grid  produced  by  the  DDR  method.  The  shock  has  a  relatively 
thin  buffer  zone  ahead  of  its  front,  allowing  us  to  avoid  the  interpolations 
related  to  grid  adaptation  of  the  flow  variables  in  the  area  of  high  gradient. 
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The  flow  features  are  resolved  accurately,  and  the  contact  discontinuity  amd 
triple  point  are  clearly  defined. 

Figure  6  shows  the  density  contours  at  a  later  time  in  the  same  format 
as  in  Fig.  5.  This  figure  demonstrates  the  ability  of  the  DDRM  to  identify 
and  follow  flow  features  in  the  computational  domain.  In  this  figure  we  can 
observe  a  complicated  flow  nattem  developing  as  a  result  of  interaction  of  the 
rarefraction  wave  with  the  comple::  pattern  of  shock  waves.  A  recompression 
shock  and  a  strong  vortex  that  are  developed  in  this  time  frame  are  well 
resolved.  We  can  also  observe  a  slip  line  originating  at  the  triple  point. 
The  adaptation  algorithm,  as  in  the  previous  time  frame,  follows  both  shock 
waves  and  contact  discontinuities. 

Figure  7  displays  the  density  contours  at  the  stage  comparable  to  that 
shown  in  Fig.  4  for  the  experimental  results.  The  computed  results  as 
displayed  in  Fig.  7b  show  a  flow  pattern  similar  to  the  experiment.  The  slip 
line  and  the  formation  of  vertices  along  it  are  clearly  depicted.  The  shock  and 
reflected  shock  as  well  as  the  recompression  shock  are  very  sheurpiy  defined 
with  very  low  numerical  noise.  The  vortex  developed  after  the  compression 
shock  is  distinctly  displayed.  A  new  reflected  shock  can  be  seen  developing 
at  the  channel  wall  behind  the  double  wedge. 

The  results  shown  in  Figs.  5-7  display  the  ability  of  the  algorithm  to 
simulate  a  complex  transient  flow  problem  on  dynamically  adapting  grid. 
The  error  estimates  used  in  our  algorithm  allow  detection  of  strong  and 
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weeik  shock  waves,  conducted  discontinuities,  vortices  or  other  fronts  that 
need  enhanced  resolution. 

CONCLUSION 

The  Direct  Dynamic  Refinement  (DDR)  method  was  developed  and 
tested  for  a  challenging  problem  of  reflection  and  diffraction  of  a  strong 
shock  over  a  double  ramp.  For  this  test  problem  we  have  demonstrated  that 
a  set  of  error  indicators  developed  for  the  DDR  allow  capturing  strong  and 
weak  features  of  the  complex  wave  structure  developing  in  this  test  case. 

The  above  described  algorithms  were  implemented  in  the  AUGUST 
code.  The  AUGUST  code  was  used  for  a  rtmge  of  subsonic,  transonic,  zmd 
supersonic  transient  and  steady  problems.  For  all  these  conditions  the  AU¬ 
GUST  code  produced  robust  results  with  the  error  indicators  proving  to  be 
applicable  for  all  these  diverse  flow  regimes. 
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Figure  1.  Representative  triangular  cell  in  the  mesh  showing  fluxes  and  projected  values. 


a.  Original  grid. 


b.  Poiiit  removaL 
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Figure  3.  Illustration  of  the  grid  coarsenning  process. 
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Figure  4.  An  experimental  interferogram  taken  at  96  pa  after  shock 
wave  hits  a  diamond  shaped  obstacle,  Mach  ==  2.85. 


Figure  5.  Computed  density  contours  simulating  flow  identical  to  the  setup  of 
the  experiment  of  Fig.  4.  The  grid  is  composed  of  21121  vertices. 


Figure  6.  Computed  density  contours  simulating  flow  identical  to  the  setup  of 
the  experiment  of  Fig.  4.  The  grid  is  composed  of  65624  vertices. 


A  Second  Order  Godunov  Scheme  on  Spatial 
Adapted  Triangular  Grid 

Itzhak  Lottati  and  Shmuel  Eidelman 
Science  Applications  International  Corporation 
ABSTRACT 

Spatial  adaptation  procedure  for  the  accurate  and  efficient  solution  of 
unsteady  inviscid  flow  simulation  is  described.  The  adaptation  procedures 
were  developed  and  implemented  applying  a  second  order  Godunov  scheme. 
These  procedures  involve  mesh  enrichment /coarsening  to  either  add/remove 
vertices  in  high/low  gradient  regions  of  the  flow,  respectively.  The  goal  is 
to  achieve  solutions  of  high  spatial  accuracy  at  minimal  computational  cost. 
The  paper  describes  a  very  effective  error  estimator  to  detect  high/low  ac¬ 
tivity  regions  of  the  flow  to  be  enriched  or  coarsened,  respectively.  The  error 
estimator  is  based  on  total  energy  and  density  fluxes  into  the  cell  combined 
with  gradient  of  density.  Included  in  the  paper  is  a  detailed  description  of  the 
direct  dynamic  refinement  method  that  is  used  for  adaptation.  A  detziiled 
simulation  of  a  reflection  and  diffraction  of  multiple  shock  waves  flowing 
over  a  diamond  shape  wedge  is  presented  and  compared  with  experimental 
results.  The  simulated  results  are  shown  to  be  in  excellent  agreement  with 
the  experiment  primarily  in  that  all  the  complicated  features  of  the  physics 
zire  accurately  accounted  for  and  the  shock  waves,  slip  lines,  vortices  are 
sharply  captured. 
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INTRODUCTION 


Considerable  progress  has  been  made  over  the  past  decade  in  deveiop>- 
ing  methods  for  spatial  adaptation  of  the  computational  meshes  based  on 
the  numerical  solution  of  the  simulated  physics.  These  methods  are  being 
developed  to  produce  higher  spatial  accuracy  in  such  simulation  more  effi¬ 
ciently.  The  goal  of  mesh  adaptation  is  to  enrich  meshes  locally,  based  on 
the  numerical  solution,  in  order  to  capture  physical  features  of  importance: 
in  contrast  to  globally  fine  meshes,  thij  process  will  minimize  computer  run 
times  and  memory  costs.  The  methods  of  mesh  adaptation  can  be  catego¬ 
rized  into  three  general  classes:  1)  mesh  regeneration,  2)  mesh  movement, 
and  3)  mesh  enrichment. 

The  idea  of  mesh  regeneration  is  systematically  to  identify  high/low 
tictivity  region  in  the  flow  and  accordingly  remesh  those  regions  applying 
mesh  generation  code.  This  is  done  by  assigning  criteria  for  spatial  accuracy 
and  number  of  vertices.  This  procedure  requires  a  mapping  of  the  “old”  flow 
solution  into  the  “new”  generated  meshes  by  using  one  of  the  interpolated 
schemes.  For  the  second  method,  mesh  movement,  the  number  of  points  in 
the  computational  domain  remains  fixed.  The  adaptation  procedure  moves 
vertices  from  low  activity  regions  to  high  gradient  regions  to  achieve  a  high 
concentration  of  vertices  to  resolve  high  activity  regions.  The  movement 
cf  the  points  is  dictated  by  forcing  functions  in  the  Poisson  -  equation  in 
the  grid  generator  code.  The  final  method  of  spatial  adaptation  is  mesh 


related  to  grid  adaptation  of  the  flow  variables  in  the  area  of  high  gradient. 
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enrichment.  In  this  method,  vertices  are  added  or  removed  according  to  the 
spatial  resolution  of  the  physical  features  in  the  flow.  The  advantages  of  mesh 
enrichment  over  regeneration  and  movement  are  its  higher  degree  of  flexibility 
in  being  able  to  add  points  where  they  are  needed  and  to  remove  points  where 
they  are  not  needed.  In  our  mesh  enrichment  method,  vve  add  points  ahead 
of  the  shock  wave,  thus  preventing  the  need  of  interpolation  in  the  high 
gradient  region  for  achieving  higher  accuracy  of  the  results.  .Adding  and 
removing  points  are  done  in  monotone/very  low  activity  regions  to  prevent 
numerical  dissipation. 

Lohner^’l  has  developed  procedures  to  enrich  the  mesh  for  transient  flow 
problems  locally  by  subdividing  elements  in  the  grid  according  to  specific 
spatial  resolution  criteria.  The  method,  referred  to  as  H-refinement,  keeps 
a  history  of  the  initial  grid  (mother  grid)  and  the  subdivision  of  each  level 
(daughter  grids).  The  H-refinement  relies  heavily  on  the  initial  grid  as  it  is 
subdi  /ided  for  enrichment  and  recovered  in  the  coarsening  stage.  .-V  similar 
adaptive  strategy  to  Lohner  is  adopted  by  Rausch^^'  et  al..  but  applies  a 
different  error  estimator  and  upwind  type  algorithm  for  a  solver. 

In  our  paper,  we  describe  a  Godunov  scheme  to  solve  Euler  equations 
on  an  unstructured  adaptive  triangle  mesh.  We  discuss  the  methodology  of 
a  cell  centered  Second  Order  Godunov  scheme  applied  to  a  triangular  mesh, 
and  the  method  of  Direct  Dynamic  Refinement  that  is  used  for  adaptation 
of  the  unstructured  triangular  grid.  Simulation  and  e.vpcrimental  result.? 
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are  compared  for  a  test  case  applying  the  adaptive  unstructured  grid  to  a 
complicated  pattern  of  planar  shock  wave  flow  diffraction  over  a  half  diamond 
shape  wedge. 

SECOND  ORDER  GODUNOV 
ALGORITHM  ON  UNSTRUCTURED  GRID 

This  section  describes  the  implementation  of  the  Second  Order  Godimov 
algorithm  on  a  triangular  unstructured  grid.  The  algorithm  is  explicit  and 
is  cell-center  based. 

We  consider  a  system  of  two-dimensional  Euler  equations  written  in 
conservation  law  form  as: 


^  ^ 
dt  ^  dx  ^  dy 
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Here  u,t;  are  the  z,  y  velocity  vector  components,  p  is  the  pressure,  p  is  the 
density  and  e  is  total  energy  of  the  fluid.  We  assume  that  the  fluid  is  an 
ideal  gas.  The  total  energy  of  gas  is  given  by  the  following  equation: 
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where  7  is  the  ratio  of  specific  heats.  It  is  assumed  that  an  initiad  distribution 
of  the  fluid  parameters  is  given  at  t  =  0,  and  the  boundary  conditions  defining 
a  unique  solution  are  specified  for  the  computationad  domadn. 

The  system  of  governing  equation  ( 1 }  can  be  written  in  the  following 
form: 


c/w  ^  - 

-§j-  +  V.Q  =  0  (3) 

where  Q  represents  the  convective  flux  vector.  By  integrating  Eq.  (3)  over 
space  and  using  Gauss’  theorem,  the  following  expression  is  obtained 


UdA  + 


■di=0 


(4) 


where  dl  =  nd£,  n  is  the  unit  normad  vector  in  the  outwaxd  direction,  and  dC 
is  a  unit  length  on  the  boundary  of  the  domain.  The  variable  fi  is  the  domain 
of  computation  aind  5(2  is  the  circumference  boundary  of  this  domain. 


Equation  (4)  cam  be  discretized  for  each  element  (cell)  of  the  domain 


(u: 


_  rTn\  3  . 


(5) 


where  Ai  is  the  area  of  the  cell;  At  is  the  marching  time  step;  and 

i7"  are  the  primitive  variables  at  ^he  center  of  the  cell  at  time  n  and  at 
the  update  n  +  1  time  step;  Qj  is  the  value  of  the  fluxes  across  the  three 
boundaries  edges  on  the  circumference  of  the  cell  where  Uj  is  the  unit  normal 
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vector  to  the  boundary  edge  j,  and  ALj  is  the  length  of  the  boundary  edge 
Equation  (5)  is  used  to  update  the  physical  primitive  variables  U,  according 
to  computed  fluxes  for  each  time  step  At.  The  time  step  is  subjectet:  to  the 
CFL  (Courant-Fredrichs-Lewy)  constraint. 

To  obtain  a  second  order  spacial  accuracy,  the  gradient  of  each  primitive 
variable  is  computed  in  the  baricenter  of  the  cell.  This  gradient  is  used  to 
define  the  projected  values  of  primitive  variables  at  the  two  sides  of  the  cell’s 
edge,  as  is  shown  in  Figure  1.  The  gradient  is  approximate  by  a  path  integral 


The  notation  is  similar  to  the  one  used  for  Eq.  (5)  except  the  domain  is  a 
single  ceil  and  and  I/***®*  are  values  at  the  baricenter  and  on  the  edge 
respectively.  The  gradient  is  estimated  as 

1  ^ 

where  t/**^®*  is  an  average  value  representing  the  primitive  variable  value  for 
edge  j. 

The  gradients  that  are  computed  at  each  baricenter  are  used  to  project 
vadues  for  the  two  sides  of  each  edge  by  piecewise  linear  interpolation.  The 
interpolated  values  are  subjected  to  monotonicity  constraints.^^'  The  mono¬ 
tonicity  constraint  assures  that  the  interpolated  values  are  not  creating  new 
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extrema. 


The  monotonicity  limiter  algorithm  can  be  written  in  the  following  form: 


=  ur“  +  ■  Af 


(8) 


where  Af  is  the  vector  from  the  bairicenter  to  the  point  of  intersection  of  the 
edge  with  the  line  connecting  the  beiricenters  of  the  cells  over  the  two  sides 
of  this  edge,  d  is  the  limiter  coefficient  that  limits  the  gradient  VC/,. 

First,  we  compute  the  maximum  and  minimum  values  of  the  primitive 
variable  in  the  i’s  cell  and  its  three  neighboring  cells  that  share  common 
edges  (see  Fig.  1): 


VStr  =  Max(UV“) 

The  limiter  cm  be  defined  as: 


►fc  =  i,  1,2,3  . 


(9) 


il>=  k  =  1,2,3 


(10) 


where  superscript  Ir  stands  for  left  and  right  of  the  three  edges  (6  combina¬ 
tions  in  total).  is  defined  by: 


[1  +  Ss^  (Al/j-)]  Al/"y  +  [1  -  Sgn  ( AL/;.01  AI7”1? 
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k  =  1,2,3 
(11) 
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where  ■  Aft.  eind 
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At;yif  =  u^s  -  ur‘‘ 


(12) 

« 


To  obtain  a  second  order  of  accuracy  in  time  and  space,  we  subject  the 


projected  values  of  the  left  and  right  side  of  the  cell  edge  to  characteristic 


constraints  following  Ref.  4.  The  one  dimensional  characteristic  predictor  is 


applied  to  the  projected  values  at  half  time  step  t"  +  The  characteristic 


predictor  is  formulated  in  the  local  system  of  coordinates  for  the  one  dimen- 
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sional  Euler  equation.  We  illustrate  the  implementation  of  the  chau-acteristic 


predictor  in  the  direction  of  the  unit  vector  he-  The  Euler  equations  for  this 
direction  can  be  written  in  the  following  form: 


Wt+A{W)Wnc=0 


(13) 


where 


T  /  U  —T  0 

W  =  ^  u  i  ;  A{W)  =  0  u  r 

I  P  J  \  0  u 


(14) 


where  r  =  p  denotes  density  while  u,p  are  the  velocity  and  pressure. 
The  matrix  A{W)  has  three  eigenvectors  {I  for  left  and  r  for  right 

where  ^  denote  +,o,-)  associated  with  the  eigenvalues  A"*"  =  u  +  c.  A®  = 
u,  A“  =  u 


c. 
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An  approximation  of  projected  value  to  an  edge  accurate  to  second  order 
in  space  and  time  can  be  written  as; 


«  + 

An  approximation  to  can  be  written  as 


dW  ■ 

^Tnc 


(15) 


+  ( Af,  -  A/„ )  ■  n,)VW, 


At, 


(16) 


where 


^  _  iMax{Xf,o)  for  cell  left  to  the  edge 

for  cell  right  to  the  edge  . 

The  gradients  applied  in  the  process  of  computing  the  projected  values 
at  t"  +  {At/2)  are  subjected  to  the  monotonicity  limiter. 

Following  the  characteristic  predictor  described  above,  the  full  Riemann 
problem  is  solved  at  the  edge.  The  solution  of  the  Riemann  problem  defines 
the  flux  2  through  the  edge.  The  fluxes  through  the  edges  of  triangles 
are  then  integrated  (Eq.  5),  thus  giving  an  updated  value  of  the  variables  at 
^n+i  Qjjg  advantages  of  the  described  algorithm  is  that  calculation  of 

the  fluxes  is  done  over  the  largest  loop  in  the  system  (loop  over  edges)  and 
can  be  carried  out  in  the  vectorized  or  parallelized  loop.  This  fact  leads  to 
an  efficient  algorithm. 
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The  algorithm  presented  is  a  modification  of  the  algorithm  of  Ref.  5 
which  was  derived  for  structured  mesh.  This  algorithm  has  been  applied  to 
simulate  a  wide  range  of  flow  problems  and  has  been  found  very  accurate 
in  predicting  the  features  of  the  physics.  The  performance  of  the  algorithm 
is  well  documented  in  Refs.  6-8.  The  next  section,  the  spatial  adaptive 
procedure,  is  described  in  detail.  These  descriptions  include  explanations 
of  the  error  estimator  for  flow  feature  detection  and  the  Direct  Dynamic 
Refinement  Method  used  to  enrich  and  coau-sen  the  mesh. 

DIRECT  DYNAMIC  REFINEMENT  METHOD  FOR  ADAPTATION 
ON  AN  UNSTRUCTURED  TRIANGULAR  GRID 

The  Direct  Dynamic  Refinement  method  (DDR)  is  a  new  method  for 
adapting  unstructured  triangular  grids  during  the  computational  process. 
As  stated,  an  unstructured  grid  is  very  suitable  for  implementing  boimdary 
conditions  on  complex  geometrical  shapes  as  well  as  the  adaptation  of  the 
grid,  if  necessjiry.  The  adaptation  of  the  unstructured  triangular  grid  leads 
to  efficient  usage  of  memory  resources.  The  adaptive  grid  enables  the  user 
to  capture  moving  shocks  and  high  gradient  flow  features  with  high  resolu¬ 
tion.  The  available  memory  resources  can  be  very  efficiently  distributed  in 
the  computational  domain  to  accommodate  the  resolution  needed  to  cap¬ 
ture  features  of  the  physical  property  of  the  solution  as  they  are  evolved. 
Dynamic  refinement  controls  the  resolution  priorities.  These  priorities  can 
be  set  according  to  the  physical  features  that  the  user  wishes  to  emphasize 


in  the  simulation.  The  user  has  control  over  the  accuracy  of  the  physical 
features  resolved  in  the  simulation,  without  being  restricted  to  the  initial 
grid.  The  alternative  to  Direct  Dynamic  Refinement  (DDK)  is  the  hierar¬ 
chical  dynamic  refinement  (H- refinement)  that  keeps  a  history  of  the  initial 
grid  (mother  grid)  and  the  subdivision  of  each  level  (daughter  grids).  In 
the  H-refinement  method,  it  is  necessary  to  keep  overhead  information  on 
the  level  of  each  triangle  subdivision,  and  double  indirect  indexing  is  needed 
to  keep  track  of  the  H-refinement  process.  As  mentioned,  the  H-refinement 
relies  heavily  on  the  initial  grid  as  it  subdivides  this  grid  and  returns  to  it 
after  the  ptissage  of  the  shock. 

To  minimize  the  dissipation  caused  by  the  interpolation  and  extrapola¬ 
tion  in  the  refinement  and  coarsening  of  the  grid,  the  addition  and  deletion 
of  point  is  done  in  the  region  where  the  flow  features  are  smooth.  Thus  for 
capturing  the  shock,  the  refinement  should  be  applied  in  the  region  ahead  of 
the  shock.  The  coarsening  of  the  grid  is  done  in  the  flow  regions  where  the 
gradients  of  the  flow  parameters  are  small. 

In  the  present  version  of  AUGUST  (Adaptive  iJnstructured  fiodunov 
Upwind  Second  order  Triangular),  we  implemented  an  algorithm  with  mxil- 
tiple  criteria  for  capturing  a  variety  of  features  that  might  exist  in  the  physics 
of  the  problem  to  be  solved.  To  identify  the  location  of  a  moving  shock,  we 
use  the  flux  of  total  energy  into  triangles.  The  fluxes  entering  and  leaving 
triangles  are  the  most  accurate  physical  variables  computed  by  the  Godunov 
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algorithm  for  solving  Euler's  equations,  and  are  used  to  update  the  physical 
variables  for  each  time  step  in  each  triangle.  Supplementary  to  the  ux  of 
energy  as  an  error  indicator,  we  use  the  flux  of  total  density  into  t  mgles 
and  the  density  gradient.  The  error  indicator  is  the  only  sensor  tha:  is  solely 
responsible  for  identifying  the  area  to  be  refined  or  coarsened  in  tne  compu¬ 
tational  domain.  As  such,  the  error  indicator  should  be  sensitive  enough  to 
detect  physical  features  that  are  of  interest  to  the  user,  such  as  shock  waves, 
rarefaction  waves,  slip  lines  and  vortices.  The  error  indicators  that  are  im¬ 
plemented  in  the  code  are  able  to  sense  very  weak  slip  lines  in  the  presence 
of  strong  shock  waves.  The  ability  of  the  error  indicators  to  identify  weak 
physical  features  in  the  presence  of  strong  ones,  without  picking  up  maner- 
ical  noises,  is  essential  to  the  simulation  of  adaptive  grids.  As  stated,  the 
quality  of  the  results  is  as  good  as  the  error  indicators  applied.  If  the  error 
indicators  fail  to  identify  the  physical  feature,  this  feature  probably  will  be 
overlooked  in  the  simulated  results.  It  should  be  noted  that  the  process  of 
applying  error  indicators  for  identifying  the  areas  to  be  adaptively  refined  or 
coairsened  is  an  expensive  loop  that  has  to  check  the  whole  triangles  table  in 
the  simulation.  Thus,  the  error  indicators  are  applied  each  9  to  15  time  steps. 
This  process  is  preceded  by  application  of  an  algorithm  that  refines  a  buffer 
zone  ahead  of  the  features  and  coarsens  the  grid  after  it  was  moved  away. 
The  buffer  zone  ahead  of  the  feature  is  identified  by  using  a  search  pattern  of 
finding  the  neighbors  of  the  flagged  triangles  sorted  by  the  error  indicators. 
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We  are  not  applying  any  physical  parameters  to  identify  the  zones  •‘ahead/’ 

The  refinement  algorithm  follows  several  basic  steps.  The  process  of 
adding  points  to  refine  the  grid  locally  is  done  by  either  adding  a  new  vertex 
in  the  baricenter  of  the  triangle  or  adding  a  new  vertex  in  the  middle  of  the 
edge.  Adding  a  new  vertex  in  the  baricenter  of  a  triangle  is  very  efficient 
in  the  sense  that  the  refinement  affects  this  individual  triangle  only.  We 
apply  this  process  exclusively  for  refinement.  As  a  supplement,  especially  on 
the  boundary,  we  apply  the  method  of  adding  a  new  vertex  on  an  edge.  As 
a  complement  to  adding  new  vertices,  we  apply  the  reconnection/ swapping 
algorithm  that  flips  the  diagonal  (common  edge)  of  two  adjacent  triangles  to 
improve  the  quality  of  the  triangles  constructed.  Figure  2  displays  a  chain 
of  those  basic  steps  to  illustrate  the  refinement  process.  Figure  2a  shows  the 
original  grid.  Figure  2b  illustrates  a  one  step  scheme  refinement  in  which  a 
new  vertex  is  introduced  into  a  triangular  cell  forming  three  cells  (two  new 
ones).  On  the  boundary  edges,  a  new  vertex  is  introduced  in  the  middle 
of  those  edges  to  form  two  ceils  (one  new  one).  This  refinement  is  followed 
by  reconnection  that  modifies  the  grid  as  demonstrated  in  Fig.  2c.  The 
process  of  refinement  and  reconnection  can  be  continued  until  the  necessary 
grid  resolution  is  achieved.  As  an  example,  another  loop  of  refinement  is 
illustrated  in  Figs.  2d  and  2e.  This  direct  approach  to  grid  refinement 
provides  extreme  flexibility  in  resolving  local  flow  features. 

A  similar  direct  approach  is  applied  to  grid  coarsening.  The  basic  step 
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in  this  process  is  deleting  the  cells  and  edges  associated  with  a  vertex  to  be 
removed,  as  shown  in  Fig.  3b.  During  the  second  step,  this  void  in  the  grid 
is  filled  with  new  larger  tritingles  (Fig.  3c)  without  introducing  new  vertices. 
The  last  step  is  local  reconnection  and  relaxation  as  shown  in  Fig.  3d.  The 
relaxation  procedure  is  a  simple  relocation  of  the  vertex  moved  to  the  center 
of  the  polygon  surrounding  this  vertex  (only  if  the  polygon  is  a  convex). 

The  algorithm  of  direct  d3mamic  refinement  proved  to  be  very  efficient  in 
refining  and  coarsening  the  grid  adaptively.  The  refinement  and  coarsening 
followed  a  short  inquiry  on  the  quality  and  shape  of  the  triangle  flagged  and 
its  close  neighbors.  Since  we  do  not  keep  any  history  or  tree  for  each  triangle, 
the  DDRM  algorithm  has  much  less  checking  to  do  as  compared  to  the  H- 
refinement  algorithm.  The  vectorization  and  pziraJlelization  of  the  solver  is 
straightforward. 

NUMERICAL  RESULTS  FOR  THE 
TWO  DIMENSIONAL  TEST  PROBLEM 

We  have  tested  the  Second  Order  Godunov  algorithm  in  a  variety  of 
flow  simulations  ranging  from  the  low  subsonic  to  the  high  hypersonic  Mach 
(6-8)  regijne.  The  AUGUST  code  proved  to  be  very  robust  and  accurate.  The 
results  obtained  are  comparable  to  or  better  than  those  obtained  applying 
leading  flow  solvers  in  all  of  the  regimes  tested. 

To  validate  our  DDRM  implemented  in  the  AUGUST  code,  we  simulated 
the  problem  of  interaction  of  a  Mach  2. 85  planar  shock  wave,  propagating 
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in  a  channel  with  a  45“  symmetrical  double  ramp.  Figure  4  shows  the  ex¬ 
perimental  interferogram  of  the  problem  to  be  simulated  (reproduced).  The 
exzunple  that  we  chose  to  simulate  is  most  appropriate  to  test  the  perfor¬ 
mance  of  an  adaptive  algorithm.  The  experimental  results  show  a  complex 
flow  pattern  containing  a  mix  of  strong  discontinuities,  ajs  shock  waves,  and 
very  weak  features  such  as  slip  lines,  vortices,  and  rarefaction  waves.  The 
error  estimator  must  recognize  and  flag  all  these  features  for  refinement.  The 
error  estimator  should  be  sensitive  enough  to  identify  very  weaJc  slip  lines 
without  picking  up  numerical  noises  present  in  the  simulation.  We  have 
simulated  the  shock  wave  reflection  and  diffraction  over  a  45“  comer  at  the 
conditions  that  correspond  to  the  experimental  result  shown  in  Fig.  4.  Here 
we  present  results  for  several  shapes  of  the  flow  evolution.  The  flow  in  the 
channel  is  from  left  to  right.  Figure  5  displays  density  contour  plots  after 
the  shock  passed  the  apex  of  the  double  wedge  obstacle.  In  Fig.  5a,  the 
density  contours  are  overlayed  on  the  grid  used  at  this  stage  of  the  evolving 
flow.  For  clarity,  only  the  density  contours  are  displayed  in  Fig.  5b.  The 
grid  displayed  in  Fig.  5a  shows  how  well  the  adaptation  technique  follows 
the  high  activity  region  in  the  flow.  The  grid  is  adapting  to  regions  with  high 
pressure  gradients  and  high  density  gradient.  In  Fig.  5a,  one  can  observe 
high  quadity  grid  produced  by  the  DDR  method.  The  shock  has  a  relatively 
thin  buffer  zone  ahead  of  its  front,  allowing  us  to  avoid  the  interpolations 
related  to  grid  adaptation  of  the  flow  variables  in  the  area  of  high  gradient. 
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The  flow  features  are  resolved  accurately,  and  the  contact  discontinuity  eind 
triple  point  are  clearly  defined. 

Figure  6  shows  the  density  contours  at  a  later  time  in  the  same  format 
as  in  Fig.  5.  This  figure  demonstrates  the  ability  of  the  DDRM  to  identify 
and  follow  flow  features  in  the  computational  domain.  In  this  figure  we  cam 
observe  a  complicated  flow  pattern  developing  as  a  result  of  interaction  of  the 
rarefraction  wave  with  the  complex  pattern  of  shock  waves.  A  recompression 
shock  and  a  strong  vortex  that  are  developed  in  this  time  frame  are  well 
resolved.  We  can  also  observe  a  slip  line  originating  at  the  triple  point. 
The  adaptation  algorithm,  as  in  the  previous  time  fraune,  follows  both  shock 
waves  and  contact  discontinuities. 

Figure  7  displays  the  density  contours  at  the  stage  comparable  to  that 
shown  in  Fig.  4  for  th-  experimental  results.  The  computed  results  as 
displayed  in  Fig.  7b  show  a  flow  pattern  similar  to  the  experiment.  The  slip 
line  and  the  formation  of  vertices  aiong  it  axe  clearly  depicted.  The  shock  amd 
reflected  shock  as  well  as  the  recompression  shock  are  very  sharply  defined 
with  very  low  niimerical  noise.  The  vortex  developed  eifter  the  compression 
shock  is  distinctly  displayed.  A  new  reflected  shock  cam  be  seen  developing 
at  the  channel  wail  behind  the  double  wedge. 

The  results  shown  in  Figs.  5-7  display  the  ability  of  the  algorithm  to 
simulate  a  complex  transient  flow  p  ■'blem  on  dynamically  adapting  grid. 
The  error  estimates  used  in  our  algorithm  allow  detection  of  strong  and 
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weak  shock  waves,  conducted  discontinuities,  vortices  or  other  fronts  that 
need  enhanced  resolution. 

CONCLUSION 

The  Direct  Dynamic  Refinement  (DDR)  method  was  developed  and 
tested  for  a  challenging  problem  of  reflection  and  diffraction  of  a  strong 
shock  over  a  double  ramp.  For  this  test  problem  we  have  demonstrated  that 
a  set  of  error  indicators  developed  for  the  DDR  allow  capturing  strong  and 
weak  features  of  the  complex  wave  structure  developing  in  this  test  case. 

The  above  described  algorithms  were  implemented  in  the  AUGUST 
code.  The  -AUGUST  code  was  used  for  a  range  of  subsonic,  transonic,  and 
supersonic  transient  and  steady  problems.  For  all  these  conditions  the  AU¬ 
GUST  code  produced  robust  results  with  the  error  indicators  proving  to  be 
applicable  for  all  these  diverse  flow  regimes. 
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Figure  1.  Representative  triangular  cell  in  the  mesh  showing  fltjxes  and  projected  values. 


a.  Origmal  giid. 


b.  Grid  after  one  refinement. 


e.  Second  reoannection- 

Figure  2.  Illustration  of  the  grid  refinement  process. 
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a.  Origixial  grid. 

b.  Poxxri  removal. 

• 

Figtire  3.  Illustration  of  the  grid  coarsenning  process. 
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Figure  4.  An  experimental  interferogram  taken  at  96  fis  after  shock 
wave  hits  a  diamond  shaped  obstacle,  Mach  M,  =  2.85. 


Figure  6.  Computed  density  contours  simulating  flow  identical  to  the  setup  of 
the  experiment  of  Fig.  4.  The  grid  is  composed  of  65624  vertices. 
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DECOMPOSITION  BY  STRUCTURED /UNSTRUCTURED  COMPOSITE  GRIDS 
FOR  EFFICIENT  INTEGRATION  IN  DOMAINS  WITH  COMPLEX  GEOMETRIES 

Itzhak  Lottati  and  Shmuei  Eidelman 
Applied  Physics  Operation,  MS  2-3-1 
Science  Applications  International  Corporation 
McLean.  VA  22102 

Abstract 

The  Second  Order  Godunov  method  has  been  simultaneously  implemented  on  both  unstructured 
trianniar  and  structured  rectangular  grids.  This  combined  structured/unstructured  method  is  a  much 
more  emcient  approach  to  domain  decomposition  as  compared  to  the  separate  application  of  each  method. 
.Application  of  this  new  technique  to  the  complex  problem  of  acoustic  wave  fociuing  in  an  ellipsoid  re¬ 
flector  has  demonstrated  its  advantages  over  both  structured  and  unstructured  methods  of  domain 
decomposition.  It  has  been  shown  that  the  complex  pattern  of  acoustic  waves  propagates  seamlessly 
througa  structured /unstructured  grid  interfaces  without  reflection  or  distortion.  The  new  s^proacfa  pro¬ 
vides  ultimate  flexibility  in  domain  decomposition  with  minitnum  penalty  in  terms  of  memory  and  CPU 
requirements,  and  at  the  same  time  capitalizes  on  the  advantages  of  both  structured  and  unstructured 
grid  methods. 

Introduction 

Structured  rectangular  ipids  allow  the  construction  of  numerical  algorithms  that  perform  an  efficient 
and  accurate  integration  of  fluid  conservation  equations.  The  efficiency  of  thew  schemes  results  from  the 
extremely  low  storage  overhead  needed  for  domain  decomposition  and  the  efficient  and  compact  indexing 
that  also  defines  domain  connectivity.  These  two  factors  allow  code  construction  based  on  a  structured 
domain  decomposition  that  can  be  highly  vectorized  and  parallelized.  Intenation  in  physical  space 
on  orthogonal  and  uniform  grids  produces  the  highest  possible  accuracy  of  tne  numerical  algcmthms. 
The  disadvantage  of  structured  rectangular  grids  is  that  they  cannot  be  used  for  decomposition  of 
computational  domains  with  complex  geometries. 

The  early  developers  of  computational  methods  realized  that,  for  many  important  applications  of 
Computationai  Fluid  Dynamics  (CFD),  it  is  unacceptable  to  describe  curved  boimdanes  of  the  compu¬ 
tational  domain  using  the  stair-step  approximation  available  with  the  rectangular  domain  decomposition 
technique.  To  overcome  this  difficulty,  the  techniques  of  boundary-fitted  coordinates  were  developed. 
With  these  techniques,  the  computational  domain  is  decomposed  on  quadrilaterals  that  can  be  fitted  to 
the  curved  domain.  The  solution  is  then  obtained  in  the  physical  space  using  the  geometrical  information 
defining  the  quadrilaterals,  or  in  the  computationai  coordinate  system  that  is  obtamed  by  transformation 
of  the  original  domain  into  a  rectangular  domain.  The  advantage  of  this  technique  is  that  it  employs 
the  same  indexing  method  as  the  rectangular  structured  domain  decomposition  methods  that  also  aem 
to  define  domain  connectivity.  The  boundary  fitted  coordinates  appro^  leads  to  effidat  codes,  with 
approximately  a  4:1  penalty  in  terms  of  memory  requirement  per  cell  as  compared  with  rectangi^ 
dooism  decomposition.  However,  this  approach  is  somewhat  restricted  in  its  domain  decomposition 
capability,  since  distortion  or  large  size  variations  of  the  quadrilaterals  in  one  region  of  the  dom^  lead 
to  unwanted  distortions  or  incre^wd  resolution  in  other  parts  of  the  domain.  An  example  of  this  is  the 
case  of  structured  body  fitted  coordinates  thid  are  used  for  simulations  of  flows  over  a  profile  with  sharp 
trailing  edges.  In  this  case,  increased  resolution  in  the  vidnity  of  the  trailing  edge  leads  to  increased 
resoiution  in  the  whole  row  of  elements  connected  to  the  trailing  edge  elements. 

The  most  effective  methods  of  domain  decomposition  developed  to  overcome  this  disadvantage  are 
those  using  unstructured  triangular  grids.  These  methods  were  developed  to  cope  with  very  complex 
computational  domains.  The  unstructured  grid  method,  while  efficient  and  powerful  in  domain  decom¬ 
position.  results  in  codes  that  must  store  large  quantities  of  information  defining  the  grid  geometry  and 
connectivity,  and  have  large  computationai  and  storage  overheads.  As  a  rule,  an  unstructured  grid  code 
requires  greater  storage  by  a  factor  of  10.  and  will  run  about  5  times  slower  when  compared  on  a  per 
ceil  per  iteration  basts  with  a  structured  rectangular  code. 
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Unstructured  trianguiar  meshes  ajre  designed  to  provide  a  gnd  that  is  nttea  to  the  boundary  of 
complex  geometry.  The  tiexibiiiiy  of  the  unstructured  mesh  that  allows  gndding  complex  geometry 
should  be  weighed  against  the  huge  memory  requirement  needed  to  define  the  inter  connectivity  between 
the  triangles.  To  cut  down  on  the  memory  overhead,  unstructured  grid  methods  are  used  to  their  oest 
advantage  when  combined  with  grid  adaptivity.  This  feature  usually  allows  the  dynamic  reallocation 
of  triangles  according  to  the  physics  and  geometry  of  the  problem  solved,  which  leads  to  a  subsiantiai 
reduction  in  the  number  of  cells  needed  for  the  domain  decomposition.  However,  this  advantage  is  highly 
dependent  on  the  problem  solved.  .Adaptive  unstructured  grids  have  an  adv^tage  over  the  un^aptive 
unstructured  domain  decomposition  if  the  area  of  high  resolution  needed  is  around  one-tenth  of  the 
global  area  of  the  computational  domain.  .4s  a  result,  while  the  adaptive  unstructured  method  may 
be  extremely  eifective  for  simulating  flow  with  multiple  shock  waves  in  complex  geometries,  it  becomes 
extremely  inetfidem  when  high  resolution  is  needed  in  a  substantial  area  of  the  computational  domain. 

Our  approach  to  domain  decomposition  combines  the  structured  and  unstructured  methods  for 
achieving  better  efficiency  and  accuracy.  Under  this  method,  structured  rectanguiax  ?n<^  are  used 
to  cover  most  of  the  computational  domain,  and  unstructured  triangular  grids  are  used  only  to  patch 
between  the  rectangular  gnds  I'Fig.  1),  or  to  conform  to  the  curved  boundaries  of  the  computational 
domain  (Fig.  2).  In  these  figures,  an  unstructured  triangular  gnd  is  used  to  accurately  define  the  curved 
intemai  or  external  boundaries  and  a  structured  rectangular  gnd  is  used  to  decompose  the  regions  of 
the  computational  domain  that  have  a  simple  geometry. 


Figure  1.  A  possible  candidate  configuration 
for  hybrid  stnictured/unstructured  domain 
decomposition. 


Figure  3.  A  possible  candidate  configuration 
for  hybrid  structured/unstructured  domain 
decomposition,  representing  the  ellipsoid 
refiector  grid  used  for  the  numerical 
sizaulation. 


Our  paper  will  illustrate  the  performance  gains  achieved  from  the  use  of  this  composite  grid  decom¬ 
position  approach.  We  apply  the  Second  Order  Oodunov  method  to  solve  the  Euler  equations  on  bo^ 
structured  and  unstructured  sections  of  the  grid.  The  challenging  problem  of  acoustic  wave  focusing  in 
an  ellipsoid  is  used  as  a  test  case  to  confirm  the  soundness  of  ^e  approach  and  to  check  its  performance 
cbaracuristics  and  accuracy. 

Mathematical  Model  and  Integration  Algorithm 

We  consider  a  system  of  two-dimensional  Euler  equations  written  in  conservation  law  form  as: 


where 
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Here  u.  u  are  the  x.y  velocity  vector  components,  p  is  the  pressure,  p  is  the  density  ^d  e  is  total  energy 
of  the  fluid.  We  assume  that  the  fluid  is  an  ideal  gas  and  the  pressure  is  given  by  the  cquation-ot-staie 


p  =  l7-l)(e-0.5p(u^-l-u')) 
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where  ~  ;s  the  ratio  of  specific  heats  and  typically  taken  as  1.4  for  air.  It  is  assumed  that  an  initial 
distribution  of  the  fluid  parameters  is  ^iven  at  t  =  0.  ana  the  boundary  conditions  oefinin?  a  umque 
solution  are  specified  for  the  computational  domain. 

The  system  of  governmg  equations  in  £q.  (I)  can  be  written  as 


^0  =  0 


(3) 


where  Q  represents  the  convective  flux  vector.  By  integrating  Eq.  (3)  over  space  and  using  Gauss' 
theorem,  the  following  expression  i:  obtained 

^fudA+iQdl=^Q  .  (4) 

Jo  Joa 

where  di  =  ndC.n  is  the  unit  normal  vector  in  the  outward  direction,  and  dL  is  a  unit  length  on  the 
bounaary  of  the  domtun.  The  variable  fl  is  the  domain  of  computation  and  dfl  is  the  circumference 
bounaary  of  this  domain. 

Eq.  (4)  can  be  discretized  for  each  element  (cell)  in  the  domain 


(i/r*  -o'n 

At 


M 


Ai  =  Qj  rtj  A£f 


(5) 


where  A,  is  the  area  of  the  cell;  At  is  the  marching  time  step;  C/”'*’  and  1/”  are  the  primitive  variables 
at  the  center  of  the  ceil  at  time  n  and  at  the  update  n  +  I  tir*  step;  Q,  is  the  value  of  the  fluxes  across 
t^  M  boundaries  on  the  circumference  of  the  ceil  where  n,  is  the  unit  normal  vector  to  the  boundary 
edge  j,  and  AX,  is  the  length  of  the  boundary  edge  j.  The  nuxes  0"  are  computed  applying  the  Second 
Order  Godunov  algorithm,  and  Eq.  (5)  is  used  to  update  the  physical  primitive  varices  £/,  accor^ig 
to  computed  fluxes  for  each  marching  time  step  At.  The  maiidiing  time  step  is  subjected  to  the  CFL 
(Courant-FVerichs-Lewy)  constraint. 

We  seek  a  solution  to  the  system  of  Eq.  (1)  in  the  computational  domain,  which  is  decomposed  in 
part  into  triangles  with  arbitrary  connectivity  and  in  part  into  rectnnglM  using  a  iogicaiiy  structuiw 
grid.  We  use  the  advantage  of  the  unstructured  grid  (Refs.  1-4)  to  describe  the  curved  boundary  of  tM 
computational  domain  and  areas  that  need  increased  local  resolution.  In  our  sample,  the  unstructrued 
grid  covers  10%  of  the  total  computational  domain  while  the  structured  grid  occupies  the  remainmg 
90%.  The  numerical  technique  for  solving  Euler’s  equation  on  an  u-TStructured  grid  is  described  in  Rea. 
5-7,  and  the  technique  for  the  structured  grid  is  described  in  Ref.  8.  These  numerical  techniques  &ppiy 
some  of  the  ideas  that  were  introduced  in  Reft.  Q-10.  The  structured  and  unstructured  codes  apply  the 
center-based  formulation,  i.e.,  the  primitive  variables  are  defined  in  the  center  of  the  cell.  maxm 

the  ceil  the  integration  volume,  while  the  fluxes  arc  computed  across  the  edges  of  the  ceil.  The  basic 
algorithmic  steps  of  the  Second  Order  Godunov  method  can  be  defined  as  follows; 

1.  Find  the  value  of  the  gradient  at  the  baricenter  of  the  cell  for  each  gas  dynamic  parameter  W ; 

2.  Find  the  interpolated  values  of  U  at  the  edges  of  the  cell  using  the  gradient  values; 

3.  Ximit  these  interpolated  values  based  on  the  monotonicity  condition  (Ref.  9): 

4.  Subject  the  projected  values  to  the  characteristic’s  constraints  (Ref.  10); 

5.  Solve  the  Riemaim  problem  applying  the  projected  values  at  the  two  sides  of  the  edges: 

6.  Update  the  gas  dynamic  parameter  f/  accordin^^  to  the  conservation  equations  1 2  )  applying  to  the 
fluxes  computed  and  the  current  time  step. 

As  was  advocated  in  Ref.  7.  we  prefer  the  triangle  center-based  over  the  vertex-based  version  of  t.ie 
code.  For  the  same  unstructured  gnd.  a  triangic-based  algonthm  will  result  in.  smaller  control  volumes 
chan  a  vertex-based.  In  addition,  for  the  Secona  Order  Godunov  soiver,  implementation  oi  the  bounaary 
conditions  is  more  straightforward  and  accurate  for  the  center-based  algorithm  th^  in  the  vertex-basea. 
These  nvo  factors,  along  with  the  effects  of  grid  connectivity,  strongly  affect  the  algorithm  accuracy  and 
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performance,  and  are  the  mam  reasons  tor  the  superiority  of  the  center-based  version  over  the  vertex 
version. 

Sound  Wave  Focusing  in  an  Ellipsoid  Reflector 

Research  relating  to  focusing  of  shock  and  acoustic  waves  is  of  considerable  practical  interest  for 
application  to  Extracorporeal  Shock  Wave  Lithotripsy  (ESWLl.  Most  of  the  interest  m  this  area  is 
rdated  to  acoustic  waves  m  liquids:  however,  the  basic  reflection  and  focusmg  mechanisms  for  a  given 
reflector  geometry  can  be  studied  in  ur  as  well.  For  our  test  simulation,  we  chose  a  deep  reflector  siu^d 
like  an  eilipsoid,  which  was  used  for  ESWL  by  Dornier  ( Ref.  1 1 )  and  other  companies.  A  schematic  of 
the  cross  section  of  this  reflector  is  shown  in  Fig.  3.  Strong  acoustic  waves  are  jgenerated  in  the  left  focal 
point  of  the  ellipsoid  by  an  instantaneous  release  of  energy  and  are  refocused  at  the  right  focal  point. 
Ideally,  focusing  should  be  based  on  waves  of  acoustic  intensity,  since  the  nonlinear  reflections  of  strong 
shock  waves  ie^  to  significant  distortions  in  wave  propagation  and  impair  simple  geometncai  focusing. 


Figure  3-  A  schematic  drawing  of  the  center  cross  section  of  th^  ellipsoid  reflector. 

Figure  2  shows  the  computational  domain  and  grid  for  the  eilipsoid  reflector  example.  In  order  to 
illustrate  the  concept  of  the  composite  seructured/unatnictured  grid,  we  have  shown  only  every  1/16  ceil 
of  the  grid  that  was  actually  used  for  the  simulation.  In  this  example,  we  observe  that  the  structmed 
rectan^ar  grid  covers  about  90%  of  the  computational  domain  and  the  unstructured  triangular  grid  is 
restricted  to  the  curved  surface  of  the  ellipsoid  and  covers  about  10%  of  the  domain.  The  major  axis  of 
the  ellipsoid  is  150  mm  and  the  minor  axis  is  90  mm. 

The  integration  in  the  structured  part  of  the  domain  is  performed  using  a  version  of  the  split 
Second  Order  Godunov  method  described  in  ReL  8.  For  the  unstructured  triangular  grid,  we  used 
our  implementation  of  the  Second  Order  Godunov  method  that  includes  a  compact  integration  sten^ 
suitable  for  unstructured  grids  (Refs.  5-7).  In  the  current  implementation,  the  two  sections  of  the  grid 
commundate  through  the  boundary  conditions  at  their  interfaces.  According  to  this,  the  values  in  the 
minor  points  at  the  grid  interfaces  for  the  triangular  grid  are  taken  from  the  computational  domain 
of  the  structured  grid  and  vice  versa.  These  mirror  values  are  used  for  calculatioiu  of  the  flux  at  the 
interface  boundaries.  For  focusing  problem  simulations,  we  used  55188  triangles  in  the  unstructured 
part  of  the  grid  and  141312  (736  x  192)  rectangles  in  the  structured  part.  It  should  be  mentioned 
that  in  order  to  obtain  a  uniform  ^d  (i.e.,  the  structured  and  unstructured  grids  have  the  same  level  of 
refinement),  the  unstructured  portion  of  the  code  was  nm  with  adaptivity  (adding  and  deleting  vertices). 
This  ability  enabled  us  to  match  the  grid  resolution  based  on  ceil  areas  in  the  structured /unstructured 
grids  while  computing  the  results.  The  initial  grid  had  a  very  re&ed  grid  at  the  left  food  point  to 
initiate  accuratdy  the  detonation.  TTus  area  was  coarsened  later  in  the  simulation  by  turning  on  the 
adaptive  capability  of  the  unstructured  code. 

We  used  the  following  initial  condition  at  the  time  t  =  0  for  the  simulation  of  the  acoustic  wave 
focusmg; 

a.  Quiescent  air  in  the  cavity  of  the  reflector,  i.e..  Pressure  R#  =  101350.  Pa  and  Density  p®  =  l.2Kg/m^. 

b.  Blast  in  the  left  focal  point  of  the  ellipsoid  confined  in  a  spherical  volume  of  a  radius  of  R  =  2mm. 

Condition  at  initial  blast  area:  Pressure  A  =  45.  •  Pa,  and  Density  p*  =  4.5  •  p®. 

This  definition  of  the  initial  conditions  guarantees  that  a  weak  blast  wave  will  be  generated,  ensuring 
that  waves  of  acoustic  intensity  wiU  be  reflected  from  the  wall  of  the  ellipsoid.  We  examined  this 
particular  reflection  regime  because  the  blast  wave  focusing  in  water  occurs  in  acoustic  mode.  As 
it  was  pointed  out  in  Ref.  11.  reflection  of  even  very  weak  waves  m  water  wiil  lead_  to  consioerabie 
deviations  from  the  reflection  mode  of  a  pure  acoustic  wave.  However,  the  purpose  of  this  simulation 
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is  to  demonstrate  the  numerical  method  and  not  to  study  in  detail  the  focusing  tnodes  of  the  ellipsoid 
reflector.  Therefore,  we  present  results  for  one  simulation  following  conditions  outlined  above. 


In  Fig.  4a.  the  simulation  results  are  shown  it;  the  form  of  pressure  contours  at  the  time 
t  =  1.31  X  lQ~'*sec  when  the  incident  shock  started  its  reflection  from  the  reflector  walL  Here  we 
can  observe  that  the  maximum  reflected  pressure  is  no  higher  than  14%  over  the  ambient  pressure, 
which  is  consistent  with  our  objective  to  create  weak  waves.  Figure  4b  is  an  enlargement  of  the  region  in 
the  computational  domain  that  contains  structure  and  unstructured  grids.  We  can  also  observe  that  the 
incident  wave  propagates  seamlessly  through  the  interface  of  the  structured  and  unstructured  regions. 
In  Fig.  5.  we  show  pressure  contour  plots  at  time  t  =  2.09  x  l0~^sec.  We  observe  that  the  interfaces 
between  the  two  grids  carry  the  information  seamlessly. 
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Figure  4a.  Pressure  contours  at  time 
t  s  1.31  X  10*^  sec  showing  the  incident 
wave  as  reflected  from  the  reflector's 
wail. 


Figure  4b.  Blowup  of  the  pressure  contours 
at  time  t  s  1.31  X  10*^see  showing  the 
pressure  contours  between 
the  structured  and  the  unstructured  grid. 
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Figure  5.  Pressure  contours  at  time  t=2.Q9  x  l0”^sec  showing  the  incident  wave  and  the  reflected  wave 
pattern. 

Figure  6  shows  the  simulation  results  at  time  t  =  4.35  x  l0~*sec.  At  this  stage,  the  blast 
front  that  propagated  to  the  left  has  undergone  full  reflection  and  the  reflected  wave  propagates  in  the 
direction  of  the  incident  wave  to  the  right.  However,  the  incident  and  the  reflected  wave  are  both  of 
acoustic  intensity  and  they  are  propagating  at  the  speed  of  sound.  Therefore,  the  reflected  wave  wiU  not 
be  able  to  catch  up  with  the  incident  wave  at  this  stage  of  expansion.  We  can  observe  in  Fig.  7,  where 
the  two  waves  are  shown  past  the  ellipsoid  centers  (t  =  5.41  x  l0“*sec),  that  the  distance  between  these 
acoustic  waves  does  not  change  as  compared  with  Fig.  6.  The  reflected  wave  has  maximum  pressure 
in  the  vicinity  of  the  axis  and  its  value  remains  relatively  constant  (about  I.IO  x  10*  Pa)  through  the 
propagation  process.  The  wave  complex  at  the  axis  of  symmetry  consists  of  the  incident  acoustic  wave 
front,  a  reflected  wave  that  has  positive  followed  by  negative  phases. 
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Figure  o.  Pressure  contours  at  time 
c=4.35  X  10~'*sec  showing  the  incident 
wave  and  the  reflected  wave  pattern. 


Figure  7.  Pressure  contours  at  time  % 

tss5.41  X  10“*sec  showing  the  wave 
pattern  past  the  center  of  the 
ellipsoid. 


The  enhancement  of  the  reflected  wave’s  amplitude  starts  gradually  when  the  reflected  wave  is 
approaching  the  second  focal  point  caused  by  the  convergence  of  the  ellipsoid.  In  Fig.  8,  the  pressure 
contours  (t  =  8.41  x  ia"’*secl  are  shown  at  the  stage  that  the  maximuin  focused  pressure  is  obtained  in  # 

the  system.  As  we  can  observe  in  Fig.  8,  the  incident  front  has  left  the  computational  domain,  and  the 
maximuin  pressure  is  obtained  in  small  volume  in  the  vicinity  of  the  right  fo(^  point.  In  our  simulation, 
the  maximum  focused  pressure  has  reached  1.32  x  lO^Pa  and  is  located  11  mm  to  the  right  of  the  focal 
point  of  the  elhpsoid. 
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Figure  3.  Pressure  contours  at  time  1=8.41  x  lO'^sec  showing  the  stage  at  which  the  maximum  focused  % 

pressure  is  obtained. 

In  all  the  figures  presented,  the  method  of  composite  domain  decomposition  works  extremely  well, 
producing  seamless  solutions  at  the  interfaces.  We  should  mention  here  that  our  test  problem  is  parti^ 
ularly  sensitive  because  the  main  acoustic  waves  are  weak,  and  any  inaccuracy  miroduced  at  the  grid 
interfaces  would  produce  a  distortion  in  the  phase  or  in  the  intensity  of  the  traveling  waves  that  would 
be  a  visible  disturbance  evident  in  the  results  needless  to  mention  that  an  adaptive  scheme  would  have 
difficulty  in  simulating  this  problem  due  to  the  weakness  of  the  wave  pattern.  9 
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Conciusioiis 

A  composite  method  of  structured/unstructured  domain  decomposition  is  introduced  as  an  eiEeient 
technique  for  dealing  with  the  computational  domains  of  complex  geometry.  We  have  simulated  a 
demanaing  acoustic  wave  focusing  problem  and  have  shown  that  our  approach  leads  to  accurate  wave 
propagation  without  any  rejection  or  distonion  at  the  structured/unstructured  grid  interfaces.  It  should 
be  noted  that  for  the  acoustic  focusing  problem  as  simulated  and  presemed  in  this  paper,  both  structured 
and  unstructured  methods  of  domam  decomposition  can  be  shown  to  be  inadequate  it  used  separately. 
The  structured  method  has  difEculcy  describii»  the  curved  boundaries  of  the  computational  domain, 
while  the  unstructured  method  is  totally  inemcient  in  describing  phenomena  with  wide  fronts  that 
occupy  a  large  portion  of  the  computational  domain.  Our  hybrid  method  combines  the  advantages  of 
structured  and  unstructured  methods  of  domain  decomposition.  This  hybrid  technique  combines  the 
efficiency  of  the  unstructured  grid  to  accurately  represent  curved  wails,  with  the  computational  and 
memory  efficiency  of  the  structured  grid  in  the  majority  of  the  computational  domain.  We  also  attribute 
the  quality  of  the  numerical  result  to  the  Second  Order  Godunov  method,  which  allows  a  consistent, 
accurate  and  robust  formulation  for  handling  both  grids  and  boundary  conditions. 
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ABSTRACT 


A  computer  program  called  MPHASE  for  ntimerical  study  of  shock  wave  propagation  in  a  multi¬ 
phase.  multi-component  gas  environment  is  described  and  appii^.  The  mathematical  model  of  the  multi¬ 
phase.  multi-component  system  is  based  on  the  multi-fluid  Eulerian  approach.  Basically,  we  consider  the 
two  phases!  i.e.  Bftd  particle)  to  be  interpenetrating  continua:  the  dynamics  of  the  flow  is  governed 
by  conservation  equations  for  each  phase,  and  the  two  phases  are  coupl^  by  interactive  drag  force  and 
heat  transfer.  The  code  is  formulated  on  unstructured  triangular  grids. 

The  numerical  solution  method  is  based  on  the  Second  Order  Godimov  Method  for  the  gaseotis 
medium,  an  upmnd  integration  for  the  particles,  and  an  implicit  intention  technique  for  the  gas- 
particle  interaction  simulation.  In  order  to  produce  a  solution  with  hi^  spatial  accuracy  at  minimal 
computational  cost,  an  adaptive  procedure  on  the  unstructured  md  is  used.  The  adaptive  procedure 
will  automatically  enrich  the  grid  by  adding  points  in  the  high-giament  (x  high  flow  activity)  region  and 
by  removing  points  (coarsening  the  mesh)  where  they  are  not  needed.  This  technique  allows  a  detailed 
study  of  the  complex  two-phsM  shock  reflection  phenomena,  where  the  effects  of  momentum  and  heat 
exchange  between  phases  will  signiflcantiy  modify  the  shock  structure  and  shock  parameters. 

Results  will  be  given  &om  the  code  validation  study  for  the  shock  propagation  in  the  dusty  gases. 
The  code  performance  will  be  illustrated  by  solving  the  problem  of  reflection  and  difiraction  of  a  plan 
shock  wave  over  a  semidrcuiar  cylinder  in  a  dusty  gas. 

1,  THE  MATHEMATICAL  MODEL  AND  THE  NUMERICAL  SOLUTION 
Conservation  Equations 

The  mathematical  model  consists  of  conservation  governing  equations  and  constitutive  laws  that 
provide  closure  for  the  model.  The  basic  formulation  idopted  here  follows  the  gas  and  dilute  particle 
flow  d]mainics  model  presented  by  Soo^ .  The  following  assumptions  are  used  during  the  derivation  of 
governing  equations: 

(1)  The  gas  is  air  and  is  assumed  to  be  ideal  gas; 

(2)  The  particles  do  not  undergo  a  phase  change  because  particles  are  considered  as  sand  whose  phase 
transition  temperature  is  much  higher  than  the  gas  temperature  considered  here; 

(3)  The  particles  are  solid  spheres  of  uniform  diameter  and  have  a  constant  material  density; 

(4)  The  volume  occupied  by  the  particles  is  negligible; 

(5)  The  interaction  between  particles  can  be  ignored; 

(6)  The  only  force  acting  on  the  particles  is  drag  force  and  the  only  heat  transfer  between  the  two  phases 
is  convection.  The  weight  of  the  solid  particles  and  their  buoyancy  force  are  negligibly  small  compared 
to  the  drag  force; 

(7)  The  particles  have  a  constant  specific  heat  and  are  assumed  to  have  a  uniform  temperature  distri¬ 
bution  inside  each  particle. 

Under  the  above  assumptions,  distinct  equations  of  continuity,  momentum,  and  energy  are  written 
for  each  phase.  The  interaction  effects  between  the  two  phases  are  listed  as  the  source  terms  on  the 
righthaad  side  of  the  governing  equation.  The  two  dimensional  unsteady  conservation  equations  for  the 
two  phases  can  be  written  in  the  vector  form  in  Cartesian  coordinates; 


Here  t'  is  the  vector 
and  S  is  the  source  term 


of  conservative  variables,  F  and  G  are  fluxes  in  x  and  y  direction,  respeciivei 
for  momentum  and  heat  exchange.  The  definition  of  these  vectors  are: 
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where  p, u,u,  and  e  are  gas  density,  velocities,  and  energy,  respectively;  Pp,Uf,Vf  and  are  particle 
density,  velocities,  and  energy,  respectively;  (/x,/,)  and  q  denotes  drag  force  components  acting  on  the 
particles  and  heat  transfer  to  the  particles,  respectively.  The  gas  pressure  p  is  related  to  p,  u,  v  and  e  for 
by 


p  =  (T  -  l)[e -0.5p(u^  +  V'))  (2) 

where  7  is  the  specific  heat  ratio.  The  gas  temperature  can  be  found  through  the  equation- of- state  for 
ideal  gas 


p  =  pRT 


(3) 


where  R  is  the  gas  constant. 

The  particle  temperature  Tp  is  calculated  through  relation  9 

+  0.5pp(uJ  +  v^).  (4) 

The  source  terms  on  the  righthand  side  of  equation  (1)  are  momentum  and  heat  exchange  between 
gas  and  particle  phases.  If  we  let  and  p,  be  the  particle  radius  and  material  density,  respectively, 
then  the  drag  forces  are 


3  p^ 
3  P.rp 
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(5) 


The  particle  drag  coefficient  Ci  is  a  function  of  Reynolds  number,  Rc,  which  is  based  on  the  relative 
velocity  between  the  gas  and  particle  phases.  After  testing  the  drtig  coefficienu  given  by  Sommerfeld^ 
and  by  Clift  et  al.*,  the  following  were  two  adopted: 


Ci  ==  -f.  O-lS/Ze"  for  Re.  <  800 

Re 


and 


for  Re  >  800  . 


Here  the  Reynolds  number.  Re  is  defined  as 


(5) 


Re  = 


2prp((u  -  »p)^  4-(t>  - 


16) 


Viscosity,  p  is  calculated  at  film  temperature,  namely,  Tf  =■  O.SfTp  +  T),  and  the  temperature 
dependency  of  the  viscosity  is  evaluated  according  to  Sutherland's  law 
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(7) 


where  /u,  is  the  dynamic  viscosity  of  the  gaseous  phase  at  the  reference  temperature  and  $  is  an  effective 
temperature,  called  the  Sutherland  constant. 

The  rate  of  heat  transfer  from  gaseous  phase  to  the  particle  phase  is  given  by 

=  (8) 

where  Pr  =  fiCp/kf  is  the  Prandtl  number,  and  Cp  and  kp  are  the  specific  heat  and  thermal  conductivity 
of  gas,  respectively.  The  Nusseit  number  Nu  is  a  function  of  this  Reynolds  number  and  the  Prandtl 
number  as  given  by  Drake* 


=  2  +  0.459Re® 


(9) 


Initial  and  Boundary  Conditions 

The  geometry  of  the  computational  domain  is  shown  in  Fig.  1.  The  initial  conditions  for  gas  are 
Po  —  l.lkglnP  and  p,  s=  lOl.Sfcpa,  with  a  coming  shock  at  z  =  -0.5.  There  are  no  particles  from  -  1.0 
<  X  <  0.0.  From  z  >  0.0,  particles  are  initially  in  thermal  and  kinematic  equilibrium  with  surrounding 
gas.  The  particles  that  are  uniformly  distributed  in  the  dusty  region  have  the  following  parameters  for 
different  test  problems: 

Mass  loading,  Pp-.  0.25  kgjm},  0.76  kg/m^] 

Mass  material  density,  p,:  2500  kg/m^; 

Particle  radii,  r^:  10  pm,  25  pm,  SO  pm; 

Specific  heat,  c,;  766  J/kg/K. 
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Figure  1.  An  illustration  of  the  considered  flow  field. 

The  lower  boundtiry  and  cylinder  surface  are  solid  walls  and  assumed  adiabatic  and  impermissible. 
A  reflecting  boundary  condition  is  assumed  for  both  the  gas  and  particle  phase.  Particles  are  assumed 
to  experience  a  perfect  elastic  collision  with  the  wall  and  reflect  from  the  wedi.  The  right  and  upper 
boundaries  are  open  boundaries  where  a  nonreflection  boundary  condition  is  used  for  the  gas  phase  and 
a  zero  normal  gradient  condition  is  used  for  particle  phase. 

Numencal  MethQd„Qf  SoIutLoas 

The  system  of  partial  differential  equations  described  in  the  previous  paragraph  is  integrated  nu- 
mericaily.  Equation  (1)  is  repeated  here: 
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(1) 


m  OF  OG 
dt  Ox  Oy 


In  order  to  solve  this  equation  numerically,  an  operator  time-splitting  technique  is  used.  Assuming 
that  all  flow  variables  are  known  at  a  given  time,  we  can  calculate  its  advancement  in  time  by  splitting 
the  integration  into  two  stages. 

In  the  first  stage,  the  conservative  part  of  equation  (1)  is  solved: 


W  ^  ^ 

<5x 


HO) 


The  Second  Order  Godunov  method  is  used  for  the  integration  of  the  subsystem  of  equations 
describing  the  flow  of  the  gaseous  phase  (first  four  components  of  equation  (1)).  The  method  is  well 
documented  in  literature. The  subsystem  of  equations  describing  the  particle  phase  flow  is  integrated 
using  a  simple  finite  difference  upwind"  scheme.  This  is  done  because  there  is  no  shock  in  the  particle 
phase  and  the  upwind  scheme  leads  to  a  robust  and  accurate  integration  scheme. 

In  the  second  stage,  the  source  term  is  added  and  the  following  equation  is  solved. 


dt 


=  5. 


(11) 


To  integrate  this  equation  in  time,  we  need  to  obtain  5  as  a  function  of  U.  We  calculate  5  through 
equations  (5)  to  (8). 

In  order  to  produce  a  solution  of  the  high  spatial  accuracy  at  minimal  computational  cost,  an 
unstructured  triangular  grid  with  adaptive  procedure  is  used.  The  adaptive  procedure  will  automatically 
enri^  the  mesh  by  adding  points  iu  the  high  gradient  (or  high  flow  activity)  region  of  the  flow  field 
and  by  removing  points  (coarsening  mesh)  where  they  are  not  needed.  The  dynamic  nature  of  mesh 
enrichment  is  shown  in  Fig.  3  for  two  different  time  frames.  One  can  see  that  a  very’  fine  mesh  is 
generated  around  shock  fronts  and  other  steep  density  gradient  regions. 

2.  RESULTS 

Model  Validation  for  One-Dimensional  Shock  Wave  Propagation  in  A  Dustv  Gas 

To  test  the  momentum  and  heat  exchange  mechanism  for  the  current  two-phase  model,  we  first 
simulate  a  one-dimensionai  problem  of  a  normtd  shock  wave  propagating  into  a  dusty  gas.  We  numerically 
simulate  the  experiments  conducted  by  Sommerfeid*.  In  the  experiments,  small  glass  sphere  particles  of 
material  density  p,  =  2500fc<y/»n^,  specific  heat  capacity  c,  =  IGBJ/kgjK.  and  average  dimeter  of  27 
pm  were  used  as  suspension  particle  phase.  The  incoming  shock,  and  particle  loatfing  ratio  q  p/ Pp, 
are  two  varying  parameters.  The  e.\perimental  results  and  our  numerical  simulation  results  of  shock 
Mach  number  as  a  function  of  distance  for  two  test  cases  are  shown  in  Fig.  2a  (p  =  0.63  and  Fig.  2b 
(jj  =  1.4)  for  comparison  purpose.  -As  one  can  see,  the  agreement  between  the  prediction  of  our  present 
model  and  the  experimental  results  is  very  good. 

Two-Dimensional  Simulation  Results  of  Pure  Gas  Flow 

To  test  the  accuracy  of  the  two-dimensional  computation,  we  compute  the  pure  gas  flow  case  of  a 
shock  wave  reflection  and  diffraction  over  a  semicircular  cylinder.  We  then  compare  the  simulation  wth 
experimental  results.  Shock  wave  reflection  on  a  wedge  has  been  extensively  studied  by  many  researchers 
(see  e.g.,  review  paper  of  Hornung®).  Shock  wave  reflection  by  circular  cylinders  was  numerically  simu¬ 
lated  by  Yang  et  aJ.*  and  experiments  were  performed  by  Kaca^®.  Fig.  3a  and  3b  show  density  contours 
with  adapted  grids  at  two  moments  in  time.  In  Figs.  4a  nd  4b.  the  interferogram  from  the  experiment 
and  density  contours  from  the  present  simulation  are  compared  for  the  same  flow  condition  and  same 
time.  .N'ote  that  the  density  levels  are  normalized  by  the  ambient  gas  density  in  Fig.  4.  As  one  can  see 
from  Fig.  4a  and  Fig.  4b,  the  results  show  an  excellent  quantitative  as  well  as  qualitative  agreement 
between  the  numerical  simulation  and  experimental  results. 
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Figuie  2.  Comparison  between  computational  prediction  and  experimental  measurement  of  shock  wave 
attentuation  for  (a)  M,  *  1.40,  rj  =  ^  =  0.63  and  (b)  M,  =  1.7,  77  =  ^  =  1.4  (o  experimem,  - 

calcuiziion). 
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Elguie  3.  Computed  density  contours  with  adapted  grid  at  two  different  times. 
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Figure  4.  Comparison  for  M,  s=  2.80  gas  -  only  flow,  (a)  interferogram  from  experiment  conducted  by 
Kaca  (1988),  (b)  density  contours  from  present  calculation. 


Tlie  basic  setup  for  the  two-phase  simulation  is  shown  in  Fig.  1.  Here  the  pianar  shock  with  Miss2.i 
impinges  on  an  area  of  a  dusty  gas.  The  interface  between  clear  air  and  dusty  air  is  located  at  x— 0.0  of 
the  computational  domtun.  The  area  of  the  dusty  air  contains  a  semicylinder  with  a  radius  of  Im.  The 
size  of  the  computational  domain.  Initial  parameters  of  the  gas,  parameters  of  the  incoming  shock,  size 
of  the  semicylinder  and  its  location  in  the  computational  domain,  are  the  same  as  in  the  redection  and 
di&action  simulation  presented  in  the  previous  section. 

The  main  objective  of  this  set  of  simulations  is  to  study  the  effects  of  partide  size  and  pattide 
loading  on  the  parameters  of  the  reflected  and  di&acted  shock  waves.  It  is  aisio  of  interest  to  study  the 
dynamics  of  reflection  and  di&action  in  partide  media.  This  is  espedaily  valuable  since  it  is  extremdy 
difficult  to  observe  these  interactions  experimentally  in  an  optically  thick  dusty  gas. 

The  first  set  of  simulation  results  is  shown  for  the  case  with  dust  parameters  =  lOum  and  = 
0.25  kgjm}.  The  gas  parameters  and  the  parameters  of  the  incoming  shock  wave  are  the  same  as  in  the 
pure  gas  case  presented  above.  In  Figs,  oa  and  Sb,  partide  density  contours  and  gas  density  contours 
are  shown  at  the  stage  when  the  inddent  shock  wave  has  reached  the  top  of  the  semicylinder.  At  this 
stage,  partides  have  very  little  effect  on  the  dynamics  and  parameters  of  the  shock  in  the  gas  phase.  The 
presence  of  the  partides  causes  a  small  widening  of  the  shock  that  is  more  noticeable  for  the  inddent 
shock.  Also,  one  can  observe  an  additional  contour  line  at  the  dusty  gas/puze  gas  interface.  The  partide 
density  contours  depict  significant  piling  up  of  the  dust  partides  at  the  leading  edge  stagnation  poiut  of 
the  cylinder. 
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Figure  5.  Density  contours  for  the  case;  M,  =  2.8,  pp  =  0.25kg/m^,rp  s  10pm  at  two  different  times, 
(a)  partide  density  at  fi,  (b)  gas  density  at  tj,  (c)  partide  density  at  ti,  and  (d)  gas  density  at 

In  Figs.  5c  and  5d.  the  particle  density  and  gas  density  contours  axe  shown  at  the  stage  where 
significant  diffraction  has  taken  place  and  the  shock  front  is  approaching  the  trdling  edge  of  the  cylinder . 
The  small  particle  loading  and  small  partide  size  leads  to  very  small  modification  of  the  gas  shock 
structure  and  parameters.  One  can  observe  further  widening  of  the  shock  and  some  smearing  of  the  slip 
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line  that  originates  at '  he  tritile  point.  The  panicle  density  contours  reveal  that  the  particles  piled  up  at 
the  stagnation  point  were  s-vept  by  the  gas  flow  to  the  area  of  triple  point  and  slip  line  for  the  gas  flow, 
leaving  a  small  amount  of  particles  at  the  leading  edge.  We  should  note  that  this  behavior  is  spedflc 
for  our  problem,  where  at  t=0,  the  dusty  gas  area  was  located  at  x=0  and  there  is  no  i^ux  of  the  dust 
&om  the  left  boundary.  Also  in  Fig.  5c,  we  note  that  the  particles  reach  a  distinct  loctu  maxima  at  the 
distance  about  25  cm  behind  the  main  shock  &ont.  At  this  maxima  the  particle  density  is  0.86  kgjm} , 
which  is  more  than  three  times  the  initial  particle  density.  The  particle  density  reaches  a  maximum 
value  at  the  location  of  the  gas  slip  line.  We  observe  a  significant  accumulation  of  the  particles  that  have 
been  moved  eJong  the  slip  Une  by  the  shear  flow.  The  larger  concentration  of  particles  in  the  vicinity 
of  triple  point  is,  in  fact,  the  remainder  of  the  particles  that  have  concentrated  first  at  the  leading  edge 
and  then  were  swept  up  with  the  flow.  It  is  also  interesting  to  observe  that  an  essentially  particle-  free 
zone  is  formed  due  to  the  effects  of  particles  slipping  over  the  top  of  the  cylinder  and  the  rarefaction 
wave  behind  the  cylinder. 

3.  CONCLUSIONS 

In  this  paper,  a  computer  program  for  two-phase  compressible  flow  computation  on  adaptive  grids 
using  upwind  schemes  is  described.  The  following  validation  study  and  conclusion  can  be  made. 

(1)  The  validation  study  for  a  one-dimensional  shock  wave  propagating  in  a  dusty  gas  shows  a  good 
agreement  between  the  prediction  of  our  model  and  the  results  of  the  experiment. 

(2)  For  a  two-dimensional  gas-only  flow,  numerical  results  agree  well  with  existing  experimental 
data  qualitatively  and  quantitatively,  indicating  that  the  gas  phase  is  sutcurateiy  simulated  by  adaptive 
grid  technique. 

(3)  Particles  in  the  gas  can  have  a  profound  effect  on  the  shock  wave  reflection  and  difinction 
pattern,  which  is  a  function  of  particle  size  and  loading.  The  smaller  the  particle  and  the  lesser  the 
particle  loading,  the  less  the  inference  of  particle  on  the  flow  field. 

(4)  There  is  a  particle  accumulation  behind  the  “back  shoulder”  of  the  semicircular  cylinder  due  to 
the  effect  of  particles  inertia  and  gas  rarefaction  wave. 
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Abstract 

A  Review  of  past  and  current  research  on  pulsed 
detonation  engine  devices  connects  early  experimental 
work  originating  with  the  VI  puisejet  to  recent 
interest  in  such  propulsion  devices.  The  recent 
interest  has  been,  in  pan.  stimulated  by  Aviation 
Week  where  sightings  of  aircraft  contrails  lead  to 
question  if  some  son  of  PDE  device  has  already  been 
developed.  This  review  summarizes  what  is  known 
about  PDEs.  makes  predictions  for  applications  to 
realistic  flight  vehicles  including  missiles  and  full 
scale  aircraft,  and  outlines  what  is  yet  required  for 
successful  PDE  devdopment 

l.Inirptiuciion 

Tliis  paper  reviews  past  and  recent  theoretical  and 
experimental  work  related  to  the  Pulsed  Detonation 
Engine  (POE)  concept.  Such  a  review  is  timely  since 
moch  interest  in  the  PDE  concept  has  been  generated 
from  several  recent  Aviation  Week  (AW)  anides.^  ^ 
The  AW  strides,  in  addition  to  describing  S  AlC  PDE 
studies,  describe  observations  of  aircraft  flight  and 
engine  sound  generation  that  are  similar  to  what 
would  be  expected  from  PDE  operation.  These 
observations  are  intriguing  since,  to  our  knowledge, 
there  has  been  no  previously  reported  use  of  PDE 
devices  in  any  past  or  recent  flight  vehicles.  The 
reported  observations  indude  loud  pulsing  sounds  at 
Beale  AFB  and  photographs  of  high  altitude  contrails 
with  "cotton  ball”  like  beads  strung  on  the  contrails 
in  a  repetitive  pattern.  It  is  tempting  to  try  to 
connect  the  AW  reports  with  what  we  understand 
about  PDE  operation.  It  has  come  to  our  attention 
that  a  ground  observer  has  identified  the  frequency  of 
the  pulsing  sounds  emanating  '  t  the  vehicle  that 
made  the  contrails  appearing  in  .  .  AW  article  to  be 
of  the  order  of  50-60  Hertz.  To  obtain  the  source 
(aircraft  engine)  frequency  we  must  correct  the 
observed  frequency  for  the  Doppler  effect,  taking  into 
account  the  temperamre  variation  between  ground  and 
flight  altitude.  Assuming  an  altitude  of  45-50,000  ft. 
(cirrus  clouds  are  observed  behind  the  trails  in  the 
published  photographs),  a  flight  Mach  number 


between  one  and  two  gives  a  source  frequency,  f, 
between  100  and  200  Hertz.  As  we  show  later  in  this 
paper,  a  PDE  generating  25.000-50,000  lbs.  thrust 
should,  theoredcaliy,  operate  in  this  frequency  range. 
Of  course  we  have  no  information  concerning  the 
subject  aircraft  characteristics  and  consequently  we 
cannot  conclude  that  PDEs  are  powering  present  day 
aircraft  On  the  other  hand  the  observations  appear  to 
be  consistent  with  expected  PDE  operation. 

2.  Early  Pulsed  Combustion  Propulsion  Devices 

It  is  instructive  to  point  out  the  differences 
between  the  PDE  concept  and  the  more  commonly 
understood  puisejet  devices.  The  first  full  scale 
application  of  pulsed  propulsion  devices  was  for  the 
VI  flying  "buzz  bomb."  The  engine  used  for  this 
vehicle  was  the  Schmidt-Argus^  engine  and  has  since 
been  generally  referred  to  as  a  "puisejet”  The 
pnisejet  for  the  VI  engine  was  based  on  repetitive 
combustion  ignitions  accomplished  through  the  use 
of  mechanical  reed  valves  that  allowed  fresh  air  charge 
to  be  drawn  into  the  combustion  chamber.  The 
timing  of  the  reed  valve  opening  was  pegged  to  the 
acoustical  frequency  (organ  pipe  modes)  of  the 
combustion  chmber,  which  consisted  of  a  central 
ignition  region  joined  to  an  exhaust  duct.  Thus,  the 
operating  parameters  of  the  engine  were  fixed  with 
engine  size:  only  narrow  ranges  of  thrust  level 
variation  are  possible  in  such  an  engine.  An  increase 
or  decrease  of  thrust  can  only  be  made  through 
changes  in  engine  internal  geometty.  Ever  since  the 
first  occurrence  of  puisejets.  these  engines  have  been 
considered  for  other  applications  including  full  scale 
aircraft  propulsion.  One  of  the  major  obstacles  in  the 
early  development  of  the  puisejet  for  wider 
applications  was  the  complete  absence  of  a  theoretical 
approach  to  understanding  the  thermodynamic  process 
in  the  combustion  chamber.  It  was  assumed  that  the 
puisejet  combustion  process  was  similar  to  the 
steady-state  Lenoir  constant-volume  cycle  and  that  the 
frequency  of  the  combustion  pulsations  could  be 
predicted  by  means  of  steady-state  acoustical  wave 
motion.  However,  the  efficiency  of  the  puisejet,  as 
determined  experimentally,  was  much  lower  than  a 


constant- volume  process  would  predict.  We  know 
now  that  the  early  pulsejet  devices  operated  on  an 
approximately  constant-pressure  cycle,  which  is 
known  to  have  a  lower  theimodynainic  efficiency  than 
the  constant-volume  cycle.  We  have  previously 
argued  that  the  lack  of  a  firm  theoretical  undeisianding 
of  the  physics  and  thermodynamics  was  primarily 
responsible  for  the  failure  to  develop  the  pulsejet 
further  for  a  wider  range  of  practical  applications. 
This  argument  will  be  discussed  again  later  in  this 
review. 

In  the  meantime,  the  term  pulsejet  has  become 
generally  understood  to  refer  to  a  pseudo-generic  senes 
of  engines.  The  term  "propulsive  duct"  is  a  more 
comprehensive  descriptor  encompassing  a  wider  range 
of  pulsed  combustion  engine  concepts.  An  eariy 
series  of  papers  by  TharjatT*^  desenbed  the  status  of 
work  on  such  devices  up  o  1965,  and  provides  a 
guide  to  the  early  attempts  to  understand  the  physics 
and  aerodynamics  of  the  internal  gas  flows  in  them. 
Even  though  these  early  investigations  were  seriously 
handicapped  by  a  lack  of  knowledge  of  unsteady 
aerodynamics  and  the  physics  of  repetitive 
combustion,  it  is  remarkable  that  the  conclusions 
offered  in  Thatiau's  papers  are  close  to  what  we  have 
concluded  over  the  past  several  years  for  the  PDE 
concept.  Specifically,  it  was  concluded  that  the 
propulsive  dua  engtue  concept  should  theoretically  be 
ca^le  of  any  desired  level  of  thrust  per  unit  area, 
with  a  corresponding  redaction  in  specific  fuel 
consumption.  Valveless  operation  was  also 
investigated  and  shown  to  offer  a  route  to  eliminating 
the  dependency  on  fixed  acoustical  frequencies  tied  to 
a  given  chamber  geometry.  Figure  1  is  representative 
of  the  valveless  propulsive  duct  conceptualized  by 
Thaxjatt.  Further,  it  was  shown  that  the  use  of 
feedback  techniques  via  multiple  tube  atrangements, 
which  may  not  be  practical  from  an  engineering 
standpoint,  leads  to  the  possibility  of  very  high 
frequency  operation  beyond  the  audible  range.  This 
would  result  in  near  sikmt  operation.  Finally,  it  was 
concluded  dm  the  propulsive  duct  should  be  capable 
of  supersonic  operation,  and  a  Mach  3  engine  was 
concepnialired:  a  schematic  of  this  supersonic  concept 
is  shown  in  Figure  2. 

Somewhat  later,  in  a  1982  report  by  Kentfield,^ 
the  pulsejet  was  analyzed  for  predicted  flight 
performances  based  on  well  established  experimental 
test-stand  data  and  available  theoretical  studies.^  The 
results  were  compared  against  other  engine 
alternatives  suitable  for  small,  high  subsonic  speed 
flight  vehicles.  The  predicted  performance  lor 


valvcless  engine  configurauons  was  shown  to  be 
highly  compeuiive  with  turbojets  at  high  subsonic 
Mach  numbc.s.  Actual  flight  tests  with  a  drone  type 
aircraft  at  Mach  0.85  showed  increased  performance 
over  predicted  performance  values  due  possibiv  to  a 
combination  of  increased  air-breaihing,  increased 
intake  density,  and  a  ram  effect  supenmposca  on  the 
pulsejet  cycle.  Conclusions  from  these  studies 
include  suggestions  that  valveiess  pulsejet 
performance  could  be  comparable  and,  in  some  cases, 
exceed  that  of  turbojet  engines.  A  strong  point  was 
made  concerning  the  low  cost,  simplicity  and 
relatively  high  thrust-to-weight  ratio  of  pulsejets 
when  compared  with  turbojets. 

The  main  reason  for  including  the  preceding 
review  of  pulsejets  and  propulsive  ducts  is  to  draw 
attention  to  the  similarity  between  the  eariy 
conclusions  concerning  the  future  performance 
cxpeciauons  of  pulsejets  and  the  conclusions  drawn  to 
date  concerning  expected  PDE  performance.  As 
mentioned  above,  we  believe  a  primary  reason  that 
such  devices  have  not  been  pursued  in  the  past  is  that 
adequate  analysis  and  evaluation  tools  did  not  exist  at 
the  time  to  help  understand  the  complexities  of  pulsed 
operation.  Modem  CFD  techniques  now  allow  a 
comprehensive  analysis  of  the  internal  and  external 
flows  associated  with  pulsed  propulsion  devices.  I' 
may  well  be  more  than  just  an  interesting  exercise  to 
re-examine  the  pulsejet  engines  using  present  day 
CFD  tools,  and  to  compare  the  results  with  those 
from  similar  PDE  studies. 

3.  Constant  Volume  Combustion  and  Early.  Pulsed 
Detonation  Studies 

Constant  Volume  Combustion 

A  constant  volume  combustion  process  is  known 
to  have  a  higher  thermodynamic  efficiency  than  a 
constant  pressure  combustion  process.  Constant 
volume  combustion  was  adopted  very  early  for  use  in 
gas  turbine  engine  development,  and  the  first  gas 
turbine  engines  in  commercial  use  were  based  on  the 
constant  volume  cycle.  Jet  propulsion  engines  were 
one  of  the  applications  of  the  constant  volume  cycle 
(or  explosion  cycle),  which  was  explored  in  the  late 
1940s.^  Although  the  explosion  cycle  operates  at  a 
larger  pressure  variation  in  the  combustion  chamber 
than  in  a  pulsejet,  the  cycle  actually  realized  in  these 
engines  was  not  a  fully  constant  volume  one  since 
the  combustion  chamber  was  open  ended.^  In 
Reference  8  the  maximum  pressure  ratio  measured  in 
an  explosion  cycle  engine  was  3:1,  whereas  the 
pressure  ratio  for  the  same  mixture  under  the 


assumption  of  a  constant  volume  cycle  would  be  8: 1. 
Also,  this  early  engine  was  limited  by  the  available 
cycle  frequency,  which  in  turn  is  limited  by  the 
reaction  rate.  A  simple  calculation^  showed  that  if 
the  combustion  time  could  be  reduced  in  this  engine 
from  0.006  sec  to  0.003  sec,  the  thrust  per  pound  of 
fuel>air  mixture  would  increase  100%.  Thus,  a 
propulsion  device  based  on  an  explosion-cycle  has 
two  main  disadvantages: 

•  Constrained  volume  combustion  (as 
distinguished  from  constant  volume 
combustion)  does  not  take  full  advantage  of  the 
pressure  rise  characteristic  of  the  constant 
volume  combustion  process. 

•  The  frequency  of  the  explosion  cycle  is  limited 
by  the  reaction  rate,  which  is  only  slightly 
higher  than  the  deflagrauve  combustior.  rate. 

The  main  advantage  of  the  constant  pressure 
cycle  is  that  it  leads  to  engine  configurations  with 
steady  state  processes  of  fuel  and  oxidizer  injection, 
combustion,  and  expansion  of  the  combustion 
products.  These  stages  can  be  easily  identified  and  the 
engine  designer  can  optimize  them  on  the  basis  of 
teladvely  simple  steady  state  considerations. 

Pulsed  Detonation  Studies 

There  have  been  nometous  attempts  in  the  past 
to  take  advantage  of  detonative  combustion  for  engine 
applications.  The  following  is  a  brief  description  of 
some  of  the  most  relevant  past  experimental  and 
analytical  studies  of  pulsed  detonation. 

The  Work  of  N.  Hoffmann.  The  first  reported 
work  on  intermittent  detonation  is  attributed  to 
Hoffmann  in  1940.  Hoffmann's  experiments  on 
intermittent  detonation  were  carried  out  in  a  long, 
narrow  tube  mounted  on  a  test  stand  using  acetylene- 
oxygen  and  benzine-oxygen  fuel  mixtures.  Water 
vapor  was  added  to  prevent  the  highly  sensitive 
acetylene-oxygen  mixture  from  premature  detonation. 
Hoffmann  pointed  out  the  importance  of  the 
detonation  initiation  (spark  plug)  location  in  reference 
to  tube  length  and  diffuser  length.  It  was  found  that  a 
continuous  injection  of  the  combustible  mixture  leads 
to  only  a  narrow  range  of  ignition  frequencies  that 
will  produce  an  intermittent  detonation  cycle.  These 
frequencies  are  governed  by  the  time  required  for  the 
mixture  to  reach  the  igniter,  time  of  uansiiion  from 
deflagration  to  demnation,  and  time  of  expansion  of 
the  detonation  products.  Hoffmann  attempted  to  find 
ihe  optimum  cycle  frequency  experimentally.  It  was 


discovered  ihat  detonauon-tube  firing  occurred  at 
lower  frequencies  than  the  spark-plug  energizing 
frequencies,  indicating  that  the  injection  flow  rate  and 
ignition  were  out  of  phase.  Wartime  events  prevented 
further  work  by  Hoffmann  and  his  co-workers. 

The  Work  of  Nicholls  and  Co-Workers.  A 
substantial  effort  in  intermittent  detonation  research 
was  made  by  a  group  headed  by  J.  A.  NichoUs^^'^^ 
of  the  University  of  Michigan  beginning  in  the  early 
50's.  The  most  relevant  work  concerns  a  set  of 
experiments  carried  out  in  a  six  foot  long  detonation 
tube.^  ^  The  detonation  tube  was  constructed  from  a 
one  inch  internal  diameter  stainless  steel  tube.  The 
fuel  and  oxidizer  were  injected  under  pressure  hrom  the 
(closed)  left  end  of  the  tube  and  ignited  at  some 
distance  down  stream.  The  tube  was  mounted  on  a 
pendulum  platform,  suspended  by  suppon  wires. 
Thrust  for  single  detonations  was  measured  by 
detecting  tube  (platform)  movement  relative  to  a 
stationary  pointer.  For  multi-cycle  detonations, 
thrust  measurement  was  achieved  by  mounting  the 
thrust  end  of  the  tube  to  the  free  end  of  a  cantilever 
beam.  In  addition  to  direct  thrust  measuremems,  the 
temperature  on  the  inner  wall  of  the  detonation  tube 
was  measured.  Fuel  mixtures  of  hydrogen/oxygen, 
hydrogen/air,  acetylene/oxygen  and  acetyiene/air 
mixtures  were  used.  The  gaseous  oxidizer  and  fuel 
were  continuously  injected  at  the  closed  end  of  the 
detonation  tube  and  three  fixed  flow  rates  were 
investigated.  Under  these  conditions,  the  only 
parameters  that  could  be  varied  were  the  fuel/Qxidger 
ratio  and  frequency  of  ignition.  A  maximum  gross 
thrust  of  -  3.^b  was  measured  in  the  hydrogen/air 
mixture  at  the  frequency  of  -  30  detonations  per 
second.  The  most  promising  results  were 
demonstrated  for  the  H2/air  mixture,  where  a  fuel 
specific  impulse  of  Isp  »  2100  sec  was  reached.  The 
maximum  frequency  of  detonations  obtained  in  ail 
experiments  was  35  Hz.  The  temperature 
measurements  on  the  inner  wail  showed  that  for  the 
highest  frequency  of  detonations  the  temperature  did 
not  exceed  800°  F.  This  temperature  is 
approximately  the  mean  between  the  tempenui're  of 
the  injected  gasses  and  the  detonation  wave 
temperature  averaged  over  the  cycle  frequency. 

In  their  later  work,^^*^^  the  Universi'j  of 
Michigan  group  concentrated  on  development  of  fie 
Rotating  Detonation  Wave  Rocket  Motor.  No  further 
work  on  the  pulsed  detonation  cycle  was  pursued. 

The  Work  of  L.  1  KfzvckL.  In  a  setup  very 
similar  to  Nicholl's.  L.  J.  Kizycki*®  performed  an 
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experimental  investigation  of  intennittent  detonauons 
with  frequencies  up  to  60  cps.  An  attempt  was  also 
made  to  analyze  the  basic  phenomena  using  unsteady 
gas  dynamic  theory.  Kizycki's  attempt  to  analyze  the 
basic  phenomena  relied  on  wave  diagrams  to  trace 
characteristics,  assumptions  of  isentropic  flow  for 
detonation  and  expansion,  and  incompressible  flow 
for  mixture  injection  processes.  The  most 
convincing  data  from  the  experiments  are  the 
measurement  of  thrust  for  a  range  of  initiation 
frequencies  and  fuel  mixture  flow  rates. 
Unformnately  no  dima  pressure  measurement  in  the 
device  is  reported,  so  there  is  only  indirect  evidence  of 
the  namre  of  the  process  observed. 

The  basic  test  stand  used  by  Krzyeki  is  very 
similar  to  that  used  by  Ntcholls  and  his  co-workers. 
The  length  of  the  detonation  tube  aud  the  internal 
diameter  were  exactly  the  same  as  those  in  NichoU's 
experiments.  Figure  3  presents  a  schematic  of  the 
experimental  apparatus  containing  common,  generic 
elements  of  the  Hoffmann-Nicholls-Krzycki 
experiments.  A  propane/air  mixture  was 
condnuously  injected  tlmugh  a  reversed-flow  diffuser 
for  better  mixing,  and  was  ignited  at  the  same 
distance  as  in  the  Ntcholls'  experiments  from  the 
injection  point  by  an  automobile  spark  plug.  The 
s|^  frequency  was  varied  from  1  to  60  cps.  The 
spark  plug  power  output  was  varied  inversely  with 
tte  initiation  frequency,  and  at  the  frequency  of  60 
cps  was  only  0.65  Joule.  This  value  is  too  low  for 
direct  initiation  of  a  detonation  wave  by  the  spark, 
and  consequently  all  of  the  experiments  must  have 
been  based  on  transition  from  deflagration  to 
detonation.  According  to  experimental  data  and 
theory,^^  direct  initiation  of  a  mixture  of  propane/air 
at  the  detonability  limits  requites  an  energy  release  tm 
the  order  of  10^  Joules.  Thus,  we  conclude  that  the 
required  deflagration-detonation  transition  region 
length  in  Kryzeki's  experiments  would  have  been 
prohibitively  large  for  the  piopane/air  mixuire.  It 
follows  that  in  all  of  the  experiments  a  subsuuitial 
part  of  the  process  was  deflagiative.  This  resulted  in 
low  efliciency  and  negligible  thtusL  Krzyeki  repeated 
Nicholls’  experiments  using  basically  the  same  rates 
of  injection  of  the  detonable  mixtures.  Krzyeki’s 
experimental  results  are  very  well  documented, 
allowing  us  to  deduce  a  clear  picture  the  physical 
processes  occurring  in  the  tube.  The  author  arrived  at 
the  conclusion  that  thrust  was  possible  from  such  a 
device  but  practical  applications  did  not  appear 
promising.  It  is  unfortunate  that,  possibly  based  on 
Krzyeki's  extensive  but  misleading  results,  all 


experimental  work  related  to  the  pulsed  detonauon 
engine  concept  stopped  at  this  time. 


Russian  Work  on  Pulse  Detonation  Devices.  A 
review  of  the  Russian  literature  has  not  uncovered 
work  concerning  applications  of  pulsed  detonauon 
devices  to  propulsion.  However,  there  are  numerous 
reports  of  applications  of  such  devices  for  other 
purposes  such  as  for  producing  niuogen  oxide^^  (an 
old  Zcldovich  idea  to  bind  niuogen  directly  from  air 
to  produce  fertilizers)  and  as  rock  crushing  devices. 


Korovin  ct  al.^^  provide  a  most  interesting 
account  of  the  operation  of  a  commercial  detonation 
reactor.  The  main  objective  of  this  study  was  to 
examine  the  efficiency  of  thermal  oxidation  of 
nitrogen  in  an  intermiuent  deionative  process  as  well 
as  an  assessment  of  such  technological  issues  as  the 
fatigue  of  the  reactor  parts  exposed  to  the  intermittent 
detonauon  waves  over  a  prolonged  ume.  The  reactor 
consisted  of  a  tube  with  an  inner  diameter  of  16  mm 
and  length  1.3  m  joined  by  a  conical  diffuser  to  a 
second  tube  with  an  iruier  diameter  of  70  mm  and 
length  3  m.  The  entire  deuination  reactor  was 
submerged  in  running  water.  The  detonauon  mixture 
was  introduced  at  the  end  wall  of  the  small  tube. 
CHe.  02  and  N2  comprised  the  mixture  composition 
and  the  mixture  ratios  were  varied  during  the 
ctmtinuous  operation  of  the  reactor.  The  detonatum 
wave  velocity  was  measured  directly  by  piezoelectric 
sensors  placed  in  the  small  and  large  tubes.  The 
detonation  initiation  frequency  in  the  reactor  was  2-16 
Hz.  It  is  reported  that  the  apparatus  operated  without 
significant  maintenance  for  2000  hours. 


Smirnov  and  Boichenko  suidied  intennittent 
detonations  of  gasoline-air  mixtures  in  a  3  m  Ituig 
and  22  mm  irmer  diameter  tube  opetxuing  in  the  6-8 
Hz  ignition  frequency  range.  The  main  motivation 
for  this  work  was  to  improve  the  efficiency  of  a 
commercial  rock  crushing  apparatus  based  on 
intermittent  detonations  of  the  gasoline/air 
mixtures.^^  The  authors  investigated  the  dependence 
of  the  transitional  region  length  from  deflagration  to 
detonation  on  the  initial  temperature  of  the  mixture. 


As  a  result  of  the  information  contained  in  the 
Russian  reports,  we  conclude  that  reliable  commercial 
devices  based  on  intermittent  detonations  have  been 
consuucted  and  operated. 

Pulsed  Solid  Explosion  Studies  at. JFL-  Work 
at  the  Jet  Proouision  Laboratory  (JPL)  by  Back.  Varsi 
and  others^' concerned  an  experimental  and 
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Lheoredcal  study  of  the  feasibility  of  a  rocket  thruster 
based  on  intermittent  detonations  of  solid  explosive 
for  propulsion  in  dense  or  high-pressure  atmospheres 
of  certain  solar  system  planets.  The  JPL  work  was 
directed  at  very  specific  applications:  however,  these 
studies  also  addressed  more  general  key  issues 
concerning  intermittent  propulsion  devices  such  as 
propulsion  efficiency.  In  this  work,  a  Deta  sheet  type 
C  explosive  was  detonated  inside  a  small  detonation 
chamber  attached  to  nozzles  of  various  length  and 
geometry.  The  nozzles,  complete  with  firing  plug, 
were  mounted  in  a  containment  vessel  that  could  be 
pressurized  with  mixnires  of  various  inert  gases  from 
vacuum  to  70  aun.  The  apparatus  directly  measured 
the  thrust  generated  by  single  detonations  of  a  small 
amount  of  solid  explosive  charge  expanding  into 
conical  or  straight  nozzles.  Thrust  and  specific 
impulse  were  measured  by  a  pendulum  balance 
system. 

The  results  obtained  from  the  JPL  experimental 
study  of  an  explosively  driven  rocket  led  to  the 
following  conclusions.  First,  rockets  with  long 
nozzles  show  increasing  specific  impulse  with 
increasing  ambient  pressure  in  CO2  and  N2.  Short 
nozzles,  on  the  other  hand,  show  that  specific 
impulse  is  independent  of  ambient  pressure.  Most 
importantly,  most  of  the  experiments  obtained  a 
relatively  high  specific  impulse  of  250  seconds  and 
larger.  This  result  is  all  the  more  striking  since  the 
detonation  of  a  solid  explosive  yields  a  relatively  low 
energy  release  of  approximately  1000  cal/gm 
compared  with  3000  cal/gm  obtained  in  hydrogen 
oxygen  combustion.  Thus,  it  can  be  concluded  that 
the  total  losses  in  a  thruster  based  on  unsteady 
expansion  are  not  prohibitive  and  hence,  in  principle, 
very  efficient  intermittent  detonation  propulsion 
systems  are  possible. 


4.  Description  of  the  PDE  Concent 
Basic  Principles 

A  detonation  process,  due  to  the  very  high 
chemical  reaction  rate  in  the  detonation  wave,  leads  to 
a  propulsion  concept  in  which  the  constant  volume 
process  can  be  fully  realized.  In  detonative 
combustion,  a  strong  shock  wave,  which  is  part  of 
the  detonation  wave,  acts  like  a  valve  between  the 
detonation  products  and  fresh  charge:  the  detonauon 
wave  funcuons  at  the  same  time  as  a  valveless 
compressor  between  the  fresh  fucl/air  mixture  and  the 
detonation  products.  The  speed  of  the  detonation 


wave  is  about  two  orders  of  magnitude  higher  than 
the  speed  of  a  typical  deflagrauon  wave.  Because  of 
this,  very  high  power  densities  can  be  created  in  the 
detonauon  chambe.'.  Each  detonauon  can  be  initiated 
independently  and.  depending  on  the  chamber 
geometry  and  external  flow  characteristics  pertaining 
to  a  particular  device,  a  wide  range  of  frequencies  is 
possible.  There  is  no  theoreucal  restriction  on  the 
range  of  operating  frequencies:  they  are  uncoupled 
from  any  acoustical  chamber  resonance.  The 
independence  of  detonation  cycle  frequency  is  the 
feature  that  most  differentials  the  PDE  concept  from 
the  pulsejet.  It  is  also  the  feature  tlm  leads 
theoreucally  to  scalability  of  PDE  configuradons  for 
a  wide  range  of  flight  applications.  A  key  physical 
restriction  on  the  range  of  allowable  detonation 
frequencies  arises  from  the  rate  at  which  the  fresh 
fuel/air  mixture  can  be  introduced  inm  the  detonauon 
chamber.  Obviously  the  detonauon  products  must  be 
discharged  from  the  chamber  before  fresh  charge  is 
injected. 

First  PDE  Experiments 

To  our  knowledge,  the  first  experiments  that 
successfully  demonsuated  repetitive  or  pulsed 
detonation  was  attainable  in  a  propulsion-like  device 
were  carried  out  by  Helman,  Shieeve  and  Eidelmen^ 
at  the  Naval  Post^aduaie  School  in  1985-86.  During 
these  studies,  several  fundamentally  new  ideas  were 
developed  for  pulsed  detonation  applications  to 
propulsion.  First,  to  overcome  the  energy 
requirements  for  detonauon  initiation,  a  pre- 
detonation  was  initiated  in  a  small  detonauon  tube 
where  an  oxygen  rich  fuel  mixture  could  be  detonated 
at  substantially  lower  energies  than  those  requited  for 
full  fuel/air  mixtures.  Next,  the  experimental  PDE 
was  operated  in  a  self-aspirating  mode;  the  detonation 
exhaust  gases  were  discharged  through  gasdynamic 
expansion  and  fresh  air  was  drawn  into  the  detonation 
chamber  due  to  chamber  overexpansion  following 
detonauon  product  exhaust.  Figure  4  is  a  schemauc 
of  one  of  the  variations  of  the  PDE  experimental 
configuradons.  The  pre-detonauon  iniiiauon  tube  is 
shown  attached  to  a  spark  plug.  The  most  important 
results  were  obtained  when  the  fuel  injection 
(injection  was  accomplished  with  a  toroidal  ring 
containing  holes  near  the  exhaust  plane  of  the  device) 
rate  was  dmed  appropnateiy  (the  lag  ume  between  the 
fuel/air  travel  to  the  pre-detonauon  port  and  the  amval 
of  the  pre-detonation  pulse)  with  detonation 
iniUauon.  The  principle  of  repeUtive  detonauon 
iniuauon  and  control  was  definiuveiy  established  in 
these  experiments.  Pressure  transducer  traces 
unambigiously  showed  that  a  detonauon  wave  was 
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foimed  in  the  chamber  and  propagated  with  the  Mach 
number  appropriate  for  the  fuei-air  mixoire.  The  fuci 
used  in  the  NFS  experiments  was  ethylene  and  the 
maximum  detonation  frequency  obtained  was  25  Hz, 
limited  only  by  the  mechanical  nature  of  the  solenoid 
valve  used  for  fuel  injection  control.  Figures  5  and  6 
are  two  frames  from  a  videotape  of  the  early  NFS 
experiments.  Figure  S  shows  the  experimental 
apparatus  and  Figure  6  shows  the  apparatus  during 
repetitive  detonation.  The  figures  also  show  the  fuel 
injector  ring  between  the  two  concentric  detonation 
chamber  cylinders.  It  was  determined  that  the 
duration  of  a  single  cycle  was  less  than  7  msec.  This 
means  that  the  NFS  device  could  have  potentially 
operated  at  frequencies  up  to  150  Hz  in  the  static  or 
no  flow  (M  »  0)  case.  At  the  time  of  the  NFS 
experiments,  performance  extrapolations  included 
thrust  levels  up  to  40  lbs  at  100  Hz.  As  desenbed 
later,  SAIC  simulations  of  static  operation  show 
higher  thrust  levels  at  these  frequencies  due  to  new 
ideas  and  improvements  in  the  PDE  concept.  These 
new  ideas  are  incorporated  in  the  generic  POE 
concept. 

The  Generic  PDE  Device 

In  this  section,  we  refer  to  the  generic  PDE 
device,  which  is  represented  as  a  small  engine  in 
Hgure  7.  The  figure  shows  a  schematic  of  the  basic 
detonation  chamber  attached  to  the  aft  end  of  a  generic 
aerooynamic  vehicle.  A  combustible  gas  mixture  is 
injected  at  the  closed  end  of  the  detonation  chamber 
and  a  detonation  wave  is  shown  propagating  through 
the  mixture.  Also  shown  are  air  injection  inlets  and 
an  important  part  of  the  device  that  we  have  termed 
the  thrust  wail.  The  schematic  suggests  a  small- 
payloaa  aerodynamic  vehicle;  however,  as  we 
describe  later,  die  concept  can  be  extended  to  larger 
payloads  simply  by  scaling  up  the  size  of  the 
detemation  chamber  and  possibly  combining  a  number 
of  chambers  into  one  lar^  engine. 

The  geometry  of  the  main  detonation  chamber, 
which  determines  the  propulsion  efficiency  and  the 
duration  of  the  cycle  (frequency  of  detonations),  is  a 
key  issue  for  the  PDE  concept.  Since  the  fresh 
charge  for  the  genetic  engine  is  supplied  from  the 
external  flow  field,  the  efficiency  of  the  engine 
depends  on  the  interaction  of  the  surrounding  flow 
with  the  internal  flow  dynamics.  Following  is  a 
partial  list  of  the  broad  range  of  physical  processes 
requiring  simulation  in  order  to  model  the  complex 
flow  phenomena  associated  with  the  detonation 
engine  performance: 


1.  Initiation  and  propagation  of  the  detonauon 
wave  inside  the  chamber; 

2.  Expansion  of  the  detonation  products  from 
the  chamber  into  the  air  suoam  around  ihe  chamber  at 
flight  Mach  numbers; 

3.  Fresh  air  intake  from  the  surrounding  air 
into  the  chamber. 

4.  The  flow  pattern  inside  the  chamber  during 
post-exhaust  pressure  buildup,  which  determines  the 
strategy  for  mixing  the  next  detonation  charge; 

5.  Strong  mutual  interaction  between  the  flow 
inside  the  chamber  and  the  external  flow  sunounding 
the  engine. 

All  of  these  processes  are  interdependent,  and 
inieracuon  and  timing  are  cnKial  to  engine  efficiency. 
Thus,  unlike  simulations  of  steady  state  engines,  the 
phenomena  desenbed  above  cannot  be  evaluated 
independently.  It  is  a  challenging  computational 
problem  to  resolve  the  flow  regime  inside  the 
chamber  to  account  for  nozzles,  air  inlets,  etc.,  and  at 
the  same  lime  resolve  the  flow  outside  and 
surrounding  the  engine,  where  the  flow  regime  varies 
from  high  subsonic,  locally  transonic  and  supersonic. 

The  single  most  important  issue  is  to  determine 
the  timing  of  the  air  intake  for  the  fresh  chai^  that 
leffils  to  repetitive  detonations.  It  is  sufficient  to 
assume  inviscid  flow  for  the  purpose  of  simulating 
the  expansion  of  the  detonation  products  and  £tesh  air 
intake.  The  assumption  of  inviscid  flow  makes  the 
task  of  numerically  simulating  the  PDE  flow 
phenomena  somewhat  easier  than  if  a  fully  viscous 
flow  model  were  employed.  The  effects  of  viscous 
boundary  layers  ate  negligible  for  the  size  of  the 
generic  device  studied  in  this  work,  with  the 
exception  of  possible  boundary  layer  effects  on  the 
valve  and  inlet  geomeoies  discussed  subsequently. 

SAIC  has  performed  an  extensive  study  of  the 
generic  PDE  over  a  wide  range  of  operating 
conditions  for  a  wide  range  of  device 
configurations.^®'^®  Numerical  simuialions  of  the 
unsteady  flow  and  detonation  processes,  in  addition  to 
theoretical  analysis,  have  resulted  in  an  understanding 
and  an  approach  to  analyzing  and  evaluating  PDE 
propulsion  performance.  Although  the  basic  concept 
remains  the  same,  there  are  subtle  differences  in  the 
PDE  manifestation  for  particular  applications.  These 
will  be  described  subsequently.  Details  of  the 
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numerical  simulaiions  (including  assumptions  used 
for  detonauon  wave  physics  and  chemistry,  use  of 
adaptive  unstructured  grids  and  Godunov  methods  for 
the  Euler  gasdynaroic  equations)  arc  given 
elsewhere.-^’^^  The  following  section  is  a  summary 
of  the  results  from  numerical  and  theoretical  studies 
of  various  applications  and  operating  regimes  for  the 
generic  PDE. 

5.  Operating  Regimes 

In  this  section  we  summarize  the  results  of 
several  applications  and  operating  regimes  identified 
in  the  course  of  our  smdies  of  the  PDE  concept. 

M  g  0  Static  Operation 

Under  static  conditions,  M  =  0,  the  POE  is 
completely  self-aspirating.  Such  was  the  case  for  the 
early  NPS  PDE  studies.  Without  an  external 
airsu-eam.  the  PDE  must  obtain  fresh  air  charge  as  a 
result  of  the  detonation  chamber  overexpan.,ion 
immediately  following  exhaust  of  air-fuel  detonation 
products.  To  the  lowest  approximation,  the  available 
time  for  chamber  refill  due  to  this  overexpansion 
process  is.  for  a  given  chamber  geometry  and  fuel-air 
combination,  directly  proportional  to  its  length.  For 
M  s  0  operation,  we  assume  that  the  PDE 
configuration  does  not  contain  any  air  inlets  other 
than  the  aft  end  of  the  device  or,  if  inlets  are  present, 
they  are  closed.  Simulations^^  of  M  s  o  PDE 
operation  show  that  the  time  required  for  fresh  air 
refill  for  a  device  with  dimensions  equivalent  to  the 
NPS  experimental  apparatus  is  on  the  order  of  6-7 
msec.  This  agrees  with  the  NPS  results  and  means 
that  a  maximum  frequency  of  ISO  Hz  should  be 
possible.  Simulated  thrust  levels  were  higher  than 
those  estimated  from  scaling  the  NPS  results.  This 
is  due  to  a  new  operating  scenario  that  was  uncovered 
by  the  simulations:  detonation  initiation  from  the  aft 
end  results  in  the  kinetic  energy  of  the  shock  wave 
being  transferred  to  the  thrust  wail.  The  amount  of 
extra  thrust  obtained  from  this  mode  of  operation  is 
considerably  larger  than  that  expected  from 
gasdynamic  expansion  following  detonation  initiation 
at  the  thrust  wall.  The  physical  reason  for  this  is 
found  in  the  shock  wave  energetics. 

The  importance  of  M  =  0  PDE  performance  is 
associated  with  applications  of  the  concept  for  full 
scale  aircraft  propulsion,  including  rollout  and 
takeoff.  Simple  scaling  laws  derived  from  the 
numerical  simulation  results  and  described  later,  show 
that  M  =  0  thrust  levels  can  be  large  (tens  of 


thousands  of  lbs.)  depending  on  the  engine  cross 
sectional  area,  length  and  detonauon  frequency. 

Subsonic-Transonic  Operation 

PDE  operation  in  the  subsonic- transonic  regime 
differs  from  the  staoc  case  in  that  the  seif  aspiration 
effect  decreases  with  increasing  Mach  numba.  This 
is  due  to  the  formation  of  a  rear  stagnation  point 
behind  the  exhaust  plane  above  certain  Mach  numbers 
for  given  geomenies.  The  stagnation  region  prevents 
complete  detonation  product  exhaust  and  subsequent 
fresh  charge  injection.  For  example,  over  the  Mach 
number  range,  0*  <  M  <  0.5,  full  to  partial  self 
aspiration  occurs;  the  effect  decreases  rapidly  fo^  Mach 
numbers  above  0.5,  resulting  in  the  need  for  some 
type  of  air  inlet  or  air  intake  valve  configuration. 
Simulations  of  various  detonation  chamber  and  air 
inlet  gcometries“^*2^  have  shown  that,  depending  on 
the  free-stream  Mach  number,  appropriate  shaping  of 
the  air  inlet  geometry  and  total  inlet  area  leads  to 
propulsion  engines  that  are  attractive  for  certain 
applications.  We  present  here  a  summary  of 
studies^^  carried  out  in  an  attempt  to  find  a 
satisfaemry  PDE  configuration  for  a  small  missile 
engine  (the  final  configuration  was  not  optimum,  by 
any  means,  since  all  variables  were  not  parametrically 
varied). 

A  PENAID-type  missile  with  associated  mission 
requirements  such  as  range,  speed,  system  wei^t, 
toi^  thrust,  and  specific  fuel  consumption  was  used 
for  the  study.  The  detonation  chamber  dimensions 
were  6  cm  diameter  and  9  cm  length  with  a  cylindrical 
cross-section.  A  schematic  of  PDE  integration  into 
such  a  missile  configuration  is  shown  in  Figure  8. 
The  simulations  showed  that,  for  practically  all  cases 
involving  simple  inlets  (circumferential  slits  around 
the  cylindrical  cross-section),  the  thrust  data  were 
independent  of  whether  the  inlets  open  intermittmitly 
(valved)  or  remain  open  during  operation.  This  is  due 
partially  to  the  very  short  time  that  detonation 
products  have  to  escape  from  the  inlets  thereby  adding 
to  negative  thrust;  this  negative  thrust,  determined  in 
the  simulations,  is  negligible  compared  to  the  total 
integrated  thrust.  The  thrust  data  do  indicate  a  suong 
dependence  on  external  flow  conditions,  e.g.,  Mach 
number.  The  Mach  number  plays  a  role  in  the  wave 
drag;  the  details  of  valve  and  inlet  configuration 
geometry  figure  prominently  in  the  total  wave  drag. 
These  studies  answered  an  important  question:  can  an 
air  inlet  be  configured  such  that  the  inlet  remains 
open  over  the  full  flight  regime  and  operating 
conditions?  The  answer  is  "y^s.  ”  Thus,  at  least  for 
this  regime,  the  PDE  offers  the  possibility  of  a  no- 
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moving'pans  propulsion  device.  For  the  PENAID 
missile  under  discussion  here,  a  configuration  was 
found  that  operates  between  0.2  <  M  <  0.9  with  open 
air  inlets. 

The  following  perfbnnance  data  were  obtained  for 
the  PENAID  missile  configuration.  For  M=0.8  at 
sea  level  altitude  and  a  detonation  frequency,  fslOO 
Hz,  the  PDE  characteristics  axe: 


Thrust, . ...79  lb. 

Fuel  flow  rate. . 0.025  lb7sec. 

Fuel  weight  for  12  min. . 18  lb. 

Oxygen  weight . 1 .8  lb 

Fud  for  detonation  tube. . 0.6  lb. 

Total  oxygen  and  fud  weight . 20.4  lb. 

Total  engine  weight . 30.2  lb. 

Specific  fud  consumption . ,1.14  lb./(lb.*hr.) 


Assuming  the  PDE  device  geometry  is  kept 
fixed,  a  higher  detonation  frequency  will  result  in  a 
linear  increase  in  thrust  and  fuel  flow  rate  at  the  same 
specific  fuel  consumption.  For  example,  if  the 
detonation  frequency  is  increased  to  200  Hz,  the 
performance  data  are: 


Thrust . ^57  Ib. 

Fud  flow  rate. . 0.05  Ib/sec. 

Fuel  weight  for  12  min. . 36  lb. 

Oxygen  weight . 3.6  lb. 

Fud  for  detonation  tube. . 1 .2  lb. 

Total  oxygen  and  fud  weight . ^-8  lb. 

Total  engine  wdght . 54.4  lb. 

Specific  fud  consumption. . ...1.14  lb70b-*hr.) 


At  lower  Mach  numbers,  MsO.5,  the  maximum 
openifing  firequendes  for  constant  thrust  will  be  lower 
the  external  dynamic  pressure  responsible  for 
supplying  fiesb  air  to  the  chamber  is  also  lower.  For 
the  device  under  consideration  here,  the  maximum 
frequency  is  250  Hz.  For  a  fiequcncy  of  100  Hr 


Thrust . 100  11>- 

Fud  flow  rate. . 0.025  Ib/sec. 

Fuel  weight  for  12  min. . 18  lb. 

Oxygen  weight . 1-8  lb. 

Fud  for  detonation  tube. . 0.6  lb. 

Total  oxygen  and  fud  weight . .20.4  Ib. 

Total  engine  weight . . . 30.2  Ib. 

Specific  fud  consumption, . 0.9  lb./(lb.*hf.) 


Again,  if  the  frequency  is  increased  the  thrust 
will  increase  linearly;  operation  at  200  Hz  yields; 


Thrust, . 200  lb. 

Fud  flow  rate, . 0.05  Ib/sec. 

Fud  weight  for  12  min . 36  lb. 

Oxygen  weight . 3.6  lb. 

Fuel  for  detonation  tube. . 1.2  lb. 

Total  oxygen  and  fuel  weight . -0.8  lb. 

Total  engine  weight . 54.2  Ib. 


Specific  fud  consumption . 10.9  :h.;(lb.*hr.) 

The  examples  of  the  PDE  device  performance 
given  above  are  based  on  point  design  conditions 
arising  from  the  simulations  repotted  earUer.26  jjjgy 
cannot  be  extrapolated  with  any  degree  of  reliability 
to  other  conditions  or  configurations.  We  conclude, 
however,  that  the  performance  computed  for  the 
indicated  device  is  encouraging  from  the  point  of  view 
of  thrust,  thrust  conuol,  simplicity  of  the  device  (no 
moving  parts),  and  specific  fud  consumption  (SFQ. 
The  specific  fuel  consumption  computed  above  is 
competitive  with  present  day  small  turbojet  engines. 
The  SFC  for  a  PDE  could  be  significantly  lower  than 
for  small  turbojets  (SFCs  for  small  turbojets  are  in 
the  range  of  1.8-2.0  IbVOb.^hr)).  Thus,  for  a  given 
mission  and  vehicle,  a  PDE  propulsion  unit  may  be 
more  fuel  efficient,  resulting  in  increased  range. 
Moreover,  if  the  expected  thrust  control  in  PDE's  is 
realizable,  it  may  be  possible  to  produce  propulsion 
units  that  can  slow  down,  loiter  and  maneuver,  and 
finally  accelerate  to  full  thrust  again  rapidly. 
Depending  on  the  detonation  frequency,  which 
determines  the  thrust  for  all  other  conditions  fixed, 
the  thrusi-to-wcight  ratio  for  the  PDE  can  be  as  high 
as  20:1.  This  value  is  certainly  compeuuve  with 
other  propulsion  concepts. 

The  results  of  the  scaling  studies  at  subsonic* 
transonic  speeds  lead  to  scaling  laws  that  can  be  used 
to  predict  the  performance  of  PDE's  over  some  range 
of  parameters,  assuming  that  other  parameters  are  hdd 
fixed.  For  example,  holding  the  external  Mach 
number  and  basic  chamber  and  inlet  geometry  fixed 
suggests  that  the  thrust  at  constant  specific  fuel 
consumption  produced  by  the  PDE  scales  as: 

Where  Ti.  (v/vi)  and  (f/fi)  are  the  thrust  computed  for 
a  chamber  of  volume  vi  operating  at  frequency  fi,  the 
ratio  of  a  new  volume  to  vi  and  the  ratio  of  the  new 
frequency  to  fi,  respectively.  Thus,  thrust  should 
scale  linearly  with  the  parameter  (v/vi)  •  (f/fl)  ova 
some  range  of  this  parameter.  Departure  from  this 
linear  variation  may  occur  due  to  the  following 
argument:  First,  since  volume  is  proportional  to  the 
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product  of  cioss-scctional  area  and  iengdt,  v  -  r^l,  (r  -» 
detonation  chamber  radius,  1  -  chamber  length) 
physical  limits  will  be  placed  on  r  and  1:  if  r  is  too 
small  (less  than  1  cm),  a  detonation  will  not  be 
sustainable  and  if  1  is  too  small  (less  than  10  cm),  it 
may  be  difficult  to  mix  fuel  and  air  effectively. 
Using  the  thrust  relation  established  above,  we  make 
the  following  observations.  For  a  POE  device 
producing  100  pounds  thrust  at  100  Hz,  doubling  the 
frequency  and  increasing  the  volume  by  a  factor  of  S 
yields  a  thrust  level  of  10(X}  pounds.  Assuming  that 
the  aspect  ratio  of  the  chamber  (chamber  length  to 
radius)  is  fixed,  this  would  require  an  engine  only 
2S.5  cm  in  diameter  and  2S.S  cm  in  length.  Of 
course,  the  relation  between  thrust  and  (v/vi)  •  (f/fi) 
cannot  be  believed  over  too  wide  a  range  of 
parameters;  but,  it  does  serve  to  point  out  the 
flexibility  permitted  by  the  PDE  concept 

The  subsonic-transonic  simulations  showed  that 
the  liming  of  the  fresh  air  refilling  required  to 
recharge  the  chamber  for  subsequent  detonations  is  a 
strong  funcuon  of  the  details  of  the  valve  and  inlet 
geometry,  the  expansion  of  the  combustion  products, 
the  resulting  over-expansion  of  the  chamber  flow,  and 
the  external  flow  regime  and  interaction  of  the 
external  flow  with  the  internal  flow.  For  subsonic 
flight,  Mach  0.2-0.9,  the  fresh  air  entering  the 
chamber  comes  firom  two  separate  principal  flow 
processes;  one  comes  from  the  flow  through  any 
valve  or  inlet  and  the  other  comes  from  the  self- 
aspiration  or  reverse  flow  from  the  aft  end  of  the 
chamber  due  to  strong  over-expansion.  All  these 
processes  are  interdependent  and,  in  order  to  search  for 
a  given  performance  in  a  given  device,  require 
variation  of  many  parameters.  The  simulation  results 
obtained  to  date  provide  an  understanding  of  the 
effects  caused  by  variation  of  the  above-mentioned 
parameters.  With  the  information  available,  we 
conclude  that  a  PDE  propulsion  unit  can  be  optimized 
(although  no  optimization  studies  were  carried  out) 
for  a  given  flight  regime.  The  decrease  in  thrust  with 
increasing  Mach  number  has  been  described  earlier  to 
result  from  increased  wave  drag  produced  by  the  inlet 
geometry.  Optimization  of  the  inlet  geometry  couid 
help  to  eliminate  a  large  part  of  the  wave  drag.  The 
simulation  data  can  be  used  to  determine  the 
detonation  frequency  at  a  given  Mach  number  yielding 
constant  thrusL  For  example,  for  a  constant  thrust 
level  of  90  pounds,  the  required  detonation  frequency 
varies  from  84  Hz  at  M-0.0  to  140  Hz  to  M=0.8.  In 
?  similar  fashion,  we  can  obtain  parametric  variations 
of  other  important  aspects  of  PDE  performance,  such 
as  minimum  time  for  refill  at  given  Mach  number  as 


a  funcuon  of  air  inlet  opening.  To  find  an  optimum 
configuration  that  satisfies  given  performance  over  a 
wide  flight  regime  requires  a  more  extensive 
simulation  study.  It  was  menuoned  earlier  that  the 
simulations  presented  here  were  canted  out  under  the 
assumption  of  inviscid  flow;  boundary  layer  effects 
were  not  included.  Boundary  layers  are  only 
significant  for  the  air  inlets  and  valves. 

There  is  an  important  feature  of  PDE  operation 
for  missiles  such  as  the  one  considered  here:  if  the 
expected  thrust  control  is  attainable,  then  the 
detonation  frequency  can  be  varied  to  produce  constant 
thrust  over  a  given  flight  envelope,  or  the  frequency 
can  be  varied  to  make  the  missile  slow  down,  loitu: 
and  maneuver,  and  finally  ramp  back  to  full  thrust 
more  or  less  instantaneously.  Since  each  detonation 
is  controlled  separately,  this  capability  should  depend 
only  on  on-board  electronics  and  power. 

Supersonic-Hypersonic  Qneration 

Numerical  simulations  have  been  carried  out  for 
PDE  operation  in  the  supersonic  and  hypersonic 
flight  regimes.^^  The  results  of  these  simulations 
show  that  there  are  differences  when  compared  with 
the  lower  speed  regimes.  The  main  difference,  with 
respect  to  operating  characteristics,  is  the  air  intake 
inlet  must  be  more  carefully  considered.  For 
supersonic  and  hypersonic  flow  air  scoops  may  be 
required,  adding  to  wave  drag.  For  PDEs  enclosed  in 
a  duct  connected  to  upstream  air  inlets,  pressure 
recovery  from  free-stream  to  duct  inlet  and  finaly  to 
PDE  inlet  must  be  accounted  for.  To  date,  several 
detailed  studies  have  been  carried  out  for  the  higher 
speed  regimes:  a  supersonic,  M  =  2  PENAID  missile 
engine  simulation  and  a  sizing  analysis  for  a  large 
engine  operating  in  the  supersonic  to  hypersonic 
flight  regime. 

Supersonic  M  =  2  PDE  The  M  =  2  Pl^AID 
missile  study  has  been  reported  eariier^^  and, 
representative  simulation  results  are  shown  on  the 
cover  of  this  review  paper.  It  was  found  that  a  fixed 
air  inlet  geometry  could  be  conceptualized  to  operate 
over  the  Mach  number  range,  0.5  <  M  <  2.  By  this 
is  meant  the  timing  for  fresh  air  charge  allowed  a 
detonation  frequency  of  200  Hz  at  M  =  2  and  this,  in 
turn,  means  that  any  lower  frequency  is  allowable  at 
any  other  Mach  number  below  M  =  2.  Detonation 
frequency  control  may  result  in  enhanced  control  over 
missile  flight  trajectory  since  a  constant  thrust,  a 
cruise-dash-loiter-cruise  or  any  other  tailored  thrust 
profile  can  be  realized.  We  conclude  that  supersonic 
PDE  operation  appears  possible  for  missile 
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applications,  and  there  may  also  be  advantages  for 
longer  range  air-to-air  missiles  due  to  enhanced 
propulsion  energy  management  capability. 

Sizing  Analysis  for  Large  PDEs  A  zeroth  order 
sizing  analysis  has  been  caiiied  out  to  define  and  size 
a  PDE  configuration  satisfying  high  thrust  level 
requirements  from  sea  level  to  30.000  ft  altitude  and 
for  a  flight  trajectory  including  the  Mach  number 
range,  0  <  M  <  4.  The  nominal  target  thrust  level 
was  30,000  pounds  and  we  assume  that  the 
aiicraft/engine  integration  requires  an  air  inlet  duct  to 
deliver  fresh  air  to  the  PDE.  We  sketch  here  an 
outline  of  the  analysis  and  give  the  main  results. 

We  use  the  simple  scaling  argument  given  and 
use  the  thrust  data  obtained  firom  simulations  of  the 
smaller  missile  configurations.  We  also  assume  a 
nominal  detonation  frequency,  f  =  100  Hz.  We  then 
establish  the  following  baseline  POE  performance 
operating  point.  At  3x10^  ft.  altitude  for  M  »  2  the 
thrust  in  pounds  per  cubic  meter  detonation  chamber 
volume  is  2.5x10^  Ibs/m^.  Therefore,  an  engine 
producing  5x10^  pounds  thrust  requires  a  2  m^ 
chamber  volume.  The  sizing  study  answers  the 
following  questions  :  what  is  the  size  and  shape  of 
the  detonation  chamber,  required  detonation  chamber 
air  inlet  areas,  frequency  variation  range,  and  effect  of 
air  inlet  dua  losses  on  a  PDE  developing  the  nominal 
target  thrust? 

We  denote  free-stteam  conditions  by  ( }o,  PDE 
air  inlet  conditions  by  (  )2,  and  PDE  detonation 
chamber  conditions  by  ( )3.  To  account  for  air  inlet 
duct  losses  we  define  the  ratio  of  PDE  inlet  total 
pressure  to  free-stream  total  pressure  by  C  on 

=  C.  (1) 

The  simplest  condition  to  assume  for  the  PDE  air 
inlet  is  choked  flow.  Although  this  is  not  valid  over 
much  of  the  required  regime,  certainly  not  for 
subsonic  external  flow,  it  will  result  in  a  pessimistic 
bound  on  the  sizing  parameters.  Using  well  known 
gasdynamic  analysis^^  the  stadc  and  total  pressures 
and  density  at  the  PDE  inlet  can  be  found  as: 
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The  mass  flow  rate  through  the  engine  inlet  is: 
m  =  P2  U2  A  2,  (S) 

and,  using  equations  2-4,  gives: 


m2=Aj 


1.2  Y  C 


V 


An  equation  for  the  area  ratio  A2/A3  can  be  found  as: 


(7) 


where  M2  has  been  set  equal  to  unity.  Our  analysis 
does  not  include  the  thermodynamics  of  the  PDE 
cycle;  the  sizing  analysis  is  based  totally  on  a 
detaminadon  of  the  allowable  detonadon  frequencies 
in  the  PDE  chamber.  We  obtain  a  bound  on  allowable 
flow  speeds  in  the  detonadon  chamber  by  requiring 
the  detonadon  chamber  to  refill  in  the  time  between 
f<»tnnarinng  We  further  require  the  fuel  to  mix  and 
flow  with  the  mean  speed  U3  from  inlet  to  chamber 
exit,  a  distance  equal  to  L.  the  chamber  length.  Thus, 
we  obtain  the  relation  U3  »  f  L,  where  f  is  the 
detonadon  frequency.  A  calculadon  of  M3  gives: 


Since  the  total  pressure  in  the  chamber  equals  the 
total  pressure  at  the  PDE  inlet,  the  stadc  pressure  in 
the  chamber  as  a  funedon  of  chamber  Mach  number, 
given  in  Eq.  (8),  can  be  related  to  the  free-stream 
stadc  pressure  as  foUows: 


where  Cl  is: 


€ 
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Another  relation  between  P3  and  Pq  as  a  function  of 
M3  can  be  given  as: 

7  -T. 

P3=CPo(^l  +  ^j  (10) 


Equations  (7).  (9)  and  (10)  form  a  closed  set  for  the 
variables  P3.  A2/A3  and  M3  with  parameters  C.  Po, 
Mq,  L,  f,  Tq,  g,  and  R,  the  universal  gas  constant. 
The  volume,  V,  of  the  detonation  chamber  is  given 
by  the  product,  V  =  L  A3.  Thus,  for  a  given  volume. 
Equations  (7),  (9).  and  (10)  can  be  solved  for  A2/A3 
versus  L  or  A3.  Figure  9  gives  a  schematic  of  the 
PDE  showing  the  air  inlet  gap  width  "1"  resulting  in 
an  inlet  area  of  A2,  the  detonation  chamber  length  L. 
and  the  chamber  cross-sectional  area  A3.  We  choose 
first  a  square  chamber  cross-section;  the  total  inlet 
area  is  therefore  given  by  the  expression  A2  =  41  ( 
A3  Results  obtained  from  solving  Eqs.  (7),  (9) 
and  (10)  are  presented  in  Figure  10  for  the  baseline 
conditions.  There,  the  area  ratio,  A2/A.’l,  is  given 
versus  A3.  If  A3  is  chosen  to  be  1.2  then  the 
length  of  the  PDE  is  1.67  m  and  the  engine  inlet 
opening  is  IS  cm.  Also  shown  in  Hgure  10  is  the 
effect  of  C.  the  pressure  recovery  factor.  The  range  of 
values  chosen  for  C  was:  0.7  <  C  <  1.  The  effect  of 
C  is  negligible  for  the  range  studied  here.  More 
realistic  estimates  for  duct  losses  resulting  in  much 
lower  values  of  C  at  high  Mach  numbers  may  well 
have  a  more  pronounced  effect.  If  the  cross-sectional 
area  is  held  fixed,  Eqs.  (7),  (9)  and  (10)  yield  the 
results  shown  in  lugure  1 1.  The  curve  cannot  be 
extended  below  M«  1  since  the  assumpdon  of  chdced 
flow  at  A2  is  not  valid;  indeed,  the  assumption  is  not 
valid  somewhere  before  M  »  i  due  to  duct  loss 
effects.  The  results  from  Figure  1 1  can  be  translated 
into  inlet  gap  widths  as  shown  in  Figure  12.  Figure 
12  shows  a  range  of  inlet  openings  that,  when 
compared  with  the  total  engine  length,  is  equivalent 
to  8-12%  of  the  total  engine  length.  Below  M  s  1,  a 
combination  of  seif-  aspiration  and  recharge  from  air 
inlets  must  be  considered  depending  on  Mach 
number.  For  self-aspiration  at  M  s  0,  the  ratio  of 
A2/A3  is  unity;  the  inlets  are  not  needed.  For  Mach 
numbers  between  zero  and  say,  O.S,  partial  air  inlet 
opening  is  required  and  for  Mach  numbers  greater  than 
0.5,  the  inlets  will  be  fully  open.  For  a  fixed  PDE 
configuration,  varying  the  detonation  frequency 
changes  the  thrust  according  to  the  scaling  law  given 


earlier.  Figure  13  shows  the  effect  of  frequency 
variation  on  A2/A3.  Recall  the  design  point  was  at  f 
«  1(X)  Hz.  Figures  10-13  contain  the  aitswers  to  the 
questions  asked  during  this  sizing  analysis;  reasonable 
physical  sizes  for  PDEs  developing  high  thrust  levels 
are  predicted.  A  more  rigcaous  analysis  is  required  to 
validate  these  predictions. 

To  conclude  this  section,  we  show  the  variation 
of  thrust  as  a  function  of  chamber  volume  derived 
from  the  baseline  conditions  used  above.  Figure  14 
gives  this  variation  and.  if  a  circular  cross-section 
engine  is  considered,  varying  the  baseline  thrust 
yields  engine  sizes  shown  in  Figure  15.  For 
example,  a  45.000  pound  thrust  engine  1.67  meters 
long  has  an  engine  diameter  of  1.2  meters.  This 
number  is  not  unreasonable  and  compares  well  with 
sizes  of  current  turbojet  engines.  As  mentioned,  a 
more  detailed  analysis  of  PDE  performance  is  needed, 
including  an  effective  'steady  state"  theimodynmnic 
cycle  model,  to  validate  the  PDE  as  a  credible 
alternative  for  high  thrust  propulsion  engines. 


6.  Summary  and  Conclusions 

Past  and  recent  studies  have  shown  that  pulsed 
propulsion  devices  theoretically  offer  significant 
advantages  over  steady  state  engines.  The  advantages 
range  from  the  possibility  of  a  no-moving-parts 
configuration  to  high  thermodynamic  efficiency 
constant  volume  cycles.  Numerical  simuiatums, 
theoretical  analysis  and  scaling  studies  of  PDE 
performance  have  shown  applicability  to  mmty 
diffetent  flight  vehicles  including  small  missiles  and 
full  scale  aircraft  Configurational  flexibility  offered 
by  the  PDE  include  non-circular  cross-sectional 
detonation  chambexs  allowing  ccmsideration  of  unique 
aircraftfengine  integration  possibilities.  Thus,  the 
numerical  simulation  and  theoretical  studies  of  PDE 
performance  to  date  have  shown  interesting  and 
important  propulsion  aiqtlications. 

In  order  to  realize  the  PDE  potential, 
experimental  data  is  required  to  validate  the  theoretical 
predictions  and,  most  importantly,  provide  a  proof  of 
principle  demonstration  of  the  PDE  mode  of 
operation  described  in  this  paper,  namely,  detoimtion 
initiation  from  the  exhaust  end  of  the  engine.  The 
principle  of  sustained  repetitive  detonation  has  already 
been  demonstrated  in  the  NFS  experiments,  but.  this 
took  place  at  the  inner  thrust  wall.  The  next  step  in 
the  development  of  practical  PDE  devices  requires  a 
comprehensive  experimental  program  where  such  key 
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issues  as  detonation  initiation,  air  iniet  design 
including  boundary  layers,  fuel/air  injection  and 
mixing  can  be  studied  and  understood.  In  addition, 
thrust  measurements,  both  static  and  in  an  external 
flow  arc  required  to  validate  the  numerical  and 
theoretical  predictions.  Plans  for  such  an 
experimental  program  are  presently  under 
consideration. 
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Figure  i .  Valveless  propulsive  duct  concept  due  to 
Thsrjatt. 


Figure  3.  Schematic  of  the  Hoffmann  •  NichoUs  • 
Krzycld  detonation  tube  expeiimeatal 
appaiams. 


Figuie2.  Supersonic, M« 3 omceptnalizationof 
the  propulsive  duct 


Figure  4.  Schematic  of  the  Helmart  Shreeve, 

FM^imnn  PDE  expehmeatai  coafiguatKia 
&om  the  NFS  studies. 


Figure  5.  The  PDE  experimental  apparatus  used  in  the  NFS  suidics. 


Figure  6.  The  PDE  experiment  during  rcpeuiivc  detonation. 


Figure  10.  Results  for  A2/A3  as  a  fimcdon  of  A3. 

The  results  arc,  for  the  chosen  conditions, 
independent  of  pressure  recovery. 


Hgure  8.  Schematic  of  PDE/PENAIO  missile 
integration. 


Figure  9.  Schematic  of  PDE  describing  key  sizing 
variables. 
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Figure  1 1.  Results  for  A2/A3  as  a  function  of  Mach 

number. 
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Figure  12 ,  Results  for  inlet  gap  width,  1.  as  a  function 
of  Mach  number. 
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Figure  13.  Results  for  A2/A3  as  a  function  of 
detonation  frequency. 


Figure  15 .  POE  engine  radius  (cyiindr^  cross- 
secdoni  versos  engme  length. 


Hgure  14.  POE  thrust  versos  deionadon  chamber 
vofanueata  givai  frequency,  f  » 100  Hz. 
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Synthesis  of  Nanoscale  Materials  Using  Detonation  of  Solid  Exoiosives 


Shmuel  Eidelman  and  Anatoly  Altshuler 
Science  Applications  International  Corporation 
McLean,  Virgima  22102 

Abstract 

Direct  synthesis  of  nanophase  materials  in  detonations  is  considered.  Article  discusses  a  number 
of  methods  that  can  lead  to  formation  of  super  saturated  states  of  media  that  in  turn  will  prestpitate  as 
nanoscale  particles  when  the  detonation  products  are  quenched  in  the  expansion  process.  Several 
examples  are  given  of  reactions  that  will  lead  to  production  of  nanophase  particles  of  metals,  oxides, 
diamond  and  other  unique  materials.  It  is  shown  that  conditions  of  nucleation  and  growth  of  nanoscale 
material  can  be  analysed  using  advanced  methods  of  computer  simulation  of  detonanon  and  blast  wave 
phenomena.  A  sample  of  this  kind  of  simulations  is  given.  It  is  concluded  that  detonatrve  synthesis  of 
nanophase  material  can  lead  to  low  cost  technology  that  will  produce  a  range  of  unique  materials. 

I.  Introduction 


Recent  enhanced  interest  in  nanoscaie  materials  is  merited  by  the  discovery  of  a  set  of 
unconventional  material  properties  in  the  form  of  particles  that  are  less  than  10  nm  in  size.  Anomalous 
chemical  activity,  lower  cridcai  temperatures  of  oxidatimi  and  sintering,  sintering  of  composite  materials 
with  manifold  increase  in  tensile  strength,  and  sintering  unique  semiconducting  and  ferromagactie 
materials,  have  all  been  demonstrated  for  nanoscale  materials.  This  wide  range  of  applications  makes 
nanosize  materials  an  extremely  interesting  and  important  material  state  that  is  the  subject  of  intense  study 
by  many  researchers. 

The  synthesis  of  nanoscale  materials  is  accomplished  through  methods  such  as  ion-sputterii^  and 
ion-deposition,  laser  Elation,  evaporation  and  condensation  in  a  vacuum,  solgel,  electropredpitatioa,  and 
plasma-jet  techniques.  Each  of  these  techniques  has  produced  2-10  am  particles  of  various  matstials; 
however,  the  yield  of  such  processes  is  extremely  low  and  the  cost  of  materials  obtained  is  very  high. 

In  this  aiticie  we  will  consider  detonadve  synthesis,  a  method  of  nanosizrt  materials  synthesis  that 
offers  an  alternative  to  other  more  costly  methods  of  production.  Detonative  syirthesis  is  extremely 
advantagemis  because  it  allows  very  high  pressure  and  temperature  conditions  to  be  created  using  low  cost 
explosive  materials  and  simple  processing  equipmenL  The  synthesis  occurs  directly  in  the  plasma  created 
by  the  detcmatimi  wave.  Conditi<ms  for  detonative  synthesis  can  be  modified  by  changing  the  physical  and 
chemical  conditicms  of  the  detonation  wave  and  expanding  detonative  products.  For  example,  for  nanoscaie 
diamond  powder  synthesis,  rapid  expansion  and  cooling  of  the  detonatimi  products  are  requited  to  prevent 
diamond  graphitizadon.  Thus,  the  explosive  charge  and  atmosphere  surrounding  it  should  be  designed  to 
create  these  conditions. 

In  the  follovsdng,  we  will  review  a  range  of  conditions  necessary  for  nanosize  material  synthesis 
that  ts  provided  by  detonative  synthesis  methods,  and  examine  their  applicability  for  specific  materials. 
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2.  Detonation  Wavea  as  Generators  of  High  Energy  Density  Plasmas 

Detonations  are  reactive  wave  phenomena  m  which  a  reaction  is  initiated  by  the  shock  waves 
propagating  at  supersonic  speeds  through  an  explosive  mixture.  This  wave  consists  of  a  shock  wave 
discontinuity  followed  by  a  narrow  zone  of  homogeneous  chemical  reaction.  The  shock  wave  compresses 
the  explosive  from  its  initial  state  with  pressure  Pq  and  density  pQ  to  the  shocked  state  P3  p,,  with 
subsequent  reaction  of  explosive  in  the  reaction  zone  that  extends  up  to  the  Chapman-Jouguet  (CJ)  state. 

Condensed  Explosive  Detonarions 

Table  I  gives  some  t\pical  parameters  for  detonation  waves  in  solid  explosives.  We  can  see  from 
this  data  that  temperatures  of  about  3000  C  at  pressures  of  30  GPa  are  typical  for  solid  explosive 
detonations.  These  parameters  create  extremely  oversaturated  conditions  for  some  detonation  prcxhtcts. 
Subsequent  ultra-fast  quenching  can  lead  to  synthesis  of  nanophase  material.  Behind  the  detonatiim  wave 
reaction  zone,  temperatures  and  pressures  are  high  and  detonation  products  will  usually  contain  various 
active  chemical  components.  It  is  challenging  in  this  environment  to  preserve  nanosize  material  from  further 
reaction. 


TABLE  I 

Some  Typical  Conditions  for  Detonation  of  Solid  Explosives  ( 1 ) 


Pressure 

Temperature 

D  velocity 

GPa 

“K 

m/sec 

TNT,  p=l.6  g/cm^ 

20.6 

2940 

6950 

ROX,  p=1.8g/cm^ 

34.7 

2390 

8750 

HMX,  p=1.9  g/cm^ 

39.5 

2364 

9160 

PbN3^  p=4.0  g/cm^ 

23.1 

2660 

5000 

Multi-Phase  Detonations 

Multi-phase  detonations  can  cover  a  range  of  conditions  between  gaseous  and  condensed  material 
detonadcHis.  Multi-phase  detonable  mixtures  can  be  composed  of  solid  or  liquid  fuel  particles  dispersed  in 
gaseous  oxidizer,  solid  particles  of  explosive  material  dispersed  in  gas,  gaseous  explosive  mixture  mixed 
with  the  inert  or  reactive  liquid  phase  (2),  or  explosive  slurries.  All  these  possible  methods  of  generatii^ 
detcmation  waves  greatly  extend  the  range  of  amdidons  available  for  material  synthesis.  It  should  be  iKNed 
that  there  is  a  difference  in  the  character  of  condensed  explosive  detonadon  and  gaseous  detonadmis.  Widt 
ctHideased  explosives,  high  rate  decomposidon  reacdons  usually  take  place.  For  gaseous  detcmadons, 
reacdons  can  be  characterized  as  detonadve  combusdon.  Muid-phase  detonadons  can  be  based  on 
detonadve  combusdon,  hi^  rate  decomposition,  and  combinadons  of  these  processes. 

Nonstandard  Regimes  for  Detonanve  Reaction 

A  classical  seif-sustained  detonadon  wave  has  a  fixed  wave  structure  that  moves  through  the 
explosive  with  constant  velocity.  In  a  self-sustained  detonation,  a  balance  is  achieved  between  the 
compression  work  of  the  shock  wave  and  energy  released  in  the  reaction  zone.  If  a  self-sustamed  detonadem 
is  possible  in  a  given  explosive  mixture  at  given  inidal  conditions,  it  will  propagate  with  a  constant  speed. 
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However,  for  many  important  reactive  mixtures  tt  is  either  very  difficult  or  impossible  to  obtain  a  self- 
sustained  detcHiation  wave. 

Over  the  last  forty  years,  many  nonstandard  detonation  regimes  have  beat  discovered  that 
significantly  reduce  the  restrictive  limitations  of  the  classical  self-sustained  detonation.  The  following  is  an 
incomplete  list  of  the  detonation  regimes  that  significantly  deviate  frtnn  the  classical  self-sustained 
detonation  wave: 

a.  Transient  detonation  (forms  whoi  a  deflagration  wave  undergoes  transition  to  detonation); 

b.  Overdriven  detonation  (compression  work  of  the  leading  shock  is  partiaily  sustained  by  an 
external  source  of  ene^); 

c.  Spinning  detonation  (formed  by  small  number  of  detonative  combustion  fronts  that  propagate 
thiouc^  the  mixture  by  spinning); 

d.  Multi-layer  detonation  (propagates  in  layers  of  explosives  where  the  detonation  wave  in  ok 
layer  can  lead  to  lateral  initiation  of  an  overdriven  detonation  wave  in  the  adjacent  layer); 

e.  SWACER  (Shock  Wave  Amplification  by  Coherent  Energy  Release)  detonation; 

f.  Light  supported  detonation  (detonation  front  is  supported  by  a  laser  beam  heating  the  area 
behind  the  shock  front). 

All  these  possible  regimes  for  initiating  and  sustaining  detonation  waves  allow  substantial  flexibility  in 
adapting  a  detonative  process  for  the  purpose  of  material  synthesis. 

3.  Detonative  Synthesis  Chemistry  for  Nanophasc  Materials 

The  elementary  composition  of  known  explosives  is  quite  limited.  The  most  common  class,  CHNO 
explosives,  produces  only  one  condensed  phase  under  normal  thermodynamic  conditions  -  ultra  fine  carbon 
(1); 

C^H,NMRDX)^3H.p  + 1. 49CC?j  +  0.022  •  CO + 3N^  + 1.49^,, 
C.,H,Np,(jm)^2,5Hp+\.66CO:,  +0.188-CO  +  0.001.  AWj  +  1.5i^j  +5.15C(^, 
C,H^NPt{HMX):±4’Hp-^2COi  +0.008-CO+4A^j  +2q„ 

These  reaoions  have  the  following  yield  limits  for  solid  phase  carbon;  9%  for  RDX  or  HMX,  and  29%  for 
TNT. 

More  "exotic”  BCHNO  explosives  can  decompose,  which  produces  solid  BN  or  B2O3  For  example,  the 
powerful  explosive  Bl0^^i00C5.75Nl5Q30»  decomposes  with  the  26%  yield  of  BN  by  weight,  while  less 
hydn^enized  BioH|gC5  75NJ5O30  produces  primarily  B2O3  with  34%  yield. 

From  the  point  of  view  of  chemical  productivity,  the  most  promising  class  of  explosives  is  presented  by 
acetylides  and  azides.  For  example,  explosive  decomposition  of  silver  acesyiide 

■^2C  +  %lkcal ! mol)  generates  a  90%  silver  yield.  A  more  powerfiil  explosive 

decomposition  of  AgP^- AgNO^z±^Ag{yapor)-¥C02+CO-^Q.SN2  +  \^^kcallTnol ,  gives  80% 
silver  yield  but  much  finer  dispersity  is  expected.  The  decomposition  of  silver  acetylides  is  interesting  to 
compare  with  a  silver  azide  explosion,  2Ag{N^)z±2Ag{v)-^3N,  ,  with  a  respective  yield  of  silver  on 


the  order  of  72%  by  weight.  Over  two  dozen  metals  form  explosive  azides,  while  explosive  acetylidcs  are 
less  common.  Amrnig  the  most  mteresting  azides  for  nanosize  powder  production  arc  explosive  azicks  of 
cobalt,  gold,  strontium,  and  platinum.  The  main  challenge  in  producmg  nanophase  metals  by  explosive 
decomposition  of  azides  or  acetyiides  will  be  to  assure  rapid  quenching  of  nanoscale  phase  comptxiems  of 
the  explosive  products. 

Loaded  Explosive  Synthesis 

Explosive  compositions  are  unknown  for  some  chemical  elements,  as  in  the  case  of  aluminum.  The 
most  obvious  solution  is  to  mix  the  explosive  carrier  with  the  powder  or  liquid  form  of  the  desired 
chemical.  There  is  already  a  substantial  history  of  adding  aluminum  powder  to  explosives  in  order  to 
increase  their  performance.  It  has  been  esttfolished  that  at  a  grain  size  of  several  microns,  aluminum  does 
not  have  time  to  sublimate  in  the  detonation  wave  reaction  zone;  thus,  it  will  not  affect  the  reaction  rates. 
On  the  other  hand,  detonauon  energies  and  temperatures  are  high  enough  to  evaporate  a  substantial  amount 
of  additive.  In  order  to  overcome  the  diffusion  barrier,  we  are  considering  mixing  a  melted  explosive 
carrier  with  a  liquid  aluminum  compound  like  AlBr3,  which  has  a  melting  point  of  97°C  and  comparatively 
low  evaporation  energy  and  temperature.  Alummum  azide  is  also  a  possibility. 

The  same  approach  can  be  implemented  in  the  loaded  explosive  synthesis  of  the  nanoscale  Hf.  In 
this  case,  we  can  use  detCHiation  mixture  of  H£(BH4)4  and  an  explosive  carrier.  Similarly,  Ir  can  be 
produced  using  an  IrFg  load:  Pu  usii^  a  PuFg  load:  Re  using  a  ReFg  load:  U  using  an  LfFg  load;  W  using 
a  WCI^  load;  V  using  a  VF5  load;  Ti  by  means  of  a  TiCl4  load,  etc.  The  reduction  of  metals  in  ail  these 
cases  is  taking  place  both  physically,  as  the  result  of  shock-temperamre  dissociation  of  molecules,  and 
chemically,  by  ionized  hydrogen  and,  in  some  cases,  lithium  vapors. 

For  carbon  synthesis,  loading  the  e^qilosives  cited  above  with  benzol  l^iexadecen 

(C16H32),  hexacozan  (C26H54),  dibenzyl  (Ci4H|4)  etc.,  can  greatly  increase  the  yield  of  carbcm  without 
substantially  diminishing  the  enei^etic  characteristics  of  detonation.  For  example,  a  mixture  of  benzol  with 
HMX  on  mol  to  mol  basis  will  decompose  in  the  detonative  reaction  as  follows: 

This  reaction  yields  30%  by  weight  of  solid  carbon  that  has  a  potential  to  be  preserved  in  nanoscale  form. 

All  these  examples  illustrate  that  the  loading  of  explosives  for  nanophase  material  synthesis 
expands  the  range  of  opportunities  beyond  the  synthesis  that  results  £rom  the  detonative  decompc^itioa  of 
explosives. 

Phase  Composition  of  Synthesis  Products 

The  crystalline  structure  of  nanoscale  powders  obtained  from  detonation  generally  cc  '::sp<Hids  to 
high-pressure  modifications  of  the  solids.  This  is  the  result  of  hi^  temperature  and  hi-  pressure 
conditions  in  the  detonation  wave  reaction  zone  and  subsequent  ultra-fast  quenching  and  oling  of 
detonation  products.  In  the  case  of  carbon,  diamond  is  formed.  The  phase  diagram  for  carbon  shc  -vu  below 
easily  illustrates  this  point.  Area  marked  with  number  1  on  the  phase  diagram  reflects  parameters  typical 
for  detonation  of  HMX,  while  the  area  marked  with  2  corresponds  to  detonation  of  TNT.  a  is  quite 
obvious  from  Figure  1  that  the  detonation  of  TNT  cannot  produce  diamond,  while  the  dwtonation  of  HMX 
brings  all  condensed  carbon  mto  diamond  form. 
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The  same  situaticm  occurs  with  the  synthesis  of  BN,  when  expi<»ive  decomposhian  of  bmtn  ariA- 
B(N3)3  produces  hexagonal  modification  of  BN,  while  powerful  BCHNO  explosives  can  produce  BN  with 
cubic  s^erite  structure.  Other  compounds  that  can  be  t^tained  include  interesting  compositioas  as 
Zr02,  HfC,  and  WC,  sometimes  in  their  metastable  modifications.  Much  more  diverse  are  crystalline 
modifications  of  nanoscale  metals.  In  cases  tike  Gadolinium  (Gd)  and  Samarium  (Sm),  five  Hiffrnat 
stmcture  modifications  could  be  obtained  as  a  result  of  different  experimental  conditions. 
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Hgure  1.  Caibon  phase  diagram  schematics. 

Nucleation  and  Growth  of  Nanophase  Material  Behind  the  Detonation  Waves 

We  have  discussed  above  the  detonatitm  wave  stiuctuxe  in  solids.  We  made  important  assatopdoos 
in  our  previous  analysis  r^arding  diemical  equilibrium  and  physical  stationarity  of  the  procesKS  on 
detonation  fiont  The  characteristic  tinm  of  typical  explosive  deccmposition  reactions  umier 
conditions  in  solid  explosives  lies  in  the  nmge  of  10~^  ^  -i-lO*^^  see.  As  we  noted  above,  the  characteristic 
time  length  of  file  reaction  zone  fer  detonadtms  in  solids  is  10*^  -f  10*^  sec.  This  difference  in  time  Kales 
allows  us  to  consider  reactimisbdiind  file  detonation  fiont  as  equilibrium  deconyositions.  Phenomenologic 
criteria  of  nucleation  stationarity  according  to  V.  Shreidman  (2)  can  be  presented  as  follows: 


:(f) 


w4iere  v  •  characteristic  fiequency  of  external  forces;  W  -  activation  energy  of  nucleation;  T  •  temperature 
in  energetic  units;  p  and  q  *  density  and  viscosity  of  gases;  o  -  surfiice  tension  coefficient  for  nudd. 

Following  are  Fol'mer  theory  (3)  we  present  activaticm  energy  through  thermodynamic  parameters: 

(2) 

3  {T\nP/P,f 

Here,  P  •  partial  pressure  in  ^eous  predpitous  phase;  P^  •  equilibrium  pressure  of  saturatimi  for 
condensate  at  given  T;  V  -  atomic  volume  in  condensed  phase. 


For  the  conditions  typical  for  diamond  condensation  in  the  process  of  detonaiive  synthesis,  the 
barrier  of  nucieation  at  100  kbar  pressure  and  3000®k  temperature  behind  the  detonation  fiom,  is  W  = 

13-10"12  gfg  Criteria  (I)  in  this  case  gives;  10‘* -5- Considering  the  tune  s]»n  of  the 
detonation  wave  reaction  zone  (I0'^4-  10"^  sec),  we  can  assume  stationarity  of  diamond  nucieation. 
Calculations  made  for  metals  and  some  inorganic  compounds  lead  to  the  same  conclusion. 

In  accordance  with  the  stationary  approximation,  the  nucieation  rate  can  be  presented  as  follows 
(3): 


/  = 


(3) 


a  -  condensauon  coefficient,  m  -  atomic  mass  of  condensate.  For  our  reference  case  of  diamond  nnp.tf>atiAn 


calculation  using  equation  (3)  gives;  /  «  10^‘ 


nuclei 
sec*  cm^ 


The  diameter  of  critical  nuclei  can  be  estimated  from  activation  barrier  D 
For  diamond  it  gives  D  ~  5  A. 

4,  Solid  Explosive  Charge  Detonation  in  a  Confined  Volume 

Experimentally  developed  conditions  for  dianvmd  powder  synthesis  rely  on  the  muiti-layerBd 
detonation  of  several  explosives  and  inert  material.  This  system  undergoes  a  complex  detonatun  huHw* 
conditions  that  are  overdriven  for  the  explosive  producing  diamond  powder,  and  are  standard  for  the  driver 
detonadon  with  some  ctanplex  multi-dimensional  expansion  into  the  surrounding  media.  The  details  of  the 
detonation  process  in  this  system  have  never  been  studied  computationally,  but  experimental  methods 
indicate  that  very  specific  conditiCHis  are  required.  It  is  kixiwn  that  the  end  result  of  this  process  is 
extremely  sensitive  to  conditions  of  the  multi-layered  detonation.  Currently,  it  is  not  clear  what  variables 
control  pardcle  sizes,  or  the  maximum  amount  of  free  carbon  released  during  the  detonative  combusdcm 
process  that  can  be  synthesized  into  diamond.  Experimental  work  in  this  field  is  sketchy,  rnsnerical 
analysis  of  this  complex  process  will  enable  us  to  understand  the  sensitivity  to  the  basic  parameter 
variations  controlling  diamond  synthesis.  Below  are  the  results  of  numerical  simulaticHi  of  detcmation  and 
deronation  products  expansion  for  a  composite  TNT/RDX  charge  detonated  in  a  1  m3  chanfoer.  This 
simulation  will  give  the  conditions  of  the  detonative  products  at  various  stages  of  expansion  that 
determines  the  enviromr^  prevalent  in  the  detonative  synthesis. 

In  Figure  2  schematics  of  the  blast  sphere  cross  section  are  shown  with  the  solid  explosive  charge 
located  at  the  sphere's  center.  The  inner  volume  of  the  sphere  is  1  m3.  Solid  explosive  is  a  composite 
charge  formed  from  a  TNT  main  charge  with  the  layer  of  RDX  around  it.  Detonation  of  a  high  ateigy 
RDX  layer  leads  to  the  formation  of  an  overdriven  detonation  wave  in  the  main  charge.  Because  the 
problem  is  symmetric,  it  is  sufficimt  to  simulate  one  quarter  of  the  sphere  volume  to  describe  the  fiiU  range 
of  blast  interaction  tlm  will  occur  for  this  condition.  To  increase  the  simulation's  accuracy,  we  have 
divided  the  numerical  modeling  in  the  near  field  and  global  blast  simulations.  For  the  near  field,  a  square 
grid  with  DR  =  DX  =  1  mm  was  used  to  describe  a  region  10  cm  x  10  cm  containing  the  solid  explosive 
charge.  The  simulation  results  from  the  near  field  region  are  mapped  on  the  larger  computational  domam. 
which  includes  the  inner  wall  of  the  blast  sphere.  For  higher  resolution  and  computational  efficiency,  we 
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have  used  stnictured/unstructured  gnds  to  describe  the  sphere's  inner  volume.  The  tnatbematical 
formulation  and  numerical  method  for  the  solutitm  used  in  the  near  field  are  described  in  detail  in  Refeiei^ 
2.  These  computaticmal  techniques  are  implemented  in  the  MPHASE  code.  The  model  and  nnmwipai 
methods  used  for  simulations  in  the  computational  domain  shown  in  Figure  2  are  described  in  Refimmce  5. 
These  computational  techniques  are  implemented  in  AUGUST  code.  Both  MPHASE  and  AUGUST  have 
beat  validated  for  the  range  of  detonation  and  strong  shock  wave  reflection  and  diffiaction  problems  .(6) 


Figure  2.  Schematics  of  the  blast  sphere  cross  section  with  the  solid  explosive  charge.  The  computationai 
dnnain  is  covering  the  upper  right  quadrant. 

In  Figure  3,  simulation  results  for  the  near  field  region  are  shown  as  pressure  denstty  and 
temperature  contour  plots  for  an  instant  of  time  when  the  detonation  wave  is  at  2  mm  distance  flcin  the 
right  edge  of  the  charge,  t  =  0  is  the  time  of  detonation  wave  initiation  in  a  solid  explosive.  Piessuie  and 
temperature  contour  plots  are  shown  using  a  linear  scale.  In  Figure  3  we  observe  prqjagatioo  of  the 
complex  detonaticm  front  through  the  composite  charge  and  the  initial  stages  of  detonation  produa 
expansion.  The  outer  layer  of  the  RDX  lea^  to  the  formation  of  an  overdriven  detonation  wave  in  die 
TOT  charge  that  has  shorter  reaction  zone,  higher  wave  speed,  higlmr  temperatures,  and  higher  pressnies 
as  compared  with  a  hcxnogeneous  TOT  charge  dettmatirm.  The  maximum  temperature  is  reached  in  die  air 
strata  located  in  the  immediate  vicinity  of  the  charge.  This  temperature  maximum  is  created  by  a  strong 
shock  wave  produced  by  expanding  detonation  products  in  air.  The  following  conditions  are  reached  at  die 
detonation  wave  front  in  the  TOT  charge:  P  -  62.6  GPa;  T  =  6000*’C;  p  ~  2900  kg/m^.  It  should  be  noted 
that  because  of  high  resoiuticm  of  the  numerical  scheme  we  are  simulating  the  Von  Neumann  spike  of  the 
detonation  wave  front,  where  the  pressure  is  considerably  higher  than  at  the  Chapman-Jouguet  pmnt 

When  the  shock  wave  reaches  the  edges  of  the  computationai  dcanain  for  the  near  field  simulation, 
the  simulation  results  are  mapped  to  the  grid  of  die  global  dmnain  shown  in  Figure  2  and  are  continued  on 
larger  grid.  In  Figure  4  pressure  and  temperature  contour  plots  are  shown  for  three  consecutive  instances  of 
time  for  the  global  domain  simulation.  In  Figure  4a  results  are  shown  at  t  =  O.OS  psec,  shordy  before  the 
detonation  products  reached  the  walls  of  the  sphere.  Here  we  can  observe  significantly  lower  pressures  as 
compared  with  Figure  3  values  due  to  strong  expansion;  however,  the  propagating  shock  is  leading  to 
considerable  heating  of  the  surrounding  air.  In  Figure  4b  pressure  and  temperature  contour  plots  are  shown 
at  some  stage  of  the  wave  front  reflection  from  the  inner  wail  of  the  blast  sphere.  The  average  pressures 
and  temperatures  are  significantly  lower;  however,  several  focus  points  are  created  during  the  reflection 
that  have  significantly  higher  pressure  and  temperature  values.  In  Figure  4c,  the  shock  wave  complex  is 
converging  towards  the  blast  sphere  center,  with  significant  amplification  of  the  shock  strength  and 
temperature  at  the  front.  It  is  obvious  that  this  system  of  shock  waves  will  undergo  a  number  of 
refiections.  focusing,  and  expansions  until  quiescent  conditions  are  reached  in  the  blast  sphere. 
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The  simulations  illustrated  above  will  provide  the  global  conditions  in  the  blast  chamber  as  a 
function  of  time.  This  mfoimation  can  be  used  for  the  nucleation  simulations  of  the  material  behind  the 
shock  front,  and  estimates  of  possible  phase  transformation  or  reaction  of  the  newly  formed  material.  As  a 
result  of  this  multi-step  approach,  we  can  consider  ail  the  stages  of  the  detonative  synthesis  process  that  are 
important  for  nanoscaie  material  formation.  This  approach  will  allow  us  to  minimize  the  number  of 
experiments,  understand  the  physics  of  detonative  synthesis,  and  control  the  quality  and  yield  of  nanoscale 
materials  produced  experimentally. 


S.  Conclusions 

Detonative  synthesis  of  nanoscale  material  is  a  new  technology  and  the  tiamre  of  this  process  is 
widely  unexplored.  More  studies  should  be  done  in  addressing  chemical  and  phase  transformations  under 
extreme  and  fast  changing  conditions  m  waves  of  detonation,  shock  and  rarefiaction.  An  unlimited  array  of 
elements  and  compounds,  as  well  as  their  structural  modifications  (some  highly  metastable),  is  attainable 
through  such  processing. 

Detonauon  synthesis  combines  the  best  features  of  traditional  nanophase  material  technology  —  the 
most  effective  generation  of  hot  plasma  and  vapors,  and  fast  quenching  of  a  condensmg  product.  Tim  most 
unique  feamre  of  the  process  is  the  extreme  density  of  the  generated  plasmas,  which  makes  them  highly 
supersaturated  in  regard  to  pressure  and  temperature. 

E)etonative  technology  has  promising  industrial  prospects,  due  to  very  low  production  cost  and  the 
unique  materials  it  yields.  As  a  ^rence  we  can  use  ultra-fine  carbon.  In  this  case  camaaa 
nanotechnology  produces  carbon  black;  detonative  synthesis  diamond.  These  Actors  are  completely 
changing  the  traditional  view  of  nanomaterials  applications.  (7) 
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Figure  3.  Pressuure,  density  and  temperature  contour  plots  for  a  composite  charge 

detonation  t  =  0.01  msec. 
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Figure  4.  Simulation  of  blast  wave  reflection  from  the  inner  wave  of  a  blast  sphere. 
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Abstract 

A  mathematical  model  is  presented  describing  a  physi¬ 
cal  system  of  detonation  waves  propagating  in  a  solid  parti¬ 
cle/air  mixture  with  a  wide  range  of  solid-phase  concentra¬ 
tions.  The  mathematical  model  was  solved  numerically  using 
the  Second  Order  Godunov  method,  and  numerical  solutions 
were  validated  for  detonation  waves  propagating  in  mixtures 
with  concentrations  of  solid  phase  from  0.75  kg/m^  to  1000 
kg/m^.  Numerical  solution  was  obtained  for  detonation  waves 
propagating  in  a  system  consisting  of  clouds  with  a  small  con¬ 
centration  of  particles  and  a  ground  layer  in  which  solid  parti¬ 
cle  densities  are  three  orders  of  magnitude  larger  than  in  the 
cloud.  Three  differoit  particle  concentration  distributions  in 
the  groimd  layer  were  simulated  and  compared  in  terms  of 
detonation  wave  structure  and  parameters. 

Introduction 

When  combustible  particles  are  intentionally  or  uninten¬ 
tionally  dispersed  into  the  air,  the  resulting  mixture  can  be 
detonable.  Formation  of  this  potentially  explosive  dust  envi¬ 
ronment  and  the  properties  of  its  detonation  are  of  significant 
practical  interest  in  view  of  its  destructive  or  creative  effects. 
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The  experimental  and  theoretical  study  of  these  phenomena 
until  now  has  addressed  only  homogenous  particle /oxidizer 
mixtures.  However,  intentionzd  or  accidental  processes  of  the 
explosive  dust  dispersion  will  always  lead  to  inhomogeneous 
particle  density  distribution.  Some  industrial  methods  of 
expiosive-fomung  rely  on  detonation  of  explosive  powder.  This 
powder  can  be  deposited  as  a  thin  layer  over  the  surface  area  of 
the  forming  metal,  with  some  remaining  concentration  in  the 
vicinity  of  the  layer.  The  phenomenology  of  detonation  wave 
initiation  and  propagation  in  this  environment  is  the  main  sub¬ 
ject  of  this  paper. 

When  the  detonation  wave  is  generated  in  a  homogeneous 
mixture  by  a  “direct  initiation,'’  it  starts  with  a  strong  blast 
wave  from  the  initiating  charge.  .4.8  the  blast  wave  decays, 
combustion  of  the  reactive  mixture  behind  its  shock  front  starts 
to  have  a  larger  role  in  support  of  the  shock  wave  motion. 
When  the  initial  explosion  energy  exceeds  some  critical  value, 
transition  to  steady-state  detonation  occurs.^ *“*  In  explosive 
dust  mixtures  with  a  nonuniform  distribution  of  particle  den¬ 
sity,  the  initiation  dynamics  eire  significantly  more  compli¬ 
cated.  The  critical  initiation  energy  sufficient  for  one  of  the 
explosive  particle  density  strata  regions  is  not  necessarily  ade¬ 
quate  for  other  regions.  Also,  when  there  is  a  significant  varia¬ 
tion  in  density  between  the  different  layers  (regions)  of  the  mix¬ 
ture,  steady  detonation  in  one  layer  can  result  in  an  overdriven 
detonation  in  an  adjacent  layer.  Our  paper  demonstrates  that 
the  phenomenology  of  these  interactions  is  distinctly  different 
from  the  classical  studies  of  multilayer  detonations  in  gases. 
This  is  primarily  because  the  energy  content  of  adjacent  layers 
in  a  typical  multigas  layer  experiment®  varies  by  a  factor  of 
two  or  four,  whereas  the  energy  content  in  explosive  dust /air 
mixtures  can  vary  by  several  orders  of  magnitude. 

In  this  paper  we  use  detailed  numerical  simulation  to  study 
the  initiation  dynamics  and  propagation  phenomenology  for  a 
general  case  of  explosive  dust  dispersion.  We  will  consider  par¬ 
ticle  density  variation  from  1000  kg/m®  in  the  ground  layer  to 
0.5  kg/m®  or  0  for  the  upper  edges  of  the  cloud.  The  effects  of 
variation  of  the  cloud  density  on  detonation  wave  parameters 
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will  be  exanuned  for  different  cases  of  cloud  particle  density 
distribution.  When  possible,  the  results  of  computer  simtiia- 
tions  are  vahdated  in  comparison  with  experimental  and  the¬ 
oretical  studies. 

The  outline  of  this  paper  is  as  follows.  Section  2  gives 
a  description  of  a  mathematical  model  that  includes  govern¬ 
ing  conservation  equations  for  two  phases  and  the  constitutive 
laws.  We  describe  the  model  for  a  particle-gas  interaction, 
combustion,  and  equation-of-state  for  gas  phase.  The  numer¬ 
ical  integration  technique  for  solving  the  mathematical  mt  .el 
vdll  also  be  outlined.  In  Section  3,  we  present  our  numerical 
simulation  results.  We  first  validate  our  model  by  comparing 
one-dimensional  detonation  wave  simulation  with  available  ex- 
penmental  results.  We  then  give  the  two-dimensional  simu¬ 
lation  for  detonation  wave  propagation  in  combustible  parti¬ 
cles/air  mixtures  with  variable  particles  density  distribution. 
Concluding  remarks  are  given  in  Section  4. 

Mathematical  Model  and  the  Numerical  Solution 

The  mathematical  model  consists  of  conservation  govern¬ 
ing  equations  eind  constitutive  laws  that  provide  closure  re¬ 
lations  for  the  model.  The  basic  formulation  adopted  here 
follows  the  two-phase  fluid  dynamics  model  presented  in  the 
text  by  Kuo.®  The  approach  assumes  that  there  are  two  dis¬ 
tinct  continue,  one  for  gas  and  one  for  solid  particles,  each 
cooving  at  its  own  velocity  through  its  own  control  volume. 
The  sum  of  these  two  volumes  represents  an  average  mixture 
volume.  With  these  assumptions,  distinct  equations  for  conti¬ 
nuity,  momentum,  and  energy  are  written  for  each  phase.  The 
interaction  effects  between  the  two  phases  are  accounted  for  by 
the  source  terms  on  the  right-hand  side  of  the  governing  equa¬ 
tion.  The  following  is  a  short  description  of  the  two-phase  flow 
model  used  in  our  study,  with  conservation  equations  written 
in  Eulerian  form  for  two-dimensional  flow  in  Cartesian  coordi¬ 
nates: 
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Continuity  of  solid- particle  phase 

dpi  djp^up)  dip2Vr,)  _  p  >2) 

dt  dx  dy 

Conservation  of  momentum  of  gaseous  phase  in  x  direction 

d{p\Ug)  ^  d{p\u^  -f  <i>Pg)  ^  d{pxUgVg)  _ 

dt  dx  5y  *  ^ 

Conservation  of  momentum  of  gaseous  phase  in  y  direction 


i 


4 


4 


4 


d(pivg)  djpiUgVg)  djpivl  -^<j>Pg) 
dt  dx  dy 


-Fy-f-rup 


(4) 


Conservation  of  momentum  of  solid-particle  phase  in  x  direc¬ 
tion 


4 


d{p2Uj,)  d(p2ul)  d(p2VpUj,} 

dt  dx  dy 


=  rup 


(5) 


Conservation  of  momentum  of  solid-particle  phase  in  y  direc¬ 
tion 


djpjVp)  dip2UpVp)  djPivl)  _  pr  __  py 
dt  dx  dy  ^  ^ 


Conservation  of  energy  of  gas  phase 


d(piEgT)  d(plUgEgT  +Ug4>Pg)  djplVgEgT  +  V^^P<})  ^ 

dt  dx  dy 

2  2 

+  Echem  -h  C,T,)  -  (f.u^  +  FyV,)  -  Q  (7) 


4 


( 
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Conservation  of  energy  of  solid-particle  pha&J 


djPiEpT)  .  d(p2EpTUp)  d 


dt 


+ 


dx 


+  Q^{ptEpVp)  —  Q  -{■  {FfVp  FyVp) 


+  Echtm  +  C,Tp) 


(8) 


Conservation  of  number  density  of  solid-particle 


dN,  a(JV,u,)  d(N,v,)  _ 

at  *  dz  ^  dy  ~  '  ' 

In  the  above  equations,  we  have  the  following  definitions 
and  constitutive  laws: 

Phase  densities 

P\  =  P2  —  (1  -  <i>)Pp  (10a) 

and  fractional  porosity 


NpMp  _  Volume  of  void 
Pp  total  volume 


(10b) 


where  Mp  is  the  mass  of  each  particle  and  pp  is  the  solid- 
particle  density. 

Total  internal  energy  of  gaseous  phase 


EgT  =  Eg  + 


g+V^j)  and  Eg  =  EgiPg,Pg)  (11) 


where  Eg{pg,pg)  is  the  equation-of-state  for  gas  pheise,  which 
will  be  discussed  later. 

Total  internal  energy  of  solid- particle  phase 
EpT  =  Ep  +  ^{vl+vl)  and  Ep  =  Echem  4-  C,Tp  ( 12) 


VARIABLE  PARTICLE  DENSITY  DISTRIBUTIONS 


233 


In  order  to  close  the  above  system  of  conservation  equa¬ 
tions,  it  is  necessary  to  define  certain  criteria  and  interaction 
laws  between  the  two  phases,  which  include  mass  generation 
rate,  F,  drag  force  between  particles  and  gas,  and  the 

interphase  heat  transfer  rate  Q.  The  model  for  particle  and  gas 
interaction  and  particle  combustion  that  results  in  the  consti¬ 
tutive  relation  for  the  conservation  equations  is  explained  in 
detail  in  the  next  subsection. 

Model  for  a  Particle  Gas  Interaction  and  Combustion 

Presently,  the  physics  of  the  energy  release  mechanisms 
in  solid- particles /air  mixtures  is  not  clearly  understood.  This 
can  be  attributed  to  the  obvious  difficulties  of  msJdng  a  direct 
nonobtrusive  measurement  in  the  optically  thick  environment 
typical  for  this  system.  In  the  experimental  and  theoretical 
work  done  for  the  grain  dust  detonation  conditions,^  it  was 
demonstrated  that  the  volatile  components  released  by  the 
particle  heated  behind  the  shock  front  play  a  major  role  in 
determining  the  detonability  limits  of  the  mixture.  Eidelman 
and  Burcat^  successfully  applied  a  combination  of  fast  evapo¬ 
ration  and  aerodynamic  shattering  mechanisms  to  simulate  a 
two-phase  detonation  process. 

The  chemical  processes  of  a  single  particle  combustion, 
which  mainly  occur  in  the  gaseous  phase,  axe  significantly 
faster  than  the  physical  processes  of  particle  gasification  or 
disintegration.  Thus,  in  the  multiphase  mixtures,  the  rate  of 
energy  release  will  be  mostly  determined  by  physics  of  particle 
disintegration.  It  is  very  difficult  to  describe  the  details  of  par¬ 
ticle  disintegration  in  the  complex  environment  prevalent  be¬ 
hind  the  shock  or  detonation  wave.  For  example,  Reinecke  and 
Waldman®  defined  five  different  disintegration  regimes  for  a  rel¬ 
atively  simple  environment  of  water  droplets  passing  through 
a  weak  shock.  Fortunately,  in  most  cases  of  multiphase  det¬ 
onation,  only  the  main  features  of  the  particle  disintegration 
dynamics  need  to  be  captured  to  describe  the  phenomena.  For 
example,  Eidelman  and  Burcat^°  used  simple  models  for  parti¬ 
cle  evaporation  and  shattering  to  obtain  simulation  results  that 
compared  very  favorably  with  experimental  data.  Because  of 
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our  inability  to  resolve  the  particle  disintegration  problem  in 
all  its  complexity,  the  validation  of  the  model  against  known 
experimental  data  is  essential. 

In  this  paper,  we  consider  solid  particles  consisting  of  ex¬ 
plosive  material.  Explosive  material  contains  fuel  and  oxidizer 
in  a  passive  state  at  low  temperature;  however,  when  the  tem¬ 
perature  rises  the  fuel  and  oxidizer  react,  leading  to  detona¬ 
tion  or  combustion.  The  intiation  of  reEu:tion  for  explosives 
occurs  at  relatively  low  temperature.  For  example,  TNT  will 
detonate  when  heated  to  the  temperature^^  of  570®C.  Only 
particles  larger  than  a  critical  detonation  size  can  detonate 
directly  when  initiated  by  a  shock  wave.  Here,  consider  par¬ 
ticles  smaller  than  4  mm  in  diameter  that  will  not  detonate 
when  heated,  but  will  bum  when  the  temperature  on  the  par¬ 
ticle  surface  reaches  a  critical  value.  Since  the  heat  conduction 
inside  the  explosive  material  is  relatively  slow,  the  process  of 
particle  heating  needs  to  be  resolved  in  detail.  Our  simulations 
mimerically  solve  the  temperatiue  field  in  the  particles  at  every 
step  of  niimerical  integration  of  the  global  conservation  equa- 
ticms.  The  explosive  particle  combustion  model  examined  in 
this  paper  assmnes  that  the  fraction  of  the  particle  that  reaches 
the  critical  temperature  will  bum  instantaneously. 

Energy  transfer  by  convection  and  conduction  is  simulated 
by  solving  the  unsteady  heat  conduction  equation  in  each  com¬ 
putational  ceU  at  each  time  step.  Assuming  a  particle’s  tem¬ 
perature  to  be  a  function  of  time  and  radial  position  only,  the 
unsteady  heat  conduction  equation  may  be  transformed  to; 

=  (13) 

Jr^  a  dt 

subject  to  the  boundary  conditions: 

w  =  0  at  r  =  0,  t>0 

k^^(h~\)w^hRTg  at  r  =  R,t>Q  (14) 
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where 

to(r,<)  =  rr(r,i) 

r  3=  radial  position 

T(r,t)  =  temperature 

R  =  particle  radius 

Tj  =  temperature  of  surrounding  gas 

k  =  thermal  conductivity  of  particle 

h  =  convective  heat  transfer  coefficient 


The  Nusseit  number,  used  to  find  A.  is  given  by  an  em¬ 
pirical  relation  given  by  Drake. The  gas  viscosity  is  derived 
from  Sutherland’s  Law.  The  gas  thermal  conductivity  is  cal¬ 
culated  by  assuming  a  constant  Prandtl  number.  Finally,  the 
boiling  temperature  at  a  given  pressure  is  derived  from  the 
Clapeyron-Clausius  equation  under  the  following  assumptions; 
1)  phrasing-constant  latent  enthalpy  of  phase-change,*  2)  the 
vapor  obeys  the  ideal  equation-of-state;  and  3)  the  specific 
volume  of  the  solid/Uquid  is  negligible  compared  to  that  of  the 
vapor.  A  critical  temperature  is  also  employed  to  serve  as  an 
upper  limit  to  the  boiling  point,  regardless  of  pressure. 

Equation  13  with  boxmdary  condition  14  can  be  numeri¬ 
cally  integrated  using  either  implicit  or  explicit  schemes. 

Since  the  particle  radius  R  becomes  very  small  due  to 
evaporation,  the  implicit  Crank-Nicolson  algorithm  is  used  be¬ 
cause  of  its  stability  properties  and  its  second  order  temporal 
and  spatial  accuracy.  Using  the  Crank-Nicolson  scheme  to  pre¬ 
dict  the  particle  temperature  profiles  at  times  ti  and  <2  permits 
easy  calculation  of  the  total  energy  exchange  Q  between  ti  and 
t],  due  to  convection  and  conduction. 

Knowledge  of  the  particle  temperature  profile  also  allows 
the  precise  determination  of  the  quantity  of  the  mass  to  trans¬ 
fer  from  the  particle  to  the  gas  F.  Once  any  point  at  a  radial 
location  0  <  r  <  R  has  a  temperature  exceeding  the  boiling 
temperature,  the  entire  mass  between  r  and  R  is  transferred  to 
the  gas  phase  in  one  time  step.  In  so  doing,  an  energy  equal  to 
the  product  of  the  mass  lost  and  the  particle  intrinsic  energy 
is  transferred  by  the  particle  to  the  gas. 
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The  interphase  drag  force  Fx,  Fy  is  determined  from  the 
experimental  drag  for  a  sphere,  as  presented  by  Schlichting.^^ 

F.  =  (I)  N,f,CD\V,  -  V,|(u,  -  u,)B?  (15) 

where 

+  for  Re  <  1000; 

1 0.44  for  Re  >  1000 

and  Rt  =  R,  is  radius  of  particle,  eind  fig 

cosity  at  temperature  of  T/um  =  +  ^p)* 

Similarly,  the  formulae  for  Fy  is 

Fy-‘^y,P,Co\V,-V,\(v,-v,)R^  (IT) 

Equation>of-State  for  Detonation  Products 

To  close  the  system  of  governing  equations,  one  needs  a 
constitutive  relation  between  pressure,  temperature,  and  en¬ 
ergy  for  gas  phase,  which  is  an  equation-of-state.  This  study 
uses  the  Becker-Kistiakowsky- Wilson  (BKW)  equation-of- 
state,^^’**  that  is. 


(16) 


IS  gas  vis- 


PgVg/RTg  =  1  +  xe**  (18) 


where 

Vg  =  volume  of  gas  phase 
Pg  —  pressure  of  gas  phase 
Tg  =  temperature  of  gas  phase 
R  =  universal  gas  constant 
X  =  kfVg{T+er 
k  =  KHjX.ki 
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with  empirical  constants  a,  b,  K,  0,  and  it,.  The  constants 
ki,  one  for  each  molecular  species,  are  covolumes.  The  covol¬ 
umes  are  multiplied  by  their  mole  fraction  of  species  Jf,  and 
are  added  to  find  an  effective  volume  for  a  mixture.  For  a 
particular  explosive,  if  we  know  the  composition  of  detonation 
products,  o,  b,  0,  K,  and  all  kjS  can  be  foimd  in  Ref.  15. 

The  internal  energy  is  determined  by  thermodynamics  re¬ 
lation 


T 


—  T  { 


-Pj 


(19) 


Integration  of  this  equation  for  a  fiixed  composition  of  the 
detonation  products  will  allow  us  to  calculate  the  energy  of  the 
detonation  products  as  a  function  of  temperature  and  volume. 
For  each  component,  its  thermodynamic  properties  as  func¬ 
tions  of  temperature  were  calculated  from  the  NASA  tables 
compiled  by  Gordon  eind  McBride.^® 

The  BKW  equation-of-state  is  the  most  commonly  used 
and  well-calibrated  of  those  equations-of-state  used  to  calculate 
the  properties  of  detonation  products.  The  detailed  discussion 
and  review  of  the  BKW  equation-of-state  can  be  found  in  Ref. 
15. 

Numerical  Method  of  Solutions 

The  system  of  partial  differential  equations  described  in 
the  previous  paragraph  is  integrated  numerically.  The  Second 
Order  Godimov  method  is  used  for  the  integration  of  the  sub¬ 
system  of  equations  describing  flow  of  gaseous  phase  .material 
and  is  described  in  Ref.  17.  In  the  following,  we  will  elaborate 
only  on  some  specifics  of  its  application  to  simulations  of  det¬ 
onation  products.  The  subsystem  of  equations  describing  the 
flow  of  particles  is  integrated  using  a  simple  upwind  integra¬ 
tion.  This  is  done  because  our  mathematical  model  neglects 
the  pressure  of  interparticle  interaction,  and  that  prevents  for- 
mxUation  of  a  Second  Order  Godunov  scheme  for  particles. 

The  physical  system  under  study  will  have  concentrations 
of  solid  explosive  powder  ranging  from  1000  kg/m^  near  the 


« 


« 
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ground  to  0.75  kg/m^  or  less  in  the  cloud.  Detonation  of  this 
mixture  will  create  detonation  products  with  effective  7  rang¬ 
ing  from  3  to  1.1.  To  describe  the  flow  of  detonation  products, 
we  use  the  BKW  equation-of-state  described  above.  Since 
the  Second  Order  Godunov  method  uses  primitive  variables 
to  calculate  Riemann  problems  at  the  edges  of  the  cells,  its 
implementation  for  non-ideal  EOS  is  difficult.  In  our  simula¬ 
tions.  we  have  resolved  this  problem  by  using  direct  and  inverse 
equations-of-state.  .4fter  integrating  a  system  of  gas  conserva¬ 
tion  laws,  we  use  the  direct  BKW  equation-of-state  to  calculate 
pressure,  gamma,  and  temperature  as  functions  of  thermal  en¬ 
ergy,  density,  and  mixture  composition.  .4fter  this  step,  we 
have  a  complete  set  of  parameters  allowing  calculation  of  the 
fluxes  in  the  Second  Order  Godunov  method  as  well  as  interac¬ 
tion  of  the  multiphase  processes.  The  “inverse”  EOS  calculates 
internal  energy  as  a  fimction  of  density,  preastue,  and  mixture 
composition.  In  our  code,  we  use  the  “inverse”  EOS  to  calcu¬ 
late  the  fluxes  of  conserved  variables  after  czdculation  of  the 
flux  of  primitive  variables. 

For  the  multiphase  system  imder  study,  dx=dy=lmm  was 
used  to  allow  explicit  integration  of  the  gasdynamic  and  phys¬ 
ical  processes  of  evaporation  and  heat  release.  When  a  mis¬ 
match  occurred  between  the  physical  and'gasdynamical  char¬ 
acteristic  times,  the  time  step  was  adjusted  by  some  fraction 
to  assure  stability.  However,  this  did  not  result  in  a  signif¬ 
icantly  smaller  time  step  than  the  one  calculated  using  CFL 
criteria.  For  larger  celLsizes.  this  approach  will  be  impractical. 
Recently,  we  implemented  a  scE^e  in  which  multiphase  pro¬ 
cesses  are  calculated  implicitly;  however,  this  will  be  reported 
elsewhere. 

The  numerical  method  is  implemented  in  a  code  named 
MPHASE,  which  is  fully  vectorized  and  supported  by  number 
of  graphics  and  diagnostics  codes. 

Results 

Model  Validation  for  One-Dimensional  Detonation 
Wave  Problem 

The  main  advantage  of  our  particle  combustion  model  is 
its  description  of  the  phenomenology  of  detonation  for  a  wide 
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Tabk  1  One-dimeakoul  vaJldatloB  result 
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range  of  explosive  particle  sizes  and  densities.  We  will  demon¬ 
strate  this  capability  on  a  set  of  one-dimensional  test  problems. 
For  these  test  problems,  we  simtdated  the  initiation  and  prop¬ 
agation  of  the  detonation  waves  in  a  shock  tube-like  setting, 
where  the  explosive  particle  are  distributed  uniformly  through 
the  shock  tube  volume. 

Results  of  these  simulations  are  summarized  in  Table  1, 
which  shows  detonation  wave  velocity,  peak  pressure,  and  peak 
density  given  as  a  function  of  the  average  density  of  the  solid 
explosive.  Here,  the  explosive  two-phase  mixture  is  composed 
from  RDX  particle  and  air,  where  RDX  particle  concentration 
varies  from  0.75  kg/m^  to  1000  kg/m^.  This  concentration 
variation  covers  a  whole  range  of  solid  explosive  concentra¬ 
tions  of  interest  to  our  problem.  The  simulations  performed 
with  the  MPHASE  code  were  compared  with  the  experimental 
results^®'^®  and  calculations  done  with  the  TIGER  code  that 
are  presented  in  Ref.  19. 
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From  Table  1,  it  is  clear  that  our  simulation  results  com¬ 
pare  favorably  with  other  simulation  results  and  experimental 
data.  The  maximum  deviation  between  our  results  and  ref¬ 
erenced  results  is  no  greater  than  15%  for  the  entire  range 
of  explosives  densities.  Considering  that  our  results  were  ob¬ 
tained  with  a  single  model  for  particle  combustion  applied  to 
the  extreme  range  of  densities,  our  model  gives  zin  excellent 
prediction  of  the  detonation  wave  parameters. 

Two-Dimensional  Simulation  Results 

Figure  1  shows  a  setup  for  a  typical  simulation  with  a 
computational  domain  of  25  cm  x  25  cm.  The  explosive  pow¬ 
der  density  is  distributed  according  to  the  4th  power  law  of 
vertical  distance,  starting  from  the  ground  where  the  density 
is  1000  kg/m^,  to  1.2  cm,  where  the  density  is  0.75  kg/m^. 
FVom  this  point  to  25  cm  height,  the  density  is  constant  and 
equal  to  0.75  kg/m^.  The  density  distribution  in  the  direction 
of  the  “x”  axis  is  uniform.  The  boimdary  conditions  for  the 
computational  domain  shown  in  Fig.  1  are  specified  as  follows: 
solid  wall  along  the  “x”  axis,  symmetry  conditions  along  the 
“y”  axis,  supersonic  outflow  for  upper  boundary,  and  at  the 


Fig.  1  Compuudonai  domain  and  boundary  conditions. 
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right  of  the  computational  domain.  The  mixture  consists  of 
RDX  powder  and  air  at  ambient  conditions,  and  it  is  assumed 
to  be  quiescent  at  the  time  of  initiation. 

The  simulation  starts  at  t=0  when  the  mixture  is  initiated 
at  the  lower  left  comer  of  the  computational  domain,  bs  shown 
in  Fig.  1.  The  energy  released  by  the  initiating  explosion  leads 
to  formation  of  the  detonation  wave  propagating  through  the 
multiphase  media.  Figure  2a  shows  pressure  contours  for  the 
propagating  detonation  wave  at  the  time  of  t =0.012  msec  after 
initiation.  The  pressure  contour  levels  are  shown  on  the  log¬ 
arithmic  scale  in  MPa.  The  maximum  pressure  value  of  7940 
MPa  is  observed  in  the  layer  of  condensed  explosive  located 
near  the  ground.  The  pressure  in  the  layer  is  two  to  three  or¬ 
ders  of  magnitude  higher  than  pressure  behind  the  detonation 
wave  in  the  0.75  kg/m^  RDX  cloud  and  air  located  above  the 
distance  of  1.2  cm  from  the  ground.  Figure  2a  demonstrates 
that  the  detonation  wave  in  the  cloud  is  overdriven,  since  the 
pressure  behind  the  shock  continuously  rises  and  reaches  its 
maximum  in  the  layer.  From  this  figure,  we  also  observe  that 
the  overdriven  wave  propagates  faster  in  the  cloud  than  in  the 
layer.  This  is  expledned  by  the  fact  that  it  is  easier  to  compress 
air  that  is  very  lightly  loaded  with  particles  and  located  above 
the  ground  layer  than  it  is  to  compress  air  heavily  loaded  with 
a  particle  mixture  near  the  ground.  It  is  interesting  to  note 
a  discontinuous  pressure  change  between  the  yellow  contours 
and  the  light  blue  and  green  contours  behind  the  detonation 
front.  This  discontinuity  is  overemphasized  by  otir  presenta¬ 
tion  of  contour  lines  on  the  logarithmic  scale;  however,  further 
examination  of  our  simulation  results  indicates  this  feature  is 
real  and  is  similar  in  nature  to  barrel  shocks  observed  for  strong 
jets. 

In  Fig.  2b,  gas-phase  density  contours  are  shown  for  the 
time  t =0.01 2  msec.  Here  the  contour  lines  are  distributed  on 
the  logarithmic  scale.  The  main  features  of  the  shock  wave 
structure  are  very  similar  to  those  observed  in  the  pressure 
contours  figure.  We  see  that  a  jet  of  high-density  gases  reflects 
from  the  center  of  symmetry  axis,  which  will  create  a  contact 
discontinuity  that  we  will  observe  at  later  times.  The  barrel 
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shock  is  clearly  visible  in  this  figure.  In  Fig.  2c,  the  particle 
density  contour  plots  are  shown  for  t=0.012  msec.  The  contour 
levels  in  Fig.  2c  are  given  on  the  logarithmic  scale  and  the 
initial  deposition  of  the  explosive  material  in  the  ground  layer 
of  the  computational  domain  can  be  clearly  observed.  The 
white  contour  line  delineates  the  beginning  and  the  end  of  the 
reaction  zone  in  the  cloud.  To  the  left  of  these  contours  lies  an 
area  with  combustion  products  and  to  the  x  .ght  are  unbumed 
particles  in  the  cloud.  The  reaction  zone  length  is  of  the  order 
of  1  cm. 

Figure  2d  shows  presstire  contours  for  the  same  simulation 
for  the  time  t  =0.055  msec,  just  before  the  detonation  wave 
leaves  the  computational  domzun.  In  this  figure,  we  see  that 
the  global  structure  of  the  wave  did  change  slightly  from  Fig. 
2a.  We  observe  that  the  barrel  shock  wave  is  fully  developed 
and  has  a  half-ellipse  shape.  The  detonation  wave  in  the  cloud 
is  still  overdriven;  however,  part  of  the  shock  wave  front  that 
propagates  vertically  weakened  because  it  gets  further  away 
firom  the  detonation  front  in  the  layer.  Another  noticeable  fea¬ 
ture  is  the  increase  in  distance  between  the  detonation  front 
in  the  layer  and  in  the  cloud  area  close  to  the  layer.  This 
is  a  result  of  the  fact  that  the  lightly  loaded  two-phase  me¬ 
dia  above  the  layer  can  be  compressed  much  more  easily  than 
the  particle-heavy  ground  layer.  In  Fig.  2e,  temperature  con¬ 
tours  are  shown  for  t=0.055  msec.  Comparing  this  figure  with 
an  early  stage  of  the  wave  propagation,  we  observe  a  signif¬ 
icant  cooling  of  the  front  area  propagating  upwards,  which 
indicates  transition  from  the  overdriven  detonation  regime  to 
a  self-sustained  detonation.  We  also  observe  in  Fig.  2a  clear 
development  of  two  detonation  fronts,  one  moving  vertically  in 
the  cloud  and  another  moving  horizontally  in  the  layer.  Be¬ 
cause  the  energy  density  of  the  explosive  powder  in  the  layer  is 
about  three  orders  of  magnitude  larger  than  in  the  cloud,  the 
vertical  parts  of  the  front  represent  an  overdriven  detonation 
wave  in  the  cloud.  Even  though  the  vertical  front  has  slowed 
down  compared  with  the  horizontal  front,  its  speed  and  param¬ 
eters  fax  exceed  those  typical  for  detonation  waves  in  a  cloud. 
In  fact,  the  self-sustained  detonation  regime  in  the  cloud  will 
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develop  at  the  distance  of  about  3  m  from  the  layer.  The  area 
of  the  front  close  to  the  detonation  wave  in  the  layer  will  remain 
hot  and  overdriven,  since  it  is  located  very  close  to  the  deto¬ 
nation  front  in  the  layer.  In  Fig.  2f,  particle  density  contours 
are  shown  on  a  logarithmic  scale.  We  can  clearly  observe  the 
reaction  zone  delineated  by  black  contour  lines.  In  this  case, 
the  reaction  zone  length  in  the  cloud  is  about  1  cm.  Consistent 
with  the  gradual  transition  from  overdriven  to  self-sustained 
detonation,  the  reaction  zone  length  is  larger  for  the  vertical 
part  of  the  detonation  front.  The  detonation  wave  %'elocity  ob¬ 
served  in  our  simulation  is  approximately  4048  msec,  which  is 
significantly  lower  than  the  detonation  wave  velocity  observed 
in  RDX  with  a  density  of  860  kg/ra?  (see  Table  1),  the  highest 
density  in  the  ground  layer.  This  can  be  explained  by  high 
gradient  of  particle  density  distribution  in  the  layer,  where  the 
density  drops  rapidly  from  860  kg/m^  at  the  bottom  of  the 
layer  to  1  kg/m^  at  the  top  strata  of  the  layer  at  12  mm  above 
the  ground. 

To  further  explore  properties  and  phenomenology  of  the 
detonation  waves  propagating  in  the  laycr/cloud  systems,  we 
simulated  additional  cases  in  which  explosive  powder  density 
distribution  was  different  from  the  case  reported  above,  al¬ 
though  total  weight  of  fuel  per  unit  area  remained  the  same. 

In  Fig.  3,  results  are  shown  for  the  case  of  a  uniform  2.5 
cm-thick  layer  of  RDX  with  a  density  of  100  kg/m^  and  a  0.75 
kg/m^  cloud  initiated  under  the  same  conditions  as  in  the  pre¬ 
vious  example.  Figures  3a,  3b,  and  3c  show  pressme,  gas  den¬ 
sity,  and  particle  density  contour  plots  at  t=0.066  msec.  We 
observe  that  because  the  layer  has  considerably  smaller  den¬ 
sity  compared  to  the  case  reported  above,  the  precursor  effect 
of  the  detonation  wave  in  the  cloud  preceding  the  wave  in  the 
layer  is  less  pronounced.  A>5o,  one  can  observe  a  significant  dif¬ 
ference  in  the  shape  of  the  strong  contact  discontinuity  in  the 
region  of  the  shock  front  close  to  the  layer.  In  Fig.  3b.  we  can 
clearly  distinguish  two  contact  surfaces.  One  is  between  con¬ 
densed  explosive  detonation  products  in  the  layer  tmd  in  the 
cloud,  and  another  is  between  the  detonation  products  from 
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Fig.  4  Constant  density  1.2-cm-tiiick  layer;  maximum  density  in  the  layer  250 
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248 


S.  EIDELMAN  AND  X.  YANG 


layer  explosive  detonation  and  from  cloud  particle  detonation. 
We  should  note  that  these  contact  surfaces  are  overemphasized 
by  the  logarithmic  display  of  the  contour  plot  levels.  The  max¬ 
imum  pressure  observed  in  this  simulation  is  955  MPa,  which 
is  about  one  order  of  magnitude  smaller  than  in  previous  sim- 
vilation.  This  is  consistent  with  the  one  order  of  magnitude 
difference  in  the  maximum  density  of  the  ground  layer  in  the 
two  cases.  The  detonation  wave  speed  in  the  case  presented  in 
Fig.  3  is  3407  msec.  That  is  only  slightly  lower  than  the  speed 
predicted  by  one-dimensional  simulations  presented  in  Table  1, 
which  reflects  the  influence  of  the  two-dimensional  expansion 
on  the  detonation  wave  propagation. 

Figure  4  presents  results  for  the  case  of  a  uniform  density 
of  250  kg/m^  in  1.2  cm  ground  layer.  All  other  parameters  are 
the  same  as  in  the  previous  two  cases.  In  Figs.  4a,  4b,  and 
4c,  pressure,  gas  density,  and  particle  density  contour  plots  are 
shown  at  the  time  t=0.066  msec  after  initiation  of  the  detona¬ 
tion  wave.  Here,  the  detonation  wave  propagates  faster  than 
in  the  previous  cases  tJ=:3660  msec.  This  is  about  400  msec 
slower  than  in  the  case  of  parabolic  density  distribution.  Max¬ 
imum  pressure  on  the  ground  is  2150  MPa,  which  is  consistent 
with  the  increase  of  powder  density  in  the  layer.  The  basic 
structure  of  the  detonation  front  and  the  contact  surfaces  is 
similar  to  the  case  of  parabolic  density  distribution. 

Conclusions 

We  have  presented  a  mathematical  model  and  niimerical 
solution  for  the  simulation  of  initiation  and  propagation  of  the 
detonation  waves  in  multiphase  mixtures  consisting  of  solid 
combustible  particles  and  gas.  Using  this  model,  we  stud¬ 
ied  detonations  in  mixtures  of  solid  RDX  pzuticles  and  air, 
with  the  objective  of  examining  the  effects  of  wide  variation 
in  particle  density  distribution  on  the  dynamics  and  structure 
of  detonation  waves.  We  considered  a  physical  system  of  solid 
particle  clouds  in  air,  in  which  a  significant  amount  of  particles 
settle  on  the  ground  and  the  condensed- phase  concentrations 
in  the  particle/air  mixture  range  from  0  to  1000  kg/m^.  This 
range  of  solid-phase  densities  necessitated  development  of  the 
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model  and  its  numerical  implementation  for  a  wide  range  of 
particle  concentrations.  Our  validation  study  has  shown  good 
agreement  between  the  simulations  and  referenced  results  for 
the  whole  range  of  particle  concentrations. 

Two-dimensional  simulations  were  done  for  the  system  of 
low  particle  density  concentration  clouds  and  ground  layers 
formed  by  high  concentrations  of  the  RDX  powder.  We  exam¬ 
ined  three  cases  of  ground  layer  density  distribution:  a  fourth 
power  distribution  within  12  mm  above  ground  with  a  maxi¬ 
mum  density  on  the  groimd  of  860  kg/m^;  a  uniform  25  mm- 
thick  layer  with  a  density  of  100  kg/m^:  and  a  12  mm-thick 
uniform  layer  with  a  density  of  250  kg/m^.  In  ail  these  cases, 
the  weight  of  condensed  phase  per  unit  area  was  the  same, 
which  allowed  examination  of  the  effects  of  the  particle  den¬ 
sity  distribution  on  detonation  wave  parameters. 

In  all  examined  two-dimensional  cases,  the  detonation  wave 
in  the  cloud  in  the  computational  domain  was  significantly 
overdriven  and  did  not  play  an  important  role.  We  estimated 
that  the  seif-sustained  regime  of  the  detonation  wave  in  the 
cloud  for  the  examined  cloud  concentrations  can  occur  only 
at  the  distances  of  2-3  m  above  groimd.  At  the  same  time, 
the  particle  density  distribution  in  the  layer  determines  the 
dynamics  of  the  detonation  wave  as  well  as  pressure  on  the 
ground. 

In  all  three  two-dimensionsd  simulations,  we  observed  a 
very  distinct  shape  of  the  detonation  wave  front  in  the  vicinity 
of  the  layer.  In  this  area,  the  overdriven  detonation  in  the 
cloud  is  preceding  the  detonation  wave  in  the  ground  layer. 
This  feature  of  the  detonation  front  can  be  explained  by  the 
fact  that  the  energy  released  in  the  detonation  wave  in  the 
ground  layer  produces  a  faster  shock  wave  in  the  dilute  cloud 
than  in  those  heavily  loaded  with  solid  particle  stratas  from 
the  ground  layer.  However,  these  structures  were  not  observed 
experimentally,  and  more  studies  are  needed  to  examine  their 
parameters. 

The  maximum  pressure  affecting  the  ground  was  directly 
related  to  the  maximum  particle  density  in  the  lower  strata  of 
the  layer.  However,  the  detonation  front  velocity  for  the  fourth 
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power  distribution  case  was  considerably  lower  than  calculated 
for  a  one-dimensional  case  with  860  kg/m^  particle  deiisity, 
reflecting  the  significant  effect  of  two-dimensional  expansion. 
Two  other  cases  with  250  kg/m^  and  100  kg/m^  maximum 
densities  had  the  detonation  wave  velocity  only  slightly  lower 
than  the  one-dimensionai  simulations  of  the  same  RDX/air 
concentrations.  It  is  interesting  to  compare  the  simtilation  of 
the  fourth  power  density  distribution  case  and  250  kg/m^  case. 
In  both  cases,  the  same  amount  of  explosive  was  distributed 
in  the  same  physical  space;  however,  the  parameters  of  devel¬ 
oped  detonations  were  vastly  different.  Existence  of  the  high- 
density  strata  at  the  bottom  of  the  ground  layer  in  the  fourth 
power  case  significantly  increased  the  maximum  pressure  at 
the  ground  and  produced  higher  detonation  wave  velocity. 

Using  a  variable  density  layer,  one  can  reach  a  combina¬ 
tion  of  pressure  and  vebdty  conditions  outside  of  Chapmen- 
Jougett  limitations.  The  range  of  conditions  that  can  be  ob¬ 
tained  in  the  variable  density  system  and  the  parametrics  for 
this  range  need  a  more  systematic  study.  In  this  article,  we 
introduced  only  the  naathematical  formulation  and  numerical 
simulation  method  validated  for  the  range  of  conditions  of  in¬ 
terest.  In  addition,  we  have  given  some  examples  of  its  applica¬ 
tion  for  two-dimensional  simulations.  However,  this  method¬ 
ology  should  be  linked  to  an  experimental  study  for  a  more 
in-depth  analysis  of  the  phenomenology  discussed  here. 
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Abstract — A  mathemaiical  model  is  presented  describing  a  physical  system  of  detonation  waves  propagating 
in  a  solid  particle/air  mixture  with  a  wide  range  of  solid  phase  concentrations.  The  mathematical  model 
was  solved  numencally  using  the  Second  Order  Godunov  method,  and  numehcaJ  solutions  were  validated 
for  detcmation  waves  propagating  in  mixtures  with  concentrations  of  solid  phase  from  0.7S  kg/m'^  to  1000 
Numerical  solution  was  obtained  for  detonation  waves  propagating  in  a  system  consisting  of  clouds 
with  a  small  concentration  of  particles  and  a  ground  layer  in  which  solid  particle  densities  are  three  ordeis  of 
magnitude  larger  than  in  the  cloud.  Three  different  particle  concentration  distributions  in  the  ground  layer 
were  simulated  and  compared  in  terms  of  detonation  wave  structure  and  parameters. 

Key  words,  detonation  wave,  two-phase  flow,  numerical  simulation 

1.  INTRODUCTION 

When  combustible  particles  are  intentionally  or  unintentionally  dispersed  into  the  air, 
the  resulting  mixture  can  be  detonable.  Formation  of  this  potentially  explosive  dust 
environment  and  the  properties  of  its  detonation  are  of  significant  practical  interest  in 
view  of  its  destructive  or  creative  effects.  The  experimental  and  theoretical  study  of 
these  phenomena  until  now  has  addressed  only  homogenous  particle/oxidizer  mixtures. 
However,  intentional  or  accidental  processes  of  the  explosive  dust  dispersion  will  always 
lead  to  inhomogeneous  particle  density  distribution.  Some  industrial  methods  of  explosive 
forming  rely  on  detonation  of  explosive  powder.  This  powder  can  be  deposited  as  a  thin 
layer  over  the  surface  area  of  the  forming  metal,  with  some  remaining  concentration  in 
the  vicinity  of  the  layer.  The  structure  of  the  detonation  waves  and  the  phenomenology 
of  their  initiation  and  propagation  in  these  environments  are  the  main  subjects  of  this 
paper. 

When  the  detonation  wave  is  generated  in  a  homogeneous  mixture  by  a  “direct 
initiation,”  it  starts  with  a  strong  blast  wave  from  the  initiating  charge.  As  the  blast 
wave  decays,  combustion  of  the  reactive  mixture  behind  its  shock  front  starts  to  have 
a  larger  role  in  support  of  the  shock  wave  motion.  When  the  initial  explosion  energy 
exceeds  some  critical  value,  transition  to  steady  state  detonation  occurs  (cf.  Eidelman  et 
aL,  1976;  Burcat  et  ai,  1978;  Oved  et  aL,  1978;  Eidelman  and  Burcat,  1980).  In  explosive 
dust  mixtures  with  a  nonuniform  distribution  of  particle  density,  the  initiation  dynamics 
is  significantly  more  complicated.  The  critical  initiation  energy  sufficient  for  one  of  the 
explosive  particle  density  strata  regions  is  not  necessarily  adequate  for  other  regions. 
Al»,  when  there  is  a  significant  variation  in  density  between  the  different  layers  (regions) 
of  the  mixture,  steady  detonation  in  one  layer  can  result  in  an  overdriven  detonation  in 
an  adjacent  layer.  Our  paper  demonstrates  that  the  phenomenology  of  these  interactions 
is  distinctly  different  from  the  classical  studies  of  multi-layer  detonations  in  gases.  This 
is  primarily  because  the  energy  content  of  adjacent  layers  in  a  typical  multi-gas  layer 
experiment  varies  by  a  factor  of  two  or  four  (Liu  et  al,  1990),  whereas  the  energy  content 
in  explosive  dust/air  mixtures  can  vary  by  several  orders  of  magnitude. 
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In  this  paper  we  use  detailed  numerical  simulation  to  study  the  initiation  dynamics 
and  propagation  phenomenology  for  a  general  case  of  explosive  dust  dispersion.  We  will 
consider  particle  density  variation  from  1000  kg/m^  in  the  ground  layer  to  0.75  kg/m^  for 
the  upper  edges  of  the  cloud.  The  effects  of  the  cloud  density  variation  on  detonation 
wave  parameters  will  be  examined  for  different  cases  of  cloud  particle  density  distribution. 
When  possible,  the  results  of  computer  simulations  are  validated  in  comparison  with 
experimental  and  theoretical  studies. 

The  outline  of  this  paper  is  as  follows.  Section  2  gives  a  description  of  mathematical 
model  that  includes  governing  conservation  equations  for  two  phases  and  the  constitutive 
laws.  We  describe  the  model  for  a  particle  gas  interaction,  combustion  and  equation-of- 
state  for  gas  phase.  The  numerical  integration  technique  for  solving  the  mathematical 
model  will  also  be  outlined.  In  Section  3,  we  present  our  numerical  simulation  results. 
We  first  validate  our  model  by  comparing  one  dimensional  detonation  wave  simulation 
with  available  experimental  results.  We  then  give  the  two  dimensional  simulation  for 
detonation  wave  propagation  in  combustible  particles/air  mixtures  with  variable  particle 
density  distribution.  Concluding  remarks  are  given  in  Section  4. 

2.  THE  MATHEMATICAL  MODEL  AND  THE  NUMERICAL  SOLUTION 

The  mathematical  model  consists  of  conservation  governing  equations  and  constitutive 
laws  that  provide  closure  relations  for  the  model.  The  basic  formulation  adopted  here 
foMows  the  two-phase  fluid  dynamics  model  presented  in  the  text  by  Kuo  (1990).  The 
approach  assumes  that  there  are  two  distinct  continua.  one  for  gas  and  one  for  solid 
particles,  each  moving  at  its  own  velocity  through  its  own  control  volume.  The  sum 
of  these  two  volumes  represents  an  average  mixture  volume.  Furthermore,  particles 
in  their  own  control  volume  are  assumed  monodisperse  and  they  are  moving  with  the 
same  velocity.  With  these  assumptions,  distinct  equations  for  continuity,  momentum  and 
energy  are  written  for  each  phase.  The  interaction  effeas  between  the  two  phases  are 
accounted  as  the  source  terms  on  the  right  hand  side  of  the  governing  equation.  The 
following  is  a  short  description  of  the  two  phase  flow  model  used  in  our  stuay,  with 
conservation  equations  written  in  Eulerian  form  for  two  dimensional  flow  in  Cartesian 
coordinates. 


Conservation  Equations 
Continuity  of  gaseous  phase: 


dPi  O(PiUg)  ^  p. 

dt  dx  dy  ' 


Continuity  of  solid  particle  phase; 

dp2  .  ^(P2M/7)  ^  OjpiVp) 


-f 


=  -F; 


dt  dx  dy 

Conservation  of  momentum  of  gaseous  phase  in  x  -direction: 

d{piu^)  dipiul  +  <t>pg)  d{p,u^v^) 


dt 


dx 


dy 
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Conservation  of  momentum  of  solid  particle  phase  in  y -direction: 

)  d{piu,;V^)  d(P\V}  +  <l>pg) 


+ 


—  —Fy  +  VVp", 


dt  dx  dy 

Conservation  of  momentum  of  solid  particle  phase  in  x  -direction: 

d{piup)  ,  dip7U-p)  ,  d(p2VpUp)  ^  . 

Conservation  of  momentum  of  solid  particle  phase  in  y -direction: 

d(P2Vp)  'HpiUpVp)  <i{piv'p) 


dt  dx 

Conservation  of  energy  of  gas  phase: 


dy 


=  Fv  -  Tvp; 


djpiEfT  ^  djpiUgEgT  +  u<f<i>Ps)  d{p\VgEgT  ^t4>Pg)  _ 

dt  dx  dy 

r  ( — £.  +  Echtm  +  ~ 
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(2.5) 


(2.6) 


(2.7) 


Conservation  of  energy  of  solid  panicle  phase: 


d(.P2EpT)  ,  dipiEpTUp)  _  d  ^  ^  _ A  ,  ,r  ..  ,  r  ^ 

- "dt - ~  2  +  {^**'p  +  ^y^p) 
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Conservation  of  number  density  of  solid  particle: 


(2.8) 


^^p  ,  d{NpUp)  djNpVp)  _  2g\ 

dT  dx  dy  ’ 

In  the  above  equations.  0=1  —  =  ‘PpfPz  =  (1  -  't>)pp,  where  Np  and  Mp 

are  the  number  density  of  particles  and  mass  of  each  particle,  respectively,  and  pg  and 
Pp  are  the  material  density  of  gas  and  particle  densities,  respectively.  Ug,  Vg,  pg  are 
gas  phase  x -velocity,  y -velocity  and  pressure,  respectively;  Up,  Vp,  T p,  are  x -velocity, 
y-veiocity  and  average  particle  temperature,  respectively.  C,  is  the  solid  particle  specific 
heat,  and  E^hem  =  Fcomb  ~  Ef^ap,  where  Ecomb  is  heat  of  combustion  and  Eevap  is  heat 
of  evaporation.  F  is  the  rate  of  phase  change  from  solid  to  gas  and  Q  is  heat  transfer 
between  the  two  phases;  F, .  Fy  are  drag  force  between  the  two  phases  in  x  and  y 
directions,  respectively. 

Equations  (12)  and  (2.9)  are  linked  through  the  relation  pi  =  NpMp.  In  the  case  of 
a  reactive  solid  phase.  Mp  decreases  due  to  combustion.  The  mass  of  a  single  particle  at 
any  point  can  be  obtained  from  Mp  =  p2ix .y)/Np{x .y),  and  the  diameter  of  a  particle 
at  any  spatial  location  is  D(x.y)  =  {6Mp(x,y)/Trppl\/3.  The  total  internal  energy  of 
gaseous  phase 


£,r  ==  Eg  +  -(ti^  +  v^)  and  Eg  =  Egipg.Pg) 


(110) 
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where  Eg(pg,p^)  is  the  equf»ion-of-state  for  gas  phase,  which  will  be  discussed  later. 

The  total  internal  energy  of  solid  particle  phase  is 

E pT  “  E p  -E  ^p)  ®tld  Ep  =  Ecomb  "h  ^s'Ep^  {-■  •  4 ) 

In  order  to  close  the  above  system  of  conservation  equations,  it  is  necessary  to 
define  certain  criteria  and  interaction  laws  between  the  two  phases,  which  include  mass 
generation  rate,  F,  drag  force  between  particles  and  gas,  ,  Fy  and  the  interphase  heat 
transfer  rate  Q.  The  model  for  panicle  and  gas  interaction  and  particle  combustion  that 
results  in  the  constitutive  relation  for  the  conservation  equations,  is  explained  in  detail 
in  the  next  subsection. 

Model  for  a  Panicle  Gas  Interaction  and  Combustion 

Presently  the  physics  of  the  energy  release  mechanisms  in  solid  panicles/air  mixtures 
is  not  clearly  understood.  This  can  be  attributed  to  the  obvious  difficulties  of  making 
a  direct  non-obtrusive  measurement  in  the  optically  thick  environment  typical  for  this 
system.  In  the  experimental  and  theoretical  work  done  for  the  grain  dust  detonation 
conditions  (Kauffinan  et  al.,  ( 1979),  it  was  demonstrated  that  the  volatile  components 
released  by  the  panicle  heated  behind  the  shock  front  play  a  major  role  in  determining 
the  detonability  limits  of  the  mixture.  Eidelman  and  Burcat  (1981)  successfully  applied 
a  combination  of  fast  evaporation  and  aerodynamic  shattering  mechanisms  to  simulate 
a  two-phase  detonation  process. 

The  chemical  processes  of  a  single  particle  combustion,  which  mainly  occur  in  the 
gaseous  phase,  are  significantly  faster  than  the  physical  processes  of  panicle  gasification 
or  disintegration.  Thus,  in  the  multi-phase  mixtures,  the  rate  of  energy  release  will  be 
mostly  determined  by  physics  of  particle  disintegration.  It  is  very  difficult  to  describe  the 
details  of  panicle  disintegration  in  the  complex  environment  prevalent  behind  the  shock 
or  detonation  wave.  For  example,  Reinecke  and  Waldman  (1975)  defined  five  different 
disintegration  regimes  for  a  relatively  simple  environment  of  water  droplets  passing 
through  a  weak  shock.  Fonunately,  in  most  cases  of  multi-phase  detonation,  only  the 
main  features  of  the  panicle  disintegration  dynamics  need  to  be  captured  to  describe  the 
phenomena.  For  example,  Eidelman  and  Burcat  (1980)  used  simple  models  for  particle 
evaporation  and  shattering  to  obtain  simulation  results  that  compared  very  favorably 
with  experimental  data.  Because  of  our  inability  to  resolve  the  particle  disintegration 
problem  in  all  its  complexity,  the  validation  of  the  model  against  known  experimental 
data  is  essential. 

In  this  paper  we  consider  solid  particles  consisting  of  explosive  material.  Explosive 
material  contains  fuel  and  oxidizer  in  a  passive  state  at  low  temperature;  however,  when 
the  temperature  rises  the  fuel  and  oxidizer  react,  leading  to  detonation  or  combustion. 
The  initiation  for  explosives  will  occur  at  a  relatively  low  temperature.  For  example, 
TNT  will  detonate  when  heated  to  the  temperature  of  570°  C.  Only  particles  larger  than  a 
critical  detonation  size  can  detonate  directly  when  initiated  by  a  shock  wave.  We  consider 
here  particles  smaller  than  4mm  in  diameter  that  will  not  detonate  when  heated,  but  will 
bum  when  the  temperature  on  the  particle  surface  reaches  a  critical  value.  Since  the  heat 
conduction  inside  the  explosive  material  is  relatively  slow,  the  process  of  panicle  heating 
needs  to  be  resolved  in  detail.  Our  simulations  numerically  solve  the  temperature  field 
in  the  particles  at  every  time  step  of  numerical  integration  of  the  global  conservation 
equations.  The  explosive  particle  combustion  model  examined  in  this  paper  assumes  that 
the  fraction  of  the  particle  that  reaches  the  critical  temperature  will  burn  instantaneously. 
Energy  transfer  by  convection  and  conduction  is  simulated  by  solving  the  unsteady  heat 
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conduction  equation  in  each  computational  cell  at  each  time  step.  Assuming  a  particle’s 
temperature  to  be  a  function  of  time  and  radial  position  only,  the  unsteady  heat 
conduction  equation  may  be  transformed  to: 


d}w  _  I  dw 
dr^  a  dt' 


subject  to  the  boundary  conditions: 


(2.12) 


w=Q  at  r  =  Q,  t>Q 

k^=(h-j)w  =  hRTg  at  r  =R.t  >0  (2.13) 

where; 

H>(r,f)  =  rTp{r,t) 

r  =  radial  position 

T(r,t)  =  temperature 

R  =  partial  radius 

T;  s  temperature  of  surrounding  gas 

k  s  thermal  conductivity  of  panicle 

h  ~  convective  heat  transfer  coefficient. 

The  Nusselt  number,  used  to  find  h,  is  given  by  an  empirical  relation  given  by  Drake 
(1961).  The  gas  viscosity  is  found  from  Sutherland’s  Law.  The  gas  thermal  conductivity 
is  calculated  by  assuming  a  constant  Prandtl  number.  Lastly,  the  boiling  temperature  at 
a  given  pressure  is  found  from  the  Qapeyron-Clausius  equation  under  the  assumptions 
of;  1)  constant  latent  enthalpy  of  phase  change,  2)  the  vapor  obeys  the  ideal  equation* 
of-state,  and  3)  the  specific  volume  of  the  solid/liquid  is  negligible  compared  to  that  of 
the  vapor.  A  critical  temperature  is  also  employed  to  serve  as  an  upper  limit  to  the 
boiling  point,  regardless  of  pressure. 

Equation  (2.12)  with  boundary  condition  (2.13)  can  be  numerically  integrated  using 
either  implicit  or  explicit  schemes,  which  will  be  explained  later. 

Knowledge  of  the  particle  temperature  profile  also  allows  us  to  determine.  F,  the 
rate  of  phase  change  from  solid  particle  to  gas.  Once  any  point  at  a  radial  location 
0  <  r  <  R  has  a  temperature  exceeding  the  boiling  temperature,  the  entire  mass 
between  r  and  R  is  transferred  to  the  gas  phase  in  one  time  step.  In  so  doing,  an  energy 
equal  to  the  product  of  the  mass  lost  and  the  particle  combustion  of  heat  minus  heat  of 
evaporation  energy  is  transferred  from  the  particle  to  the  gas. 

TTie  interphase  drag  forces  {Fx,  Ry)  are  determined  from  the  experimental  drag  for 
a  sphere,  as  presented  by  Schlichting  (1983). 


where 


AfpPjCo|Vg  Vp|(ug  Up)R 


(2.14) 


Co 


for  Re  <  1000: 
for  Re  >  1000. 


(2.15) 


2/n  y  ~~v  1 

and  Re  =  ,  R  is  the  radiits  of  the  particle  and  tig  's  gas  viscosity  at  a 

temperature  of  Tf„„  =  4(7^  +  Tp).  Similarly,  the  formula  for  Fy  is 


:06 


SHMLiEL  EtDELMAN  AND  XIAOLONG  YANG 


Fy  —  ppyC[)\yg  Vp I (vg  Yp ) R  . 


(2.16) 


Equation  of  State  for  Detonation  Products 


To  close  the  system  of  governing  equations,  one  needs  a  constitutive  relation  between 
density,  pressure,  temperature,  and  energy  for  gas  phase,  which  is  an  equation-of-state. 
This  studv  uses  the  Becker-Kistiakowsky-Wilson  (BKW)  equation-of-state  (cf  Cowan 
and  Pickett,  1956;  Mader.  1979),  which  is. 

Pg^g/RTy  \  (2.17) 


Ts 

R 

X 

k 


where  Vg  —  volume  of  gas  phase 
Pg  =  pressure  of  gas  phase 

temperature  of  gas  phase 
universal  gas  constant 
kiF.(T  +  <dr 
x,k, 

with  empirical  constants  a.b.K.Q  and  k,.  The  ccijtants  k,,  one  for  each  molecular 
species,  are  co-volumes.  The  co-volumes  are  multiplied  by  their  mole  fraction  of  species. 
X,,  and  are  added  to  find  an  elTective  volume  for  a  mixture.  For  a  particular  explosive, 
if  we  know  the  composition  of  detonation  products  a,  6,  9,  /C ,  and  all  k,  s  can  be  found 
in  the  book  by  Mader  (1979), 

The  internal  energy  is  determined  by  thermodynamics  relation 


(2.28) 


Integration  of  this  equation  for  a  fixed  composition  of  the  detonation  products  will 
allow  us  to  calculate  the  energy  of  the  detonation  products  as  a  function  of  temperature 
and  volume.  The  thermodynamic  properties  as  functions  of  temperature  were  calculated 
for  each  component  from  the  NASA  tables  compiled  by  Gordon  and  McBricie  (1976) 
The  BKW  equation-of-state  is  the  most  used  and  well  calibrated  of  those  equations- 
of-state  used  to  calculate  the  properties  of  detonation  products.  The  detailed  discussion 
and  review  of  the  BKW  equation-of-state  can  be  found  in  the  literature  (cf.  Cowan  and 
Pickett.  1956;  Mader.  1979). 


Numerical  Method  of  Solutions 

The  system  of  partial  differential  equations  described  in  the  previous  paragr-aph  i.s 
integrated  numerically.  Equations  (2.1) — (2.9)  can  be  written  m  the  following  vector 
font 


J<1>  'IF  t)G 

lit  i)x  '>V 


(2,19) 


In  order  to  numerically  solve  this  equation,  an  operator  time-splitting  technique  is 
used.  A-Ssuming  that  ail  flow  variables  are  known  at  a  given  time,  we  can  calculate  its 
advancement  in  lime  bv  splitting  the  integration  into  two  stages. 

In  the  first  .stage,  the  con.servative  pan  of  Hq.  (2  19)  is  solved: 
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^  OF  dG 
dt  dx  dy 


(2.20) 


The  Second  Order  Godunov  method  is  used  for  the  integration  of  the  subsystem  of 
equations  describing  the  gaseous  phase  how.  The  method  is  welt  documented  in  the 
literature  (cf.  Eidelman  et  ai,  1984;  Colella,  1985;  Colella  and  GIaz,  1985).  In  the 
following  we  will  elaborate  only  some  specifics  of  application  of  the  method  with  BKW 
equatioD'Of'State  to  simulate  detonation  product. 

The  physical  system  under  study  will  have  concentrations  of  solid  explosive  particle 
ranging  from  1000  kg/m^  near  the  ground  to  0.75  kg/m^  in  the  cloud.  Detonation  of  this 
mixture  will  create  detonation  products  with  effective  -y  ranging  from  3  to  1. 1.  To  desenbe 
the  flow  of  detonation  products,  we  use  the  BKW  equation-of-state  described  previously. 
Since  the  Second  Order  Godunov  method  uses  primitive  variables  to  calculate  Riemann 
problems  at  the  edges  of  the  cells,  its  implementation  for  non-ideal  EOS  is  difficult.  In 
our  simulations,  we  have  resolved  this  problem  by  involving  a  local  parameterization  of 
EOS  and  by  using  direct  and  inverse  equations-of-state.  After  integrating  a  system  of  gas 
conservation  laws,  we  use  the  direct  BKW  equation-of-state  to  calculate  pressure,  gamma, 
and  temperature  as  functions  of  thermal  energy,  density,  and  mixture  composition. 
After  this  step,  we  have  a  complete  set  of  parameters  allowing  calculation  of  the  fluxes 
obtained  from  solving  the  Riemann  problem  (Colella  and  GIaz.  1985).  The  "inverse.  ” 
EOS  calculates  internal  energy  as  a  function  of  density  and  pressure.  In  our  code  we 
use  the  “inverse”  EOS  to  calculate  the  fluxes  of  conserved  variables  after  calculation  of 
the  flux  from  Riemann  problem  of  primitive  variables. 

The  subsystem  of  equations  describing  the  particle  phase  flow  is  integrated  using  a 
simple  finite  difference  upwind  scheme.  This  is  done  because  there  is  no  shock  in  the 
particle  phase  and  the  upwind  scheme  leads  to  a  robust  and  accurate  integration  scheme. 

In  the  second  stage,  the  source  term  is  added  and  the  following  equation  is  solved: 


(2.21) 


lb  integrate  this  equation  in  time,  we  need  to  obtain  U  as  a  function  of  <I>.  To  do 
this,  we  first  solve  the  panicle  heat  conduction  and  heat  transfer  equation  (2.12)  with 
a  boundary  condition  (2.13)  that  gives  the  temperature  distribution  as  a  function  of 
panicle  radius  and  time  using  a  local  panicle  grid.  Since  the  panicle  radius.  R.  will 
become  very  small  due  to  evaporation,  the  implicit  Crank-Nicolson  algorithm  is  used 
because  of  its  stability  propenies  and  its  second  order  temporal  and  spatial  accuracy. 
Using  the  Crank-Nicolson  scheme  to  predict  the  panicle  temperature  profiles  at  times  tx 
and  ti  permits  easy  calculation  of  the  total  energy  exchange,  Q,  between  t|  and  /t.  due 
to  convection  and  conduction.  Knowing  the  temperature  distribution  inside  the  panicle, 
we  can  calculate  gas  generation  rate  F.  drag  force  T, ,  F» .  and  heat  exchange  Q,  between 
two  phases  and  hence,  il  of  Eq.  (2.21).  After  obtaining  the  source  term,  we  can  integrate 
Eq.  (2.21)  by  an  explicit  scheme. 

For  the  multiphase  system  under  study,  A,  =  =  Imm  was  used  to  allow  explicit 

integration  of  the  gasdynamic  and  physical  processes  of  evaporation  and  heat  release 
When  a  mismatch  occurred  between  the  physical  and  gasdynamical  charactenstic  times, 
the  time  step  was  adjusted  by  some  fraction  to  assure  stability.  However,  the  resulting 
time  step  was  not  significantly  smaller  than  that  calculated  by  CFL  criteria.  For  larger 
cell  sizes,  this  approach  vill  be  impractical. 

The  numencal  method  is  implemented  in  a  code  named  MPHASE,  which  is  fully 
vectorized  and  supported  by  number  of  graphics  and  diagnostics  code,s. 
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Table  1. 

One  Dimensional  Validation  Result 


D[in/sec| — Detonation  wave  velocity. 

Pt7{Pa| — Pressure  at  Chapman-Jouguei  Point 

Pp(Pa) — Peak  pressure:  pp(kg/m^] — Peak  density 
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Ref  1 — Mader.  C.  •‘Nuroencal  Modeling  of  Detonation,"  (Univetsity  of  California  Press.  Ltd,,  19791.  p 


47. 


Ref  2 — Wiedennann.  A..  "An  Evaluation  of  Bimodal  Layer  Loading  Effects."  IITRI  Report.  Feb..  1990. 
Ref  3— Stanukovitch.  K.P.,  “Physics  of  Explosion"  (in  Russian).  Nauka.  1975. 


3.  RESULTS 


Model  Validation  for  a  One  Dimensional  Detonation  Wave  Problem 

The  main  advantage  of  our  particle  combustion  model  is  its  description  of  the  detonation 
phenomenology  for  a  wide  range  of  explosive  particle  sizes  and  densities.  We  will 
demonstrate  this  capability  on  a  set  of  one  dimensional  test  problems.  For  these  test 
problems  we  have  simulated  the  initiation  and  propagation  of  the  detonation  waves  tn  a 
shock  tube-like  setting,  where  the  explosive  particles  are  distributed  uniformly  through 
the  shock  tube  volume. 

Results  of  these  simulations  arc  summarized  in  Table  1.  which  shews  detonation  wave 
velocity,  peak  pressure,  and  peak  density  given  as  a  function  of  the  average  density  of  the 
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Solid  Wall 


FIGURE  I  Compuiaiional  domain  and  boundary  condilions. 

solid  explosive.  Here  the  explosive  two-phase  mixture  is  composed  from  RDX  particle 
and  air,  where  RDX  particle  concentration  varies  from  0.75  kg/m^  to  1000  kg/m^.  This 
concentration  variation  covers  the  whole  range  of  solid  explosive  concentrations  of  interest 
to  our  problem.  The  simulations  performed  with  the  MPHASE  code  were  compared 
with  the  experimental  results  (Mader.  1979;  Stanukoviich.  1975),  and  calculaiions  were 
done  with  the  TIGER  code  presented  by  Wiedremann  (1990). 

From  Table  1.  it  is  clear  that  our  simulation  results  compare  favorably  with  other 
simulation  results  and  experimental  data.  The  maximum  deviation  between  our  results 
and  referenced  results  is  no  greater  than  15%  for  the  entire  range  of  explosives  densities. 
Considering  that  our  results  were  obtained  with  a  single  model  for  panicle  combustion 
applied  to  the  extreme  range  of  densities,  our  model  gives  an  excellent  prediction  of  the 
detonation  wave  parameters. 

Two  Dimensional  Simulation  Results 

Figure  I  shows  a  setup  for  a  typical  two  dimensional  simulation.  Here  the  computational 
domain  is  25cm  x  25cm.  The  explosive  powder  density  is  distributed  according  to  the 
4th  power  law  of  vertical  distance,  staning  from  the  ground  where  the  density  is  8(X) 
kg/m^,  and  rising  to  1,2cm.  where  the  density  is  0.75  kg/m^.  From  this  point  to  25cm 
height,  the  density  is  constant  and  equal  to  0  75  kg/m3.  The  density  distribution  in  the 
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FIGURE  2 
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See  COLOR  PLATE  IV 


Founh  power  disinbuiion  of  particle  density  in  the  layer.  The  maaunum  density  in  the  layer 
(2a),  (2b),  and  (2c)  are  gas  pressure,  gas  density,  and  particle  density  at  12  (isec.  respecttvelv. 
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FIGURE  2  (Contmuedi  (2d).  (2e).  and  (2f)  arc  gas  pressure,  lemperaiure.  and  particle  density  at  55 
respectively.  See  also  COLOR  PLATE  IV 
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direction  of  the  “x”  axis  is  uniform.  The  boundary  conditions  for  the  computationai 
domain  shown  in  Fig.  1  are  specified  as  follows;  solid  wall  along  the  “x”  axis;  symmetry 
conditions  along  the  “y”  axis:  supersonic  outflow  for  upper  boundary  and  at  the  right 
of  the  computational  domain.  The  mixture  consists  of  RDX  powder  and  air  at  ambient 
conditions  and  it  is  assumed  to  be  quiescent  at  the  time  of  initiation. 

The  simulation  starts  at  t  =  0  when  the  mixture  is  initiated  at  the  lower  left  corner 
of  the  computational  domain  by  an  initiating  charge,  as  shown  in  Fig.  I.  The  initiatmg 
charge  is  6  mm  x  10  mm,  with  pressure  of  4  GPa  and  density  of  450  kg/m-*.  The  energy 
released  by  the  initiating  explosion  leads  to  formation  of  the  detonation  wave  propagating 
through  the  multiphase  media.  Figure  2a  shows  pressure  contours  for  the  propagating 
detonation  wave  at  the  time  of  t  =  12  (isec  after  initiation.  Here  the  pressure  contour 
levels  are  shown  on  logarithmic  scale  in  MPa.  The  maximum  pressure  value  of  7940  MPa 
is  observed  in  the  layer  of  condensed  explosive  located  near  the  ground.  The  pressure  in 
the  layer  is  two  to  three  orders  of  magnitude  higher  than  pressure  behind  the  detonation 
wave  in  the  0.75  kg/m^  RDX  cloud  and  air  located  above  the  distance  of  1.2cm  from 
the  ground.  Figure  2a  demonstrates  that  the  detonation  wave  in  the  cloud  is  overdriven, 
since  the  pressure  behind  the  shock  continuously  rises  and  reaches  its  maximum  in  the 
layer.  From  this  figure,  we  also  observe  that  the  overdriven  wave  propagates  faster  in 
the  cloud  than  in  the  layer.  This  is  explained  by  the  fact  that  it  is  easier  to  compress  air 
that  is  very  lightly  loaded  with  particles  and  located  above  the  ground  layer,  than  it  is  to 
compress  air  heavily  loaded  with  a  particle  mixture  near  the  ground.  It  is  interesting  to 
note  a  discontinuous  pressure  change  between  the  yellow  contours  and  the  light  blue  and 
green  contours  behind  the  detonation  front.  This  discontinuity  is  over-emphasized  by 
our  presentation  of  contour  lines  on  the  logarithmic  scale;  however,  further  examination 
of  our  simulation  results  indicates  this  feature  is  real  and  is  similar  in  nature  to  barrel 
shocks  observed  for  strong  jets. 

In  Fig.  2b,  gas  phase  density  contours  are  shown  for  the  time  t  =  12  ^isec.  Here  the 
contour  lines  are  distributed  on  logarithmic  scale.  The  main  features  of  the  shock  wave 
structure  are  very  similar  to  those  observed  in  the  pressure  contours  figure-  Here  we 
see  that  a  jet  of  high  density  gases  reflects  from  the  center  of  symmetry  axis,  creating  a 
contact  discontinuity  that  we  will  observe  at  later  times.  The  barrel  shock  is  clearly  visible 
in  this  figure.  In  Fig.  2c,  the  particle  density  contour  plots  are  shown  for  t  =  12  usee. 
The  contour  levels  in  Fig.  2c  arc  given  on  the  logarithmic  scale  and  the  initial  deposition 
of  the  explosive  material  in  the  ground  layer  of  the  computational  domain  can  be  clearly 
observed.  The  black  contour  lines  delineate  the  beginning  and  the  end  of  the  reaction 
zone  in  the  cloud.  To  the  left  of  these  contours  lies  an  area  with  combustion  products 
and  to  the  right  unbumed  particles  in  the  cloud.  Here  we  can  see  that  the  reaction  zone 
length  is  of  the  order  of  Icm. 

Figure  2d  shows  pressure  contours  for  the  same  simulation  for  the  time  t  =  55  usee  just 
before  the  detonation  wave  leaves  the  computational  domain.  In  this  figure  we  see  that 
the  global  structure  of  the  wave  did  change  slightly  from  Fig.  2a.  We  observe  that  the 
barrel  shock  wave  is  fully  developed  and  has  a  half  ellipse  shape.  The  detonation  wave 
in  the  cloud  is  still  overdriven;  however,  part  of  the  shock  wave  front  that  propagates 
vertically  becomes  weaker  as  it  gets  further  away  from  the  detonation  front  in  the  layer. 
In  Fig.  2e.  gas  temperature  contours  are  shown  at  t  =  55  usee.  In  this  case,  it  is 
interestinr  to  note  that  the  highest  temperatures  are  observed  behind  the  front  of  the 
overdriven  cloud  detonation  wave  in  immediate  vicinity  of  the  layer  s  upper  strata.  Very 
high  temperatures  in  this  region  can  be  explained  by  the  high  pressure  generated  from 
the  detonation  of  the  explosive  material  in  the  layer  and  by  relatively  low  density  of 
cloud  strata  in  the  layer  s  immediate  vicinity.  Here,  as  in  the  pressure  contours  graph, 
the  area  of  barrel  shock  can  be  clearly  identified. 
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FIGURE  3  History  of  pressure  distribution  on  the  ground  from  initiation  to  steady  deionaiion;  □  -  0 
tacc,  0-12  /isec,  A  -  24  <:iet:.  +  -  34  /isec.  x  -  44  ijsec  and  O  -  55  lisec. 


We  also  observe  in  Fig.  2  a  clear  development  of  two  detonation  fronts,  one  moving 
vertically  in  the  cloud  and  another  moving  horizontally  in  the  layer.  Because  the  energy 
density  of  the  explosive  particle  in  the  layer  is  about  three  orders  of  magnitude  larger 
than  it  is  in  the  cloud,  the  vertical  parts  of  the  front  represent  an  overdriven  detonation 
wave  in  the  cloud.  Even  though  the  vertical  front  has  slowed  down  compared  with  the 
horizontal  front,  its  speed  and  parameters  far  exceed  those  typical  for  detonation  waves 
in  a  cloud.  In  fact,  the  self-sustained  detonation  regime  in  the  cloud  will  develop  at 
the  distance  of  about  three  meters  from  the  layer.  The  area  of  the  front  close  to  the 
detonation  wave  in  the  layer  will  remain  hot  and  overdriven,  since  it  is  located  very 
close  to  the  detonation  front  in  the  layer.  In  Fig,  2f.  particle  density  contours  are  shown 
on  a  logarithmic  scale.  We  can  clearly  observe  the  reaction  zone  delineated  by  black 
contour  lines.  In  this  case,  the  reaction  zone  length  in  the  cloud  is  about  1cm.  Consistent 
with  the  gradual  transition  from  overdriven  to  self-sustained  detonation,  the  reaction 
zone  length  is  larger  for  the  vertical  part  of  the  detonation  front.  The  detonation  wave 
velocity  observed  in  our  simulation  is  approximately  4048  m/sec.  which  is  significantly 
lower  than  the  detonation  wave  velocity  observed  in  RDX  with  a  density  of  860  kg^m^ 
(see  Table  1),  which  is  the  highest  density  in  the  ground  layer.  This  can  be  explained 
by  a  high  gradient  of  particle  density  distribution  in  the  layer,  where  the  density  drops 
rapidly  from  800  kg/m^  at  the  bottom  of  the  layer  to  0,75  kg/m^  at  the  top  strata  of  the 
layer  at  12  mm  above  the  ground. 
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FIGURE  4  2.5  cm  thick  layer  at  constant  density  of  100  kg/m^.  Density  in  the  cloud  is  0  75  kg/m  ’.  (4aK 

(4b).  and  (4c)  are  gas  pressure,  gas  density,  and  panicle  density  at  66  iisec,  respectively.  See  COLOR  PLATE 
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FIoURE^S  1.2  cm  thick  panicle  layer  at  constant  density  of  250  kg/m^.  Particle  density  in  the  cloud 

0.75  kg/m  .  (5a),  (5b).  (5c)  are  gas  pressure,  gas  density,  and  panicle  density  at  b5  nxc.  respecnvelv.  Sc 
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To  show  the  transient  process  from  initiation  to  steady-state  detonation,  we  plot 
the  pressure-distance  profiles  at  six  separate  times  after  ignition  (Fig.  3).  Here  the 
pressure  is  taken  on  the  ground.  Examining  the  profiles,  we  observe  that  the  steady 
detonation  is  reached  after  lOcm.  For  each  profile,  we  see  that  the  pressure  distribution 
is  characterized  by  a  strong  detonation  front  followed  by  a  fast  expansion  wave  because 
of  lateral  expansion. 

lb  further  explore  properties  and  phenomenology  of  the  detonation  waves  propagating 
in  the  layer/cloud  systems,  we  simulated  additional  cases  in  which  explosive  powder  density 
distribution  was  different  from  the  case  reported  above,  although  total  weight  of  particle 
per  unit  area  remained  the  same. 

In  Fig.  4,  results  are  shown  for  the  case  of  a  uniform  2.S  cm  thick  layer  of  RDX  with 
density  of  100  kg/m^.  and  a  0.75  kg/m^  cloud  initiated  under  the  same  conditions  as  in 
the  previous  example.  Figures  4a,  4b,  and  4c  show  pressure,  gas  density,  and  particle 
density  contour  plots  at  t  =  66  (isec.  Here  we  observe  that  because  the  layer  has  much 
less  density  than  the  case  reported  above,  the  precursor  effect  of  the  detonation  wave 
in  the  cloud  preceding  the  wave  in  the  layer  is  less  pronounced.  We  also  observe  a 
significant  difference  in  the  shape  of  the  strong  contact  discontinuity  in  the  region  of  the 
shock  front  close  to  the  layer.  In  Fig.  4b,  we  can  clearly  distinguish  two  contact  surfaces, 
one  between  condensed  explosive  detonation  products  in  the  layer  and  in  the  cloud,  and 
another  between  the  detonation  products  from  layer  explosive  detonation  and  from  cloud 
particle  detonation.  We  should  note  that  these  contact  surfaces  are  over-emphasized 
by  the  logarithmic  display  of  the  contour  plot  levels.  The  maximum  pressure  observed 
in  this  simulation  is  95S  MPa,  which  is  about  one  order  of  magnitude  smaller  than  in 
the  previous  simulation.  This  is  consistent  with  one  order  of  magnitude  difference  in 
the  maximum  density  of  the  ground  layer  in  the  two  cases.  The  detonation  wave  speed 
(3407  m/sec)  for  the  case  presented  in  Fig.  4,  which  is  only  slightly  lower  than  the  speed 
predicted  by  the  one  dimensional  simulations  presented  in  Table  1.  reflects  the  influence 
of  the  two  dimensional  expansion  on  the  detonation  wave  propagation. 

Figure  5  presents  results  for  the  case  of  a  uniform  density  of  250  kg/m^  in  a  1.2  cm 
ground  layer.  All  other  parameters  are  the  same  as  in  the  previous  two  cases.  In  Figs. 
5a,  5b,  and  5c,  pressure,  gas  density,  and  particle  density  contour  plots  are  shown  at  the 
time  t  =  65  psec  after  detonation  wave  initiation.  Here,  the  detonation  wave  propagates 
faster  than  in  the  previous  cases  U  =  3660  m/sec.  This  is  about  400  m/sec  slower  than  in 
the  case  of  fourth  power  density  distribution.  Maximum  pressure  on  the  ground  is  2150 
MPa,  which  is  consistent  with  the  increase  of  powder  density  in  the  layer.  The  basic 
structure  of  the  detonation  front  and  the  contact  surfaces  is  similar  to  the  case  of  fourth 
power  density  distribution. 

4.  CONCLUSIONS 

We  presented  a  mathematical  model  and  numerical  solution  for  the  simulation  of 
detonation  wave  initiation  and  propagation  in  multiphase  mixtures  consisting  of  solid 
combustible  particles  and  gas.  Using  this  model,  we  studied  detonations  in  mixtures  of 
solid  RDX  particles  and  air,  with  the  objective  of  examining  the  effects  of  wide  variation 
in  particle  density  distribution  on  the  dynamics  and  structure  of  detonation  waves.  We 
considered  a  physical  system  of  solid  particle  clouds  in  air  where  a  significant  amount  of 
particle  can  settle  on  the  ground  and  the  particle  phase  concentrations  in  the  particle/air 
mixture  can  range  from  0  to  1000  kg/m^.  This  range  of  solid  phase  densities  necessitated 
development  of  the  mode'  and  its  numerical  implementation  for  a  wide  range  of  particle 
concentrations.  Our  validation  study  has  shown  good  agreement  between  the  simulations 
and  referenced  results  for  the  whole  range  of  particle  concentrations. 
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IVo  dimensional  simulations  were  done  for  the  system  of  low  particle  density  concen¬ 
tration  clouds  and  ground  layers  formed  by  high  concentrations  of  the  RDX  powder.  We 
examined  three  cases  of  ground  layer  density  distribution;  a  fourth  power  distribution 
within  12  mm  above  ground  with  a  maximum  density  on  the  ground  of  800  kg/m^;  a 
uniform  25  mm  thick  layer  with  a  density  of  100  kg/m^;  a  12  mm  thick  uniform  layer  with 
a  density  of  2S0  kg/m^.  In  all  these  cases,  the  weight  of  condensed  phase  per  unit  area 
was  the  same,  which  allowed  examination  of  the  effects  of  the  particle  density  distribution 
on  detonation  wave  parameters. 

In  all  examined  two  dimensional  cases,  the  detonation  wave  in  the  cloud  in  the 
computational  domain  was  signihcantly  overdriven  and  did  not  play  an  important  role. 
We  estimated  that  the  self-sustained  regime  of  the  detonation  wave  in  the  cloud  for  the 
examined  cloud  concentrations  can  occur  only  at  the  distances  of  2-3  M  above  ground. 
At  the  same  time,  the  particle  density  distribution  in  the  layer  determines  the  dynamics 
of  the  detonation  wave  as  well  as  the  pressure  on  the  ground. 

We  observed  in  all  three  two  dimensional  simulations  a  very  distinct  shape  of  the 
detonation  wave  front  in  the  vicinity  of  the  layer.  In  this  area,  the  overdriven  detonation 
in  the  cloud  is  preceding  the  detonation  wave  in  the  ground  layer.  This  feature  of  the 
detonation  front  can  be  explained  by  the  fact  that  the  energy  released  in  the  ground  layer 
detonation  wave  produces  a  faster  propagating  shock  wave  in  the  dilute  cloud  than  in  the 
ground  layer  which  is  heavily  loaded  with  solid  particles.  However,  these  structures  were 
not  observed  experimentally,  and  more  studies  are  needed  to  examine  their  parameters. 

The  maximum  pressure  affecting  the  ground  was  directly  related  to  the  maximum 
particle  density  in  the  lower  strata  of  the  layer.  However,  the  detonation  front  velocity 
for  the  fourth  power  distribution  case  was  considerably  lower  than  calculated  for  a  one 
dimensional  case  with  860  kg/m^  particle  density,  reflecting  the  signiflcant  effect  of  two 
dimensional  expansion.  TWo  other  cases  with  250  kg/m^  and  100  kg/m^  maximum  densities 
had  detonation  wave  velocity  only  slightly  lower  than  the  one  dimensional  simulations 
of  the  same  RDX/air  concentrations.  It  is  interesting  to  compare  the  simulation  of  the 
fourth  power  density  distribution  case  and  the  250  kg/m^  case.  In  both,  the  same  amount 
of  explosive  was  distributed  in  the  same  physical  space;  however,  the  parameters  of 
developed  detonations  were  vastly  different.  Existence  of  the  high  density  strata  at  the 
bottom  of  the  ground  layer  in  the  fourth  power  case  significantly  increased  the  maximum 
pressure  at  the  ground,  and  produced  higher  detonation  wave  velocity. 

Using  a  variable  density  layer,  we  can  reach  a  combination  of  pressure  and  velocity 
conditions  outside  of  the  Chapmen-Jougett  limitations.  The  range  of  conditions  that  can 
be  obtained  in  the  variable  density  system  and  its  parametrics  needs  a  more  systematic 
study.  In  this  article,  we  introduced  only  the  mathematical  formulation  and  numerical 
simulation  method  validated  for  the  range  of  conditions  of  interest.  In  addition,  we 
have  given  some  examples  of  the  method’s  application  for  two  dimensional  simulations. 
However,  this  methodology  should  be  linked  to  an  experimental  study  for  a  more  in-depth 
analysis  of  the  phenomenology  discussed  here. 
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Abstract 

The  unsteady  shock  wave  reflection  and  diffraction 
generated  by  a  shock  wave  propagating  over  a  semicircu¬ 
lar  cylinder  in  a  dusty  gas  are  studied  numerically.  The 
mathematical  model  is  a  multi-phase  system  based  on 
a  multi-fluid  Eulerian  approach.  A  Second  Order  Go¬ 
dunov  scheme  is  used  to  solve  the  gas  phase  Euler  equa¬ 
tions  and  an  upwind  scheme  is  used  to  solve  the  par¬ 
ticle  phase  conservation  equations  on  an  unstructured 
adaptive  mesh.  For  the  validation  of  the  model,  the 
numerically  predicted  one  dimensional  shock  wave  at¬ 
tenuation  is  compared  with  experimental  results.  Shock 
wave  reflection  and  diffraction  over  a  semicircular  cylin¬ 
der  in  a  pure  gas  flow  is  simulated  first  to  show  the  ex¬ 
cellent  agreement  between  the  present  computation  and 
the  experimental  results.  For  a  shock  wave  reflection  and 
dti&action  in  a  dusty  gas,  the  effects  of  particle  size  and 
particle  loading  on  the  flow  field  are  investigated.  Gas 
and  panicle  density  contour  plots  are  presented.  It  has 
been  shown  that  the  shock  wave  configuration  differs  re- 
rnsrltably  from  pure  gas  flow  depending  on  the  particle 
parameters.  The  difference  is  explained  as  the  result  of 
momentum  and  heat  exchange  between  the  two  phases. 

Introduction 

Shock  wave  propagation  into  a  gas  particle  suspen¬ 
sion  medium  has  attracted  great  attention  in  recent  years 
due  to  iu  many  engineering  applications.  Some  of  these 
applications  include  blast  wave  propagating  over  a  dusty 
surface,  exhaust  from  a  solid  propellant  rocket,  and  coal 
or  pain  dost  drtonation.  Many  studies  dealing  with  two 
phase  environment  can  be  found  in  literature.  A  general 
description  and  theoretical  analysis  of  such  flow  can  be 
found  in  review  papers  by  Marble*  and  by  Rudinger,* 
and  in  a  book  by  Soo.^  Numerical  models  for  dilute  gas- 
particle  flows  were  reviewed  by  Crown.’*  Numerical  stud¬ 
ies  of  gas-particle  flow  in  a  solid  rocket  nozzle  can  be 
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found  in  Refii.  5  and  6.  Miura  and  GIsm  '  theoreti¬ 
cally  and  numerically  studied  the  oblique  shock  waves 
in  a  dusty-gas  flow  over  a  wedge.  The  one-dimensional 
unsteady  structure  of  shock  waves  propagating  through 
a  gas-particle  mixture  was  investigated  both  experimen¬ 
tally  and  numerically  by  Sommerfeld."*  Recently,  Kim 
and  Chang^  illustrated  a  numerical  simuhstion  of  shock 
wave  propagation  into  a  dusty  gas  and  the  reflection  of 
the  wave  from  a  wedge.  Shock  wave  ignition  of  different 
reactive  dust  is  experimentally  investigated  by  Sichel  ei 
a/.*°  and  comprehensive  model  for  the  structure  of  dust 
detonations  is  also  described  by  Fan  and  Sichel.** 

In  this  paper,  we  study  shock  wave  reflection  and 
diffraction  over  a  semicircular  cylinder  in  a  dusty  gas. 
We  numerically  simulate  the  problem  of  a  shock  wave 
initiated  in  a  pure  gas  section  moving  into  a  dusty  re¬ 
gion  and  impinging  on  a  semicircular  cylinder.  We  first 
formulate  the  compressible  two-phase  flow  on  the  basis 
of  a  Eulerian  multi-fluid  formulation.  We  consider  the 
two  phases  (i.e.,  gas  and  particle)  to  be  interpenetrat¬ 
ing  continua.  The  dynamics  of  the  flow  ace  governed  by 
conservation  equations  of  each  phase  and  the  two  phasa 
ate  coupled  by  interactive  drag  force  and  heat  transfer. 
We  solve  the  system  of  conservation  equationa  numeri¬ 
cally  on  an  unstructured  adaptive  grid.  The  objectives 
of  the  study  are;  (a)  to  solve  the  two-phase  compress¬ 
ible  flow  field  and  compare  the  simulatioo  with  available 
experimental  results;  (b)  to  observe  and  investigate  the 
reflection  and  diffraction  wave  patterns  whoi  a  shock 
wave  propagates  over  a  semicircular  cylinder  in  a  dusty 
gas,  with  particle  radius  and  loading  as  parameters. 

The  outline  of  this  paper  is  as  foUows.  Section 
2  gives  a  description  of  the  mathematical  model  and 
method  of  numerical  solution,  including  governing  con¬ 
servation  equations  for  two  phases,  the  oinstitutive  laws, 
the  initial  and  boundary  conditions,  and  particle  param¬ 
eter.  A  brief  outline  of  numerical  schemes  and  the  adap¬ 
tive  unstructured  grid  is  also  given.  In  Section  3,  we 
present  our  numerical  simulation  results.  We  validate 
our  model  by  comparing  a  one-dimensional  simulation  of 
a  shock  wave  propagating  into  a  dusty  gas  with  available 
experimental  results.  We  also  show  the  excellent  agree¬ 
ment  between  our  two-dimensional  gas-on'y  simulation 
with  existing  experimental  results.  Results  for  reflection 
and  diffraction  of  shock  wave  over  a  semicircular  cylinder 
are  given  for  different  particle  parameters.  Concluding 
remarks  are  given  in  Section  4, 
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Mathemaiical  Model  and  the  Numencal  Solution 


CLonservaiion  Eouationa 

The  mathematical  model  consists  of  conservation 
governing  equations  and  constitutive  laws  that  provide 
closure  for  the  model.  The  basic  formulation  adopted 
here  foUows  the  gas  and  dilute  particle  flow  dynamics 
model  presented  by  Soo.^  The  following  assumptions  are 
used  during  the  derivation  of  governing  equations; 

(1)  The  gas  is  air  and  is  assumed  to  be  ideal  gas; 

(2)  The  particles  do  not  undergo  a  phase  change  because 
for  particles  considered  here  (sand)  phase  transition  tem¬ 
perature  is  much  higher  than  the  temperatures  typical 
for  the  simulated  cases; 

(3)  The  particles  are  solid  spheres  of  uniform  diameter 
and  have  a  constant  material  density; 

(4)  The  volume  occupied  by  the  particles  is  negligible; 

(5)  The  interaction  between  particles  can  be  ignored; 

(6)  The  only  force  acting  on  the  particles  is  drag  force 
and  the  only  heat  transfer  between  the  two  phases  is 
convection.  The  weight  of  the  solid  particles  and  their 
buoyancy  force  ace  negiigibly  small  compared  to  the  drag 
force; 

(7)  The  particles  have  a  constant  specific  heat  and  are 
assumed  to  have  a  uniform  temperature  distribution  in¬ 
side  each  particle. 

Under  the  above  assumptions,  distinct  equations  of 
continuity,  momentum,  and  energy  ate  written  for  each 
phase.  The  interaction  effects  between  the  two  phases 
are  listed  as  the  source  terms  on  the  righthand  side  of 
the  governing  equation.  The  two-dimensional  unsteady 
conservation  equations  for  the  two  phases  can  be  written 
in  the  vector  form  in  Cartesian  coordinates; 


w  ^  ao 

di  dx  ^  dy 


(1) 


Here  U  is  the  vector  of  conservative  variables,  F  and 
G  are  fluxes  in  x  and  y  direction,  respectively,  and  5  is 
the  source  term  for  momentum  and  heat  exchange.  The 
definition  of  these  vectors  are; 
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where  p,u,v,  and  e  are  gas  der.  .ty,  velocities,  and  en¬ 
ergy,  respectively:  Pp,Up,Vp  anc  Cp  are  particle  density, 
velocities,  and  energy,  respectively;  (/,,/,)  and  q  de¬ 
notes  drag  force  components  acting  on  the  particles  and 
heat  transfer  to  the  particles,  respectively.  The  gas  pres¬ 
sure  p  is  related  to  p,  u,  v  and  e  for  by 


p  =  (7  -  l)[e -0.5p(u^ -f- v^))  (2) 

where  j  is  the  specific  heat  ratio.  The  gas  temperature 
can  be  found  through  ihe  equaiion-of-state  for  ideal  gas 


p  =  pRT  (3)  # 

where  R  is  the  gas  constant. 

The  particle  temperature  Tp  is  calculated  through  rela¬ 
tion 


Cp  =  PpCpTp  4-  0.5pp{ul  +  V*).  (4)  ^ 

The  source  terms  on  the  righthand  side  of  £q.  (1) 
are  momentum  and  heat  exchange  between  gas  and  par- 
tide  phases.  If  we  let  tp  and  p,  be  the  partide  radius 
and  material  density,  respectively,  then  the  drag  forces 
are 
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(U  -  Up) 


The  partide  drag  coefficient  C4  depends  on  relative 
Reynolds  number.  Re  and  relative  Mach  number,  Mp. 
In  the  present  study,  since  the  relative  Mach  number  is 
small  {  Mr  <  0.5  ),  the  effect  of  Mr  on  €4  is  neglected. 
The  Reynolds  number.  Re,  is  based  on  the  relative  ve- 
lodty  between  the  gas  and  particle  phases.  After  testing 
the  drag  coefficients  given  by  Sommerfeld*  and  by  Clift 
et  the  following  two  were  adopted; 


C4  =  -^-(1  +  0.15Re°  for  Re  <  800. 
He 


and 
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for  Re  >  800  . 

Here  the  Reynolds  n»’mher  Re  is  defined  a.* 


(6) 


2 
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Hc  = 


2prp[(u  -  +  (v  - 


Viscosity,  p,  is  calculated  at  film  temperature, 
namely,  Tj  =  0.5(Tp  +  T),  and  the  temperature  depen¬ 
dency  of  the  viscosity  is  evaluated  according  to  Suther¬ 
land’s  law 


T  +  <b 


(8) 


dt  dx  dy 
In  order  to  solve  this  equation  numerically,  an  oper¬ 
ator  time-splitting  technique  is  used.  Assuming  that  ail 
How  variables  are  known  at  a  given  tune,  we  can  calcu¬ 
late  Its  advancement  in  time  by  splitting  the  integration 
into  two  stages. 

In  the  hcst  stage,  the  conservative  part  of  Eq.  (1) 
is  solved: 


where  pr  is  the  dynamic  v!sc(»icy  of  the  gaseous  phase 
at  the  reference  temperature  and  is  an  effective  tem¬ 
perature,  called  the  Sutherland  constant. 

The  rate  of  heat  transfer  from  gaseous  phase  to  the 
particle  phase  is  given  by 

where  Fr  =  fiCp/kg  is  the  Prandtl  number,  and  Cp  and 
kf  are  the  specific  beat  and  thermal  conductivity  of  gas, 
respectively.  The  Nusselt  number  iVu  is  a  function  of 
Reynolds  nuiiH)er  and  the  Prandtl  number  as  given  by 
Drake^® 


f/u  s  =  2  +  0.4S9Re°  (10) 

it 

Initial  and  Boundary  Conditions 

The  geometry  of  the  computational  domain  is  shown 
in  Fig.  1.  The  initial  conditions  for  gas  are  p»  = 
and  p,  =  IQl.Shpa,  with  a  coming  shock  at 
X  —  -0.5.  There  are  no  particles  from  -1.0  <  z  <  0.0. 
From  X  >  0.0,  particles  are  initially  in  thermal  and  kine¬ 
matic  equilibrium  with  surrounding  gas.  The  particles 
that  are  uniformly  distributed  in  the  dusty  region  have 
the  following  parameters  for  different  test  problems: 
Mass  ioa^g,  ppi  0.25  kg/w?,  0.76  kg/m^; 

Mass  material  density,  p,:  2500  kg/m^; 

Particle  radii,  rpz  10  pm,  25  pm,  50  pm; 

Specific  heat,  c,:  766  Jfkg/K. 

The  lower  boundary  and  cylinder  surface  are  solid 
wails  and  assumed  adiabatic  and  impermeable.  A  re¬ 
flecting  boundary  condition  is  assumed  for  both  the  gas 
and  particle  phase.  Particles  are  assumed  to  experience  a 
perfect  elastic  collision  with  the  wail  and  reflect  from  the 
wall.  The  right  and  upper  boundaries  are  open  bound¬ 
aries  where  a  nonreflection  boundary  condition  is  used 
for  the  gas  phase  and  a  zero  normal  gradient  condition 
is  used  for  particle  phase. 

Numerical  Method  of  Solutions 

The  system  of  partial  differential  equations  de¬ 
scribed  in  the  previous  paragraph  is  integrated  numeri- 
caily  Equatio.i  d)  is  repeated  here: 


dU  dF  dG  „ 


(11) 


The  Second  Order  Godunov  method  is  used  for 
the  integration  of  the  subsystem  of  equations  describ¬ 
ing  the  flow  of  the  gaseous  phase  (first  four  compo¬ 
nents  of  Eq.  (1)).  The  method  is  well  documented  in 
literature.*^'^®  '®  The  subsystem  of  equations  describing 
the  particle  phase  flow  is  integrated  using  a  simple  first 
order  finite  difference  upwind  scheme^^.  This  is  done 
because  there  is  no  shock  in  the  particle  phase  and  the 
upwind  scheme  leads  to  a  robust  and  accurate  integra¬ 
tion  scheme. 

In  the  second  stage,  the  source  term  is  added  and 
the  foibwing  equation  is  solved: 


dt 


=  S. 


(12) 


lb  integrate  this  equation  in  time,  we  need  to  obtain 
5  as  a  function  of  U.  We  calculate  5  through  Eqs.  (5) 
to  (10). 

In  order  to  produce  a  solution  of  the  high  spatial  ac¬ 
curacy  at  minimal  computational  cost,  an  unstructured 
triangular  grid  with  adaptive  procedure  is  used.  The 
adaptive  procedure  will  automatically  enridi  the  mesh 
by  adding  points  in  the  high  gradient  (or  high  flow  ac¬ 
tivity)  region  of  the  flow  field  and  by  removing  points 
(coarsening  mesh)  where  they  are  not  needed.  The  dy¬ 
namic  nature  of  mesh  enrichment  is  shown  in  Fig.  4  for 
three  different  time  frames.  One  can  see  that  a  very  fine 
mesh  is  generated  around  shock  fronts  and  oth«'  steep 
density  gradient  regions. 


Bauita 


Model  Validation  for  Qn>»-nimensiQnsl  Shock  Wave 
Propagation  in  Dustv  Gas 

To  test  the  momentum  and  heat  exchange  mech¬ 
anism  for  the  current  two-phase  model,  we  first  simu¬ 
late  a  one-dimensional  problem  of  a  normal  shock  wave 
propagating  into  a  dusty  gas.  VVe  numerically  sim¬ 
ulate  the  experiments  conducted  by  Sommerfeld.'*  In 
the  experiments,  small  glass  spherical  particles  of  ma¬ 
terial  density  p,  =  2S00kg/m^,  specific  heat  capac¬ 
ity  c,  =  766J/kg/K.  and  average  diameter  of  27  pm 


3 


were  used  as  the  suspension  particle  phase.  The  incom¬ 
ing  shock  Mach  number  M,  and  particle  loading  ratio 
T}  s  pp/p,  are  two  varying  parameters.  The  experimen¬ 
tal  results  and  our  numerical  simulation  results  of  shock 
Mach  number  as  a  function  of  distance  for  two  test  cases 
are  shown  in  Fig.  2a  (17  =  0.63,  A/,  =  1.49)  and  Fig.  2b 
(if  =  1.4,  M,  =  1.7)  for  comparison  purposes.  It  is  clear 
that  the  agreement  between  the  prediction  of  shock  wave 
attenuations  from  our  present  model  and  the  experimen¬ 
tal  results  is  very  good. 

Two-Dimensional  Simulation  Results  for  Pure  Gas 

£1s2£ 

To  test  the  accuracy  of  the  two-dimensional  compu¬ 
tation,  we  first  compute  the  pure  gas  flow  case  of  a  shock 
wave  reflection  and  diffraction  over  a  semicircular  cylin¬ 
der.  We  then  compare  the  simulation  with  experimental 
results.  Shock  wave  reflection  on  a  wedge  has  been  ex¬ 
tensively  studied  by  many  researchers  (see  e.g.,  review 
papers  of  Ben-Oor  and  Dewey^^  and  Hornung^^).  Shock 
wave  reflection  over  circular  cylinders  was  numerically 
simulated  by  Yang  et  Recently,  Glass  ei  us¬ 
ing  high  order  Godunove  scheme  numerically  simulated 
the  shock  wave  reflection  over  a  half  diamind  and  semi¬ 
circular  cylinder  and  compared  the  simulation  with  ex¬ 
perimental  results  obtained  by  Kaca.^^.  Figure  3  is  a 
schematic  sketch  to  show  four  stages  of  a  shock  wave 
reflection  over  a  aemicircuiat  cylinder  and  terminologies 
idiicb  will  be  used  to  describe  the  flow  fields.  Figures 
4a,  4b  and  4c  show  the  calculated  density  contours  at 
three  moments  in  time.  When  the  planar  shock  wave 
propagates  and  encounters  the  cylinder,  it  first  experi¬ 
ences  a  head-on  collision  with  the  front  stagnation  point 
of  the  semicylinder  and  then  immediately  reflects  from 
the  first  quarter  of  the  cylinder,  forming  a  regular  re¬ 
flection  (^),  which  is  shown  in  Fig.  4a.  The  regular 
reflection  omsista  of  two  shocks,  i.e.,  the  incident  shock 
and  reflected  shock,  both  originating  from  a  common 
point  on  the  cylinder  wall.  As  the  shock  wave  propa¬ 
gates  up  the  cylinder,  the  angle  between  the  incident 
shock  and  the  tangent  of  the  cylinder  becomes  larger 
and  the  regnlar  reflection  changes  into  a  Mach  Reflection 
(MR)  as  shown  in  Fig.  4b.  The  MR  b  characterized  by 
three  waves,  incident  shock  (I),  reflected  shock  (R),  and 
Mach  stem  (M).  All  three  shocks  intersect  at  one  com¬ 
mon  point  called  triple  point  (T).  For  Mach  reflection, 
one  can  further  observe  both  Simple  Mach  Reflection 
(SMR)  and  Complex  Mitch  Reflection  (CMR).  Later,  as 
the  incident  shock  wave  passes  over  the  top  of  the  semi¬ 
circular  cylinder,  it  experiences  a  rarefaction  on  the  back 
side  of  the  cylinder.  The  shock  wave  system  grows  up¬ 
ward  and  rightward  with  a  curved  Mach  stem  and  forms 
a  siipline(S)  or' a  contact  discontinuity  (CD)  as  shown 
in  Fig.  4c.  In  Figs.  5a  and  5b,  the  interferogram  from 


the  experiment"  and  densit  '  contours  from  the  present 
simulation  are  compared  for  e  same  flow  condition  and  _ 
same  lime.  Note  that  the  a  iiiy  leveb  are  normalized 
by  the  ambient  gas  density  Fig.  As  one  can  see 
from  Fig.  5,  the  results  sh  an  e;  nient  quantitative 
as  well  as  qualitative  agree  nt  between  the  numerical 
simulation  and  experimen<  results. 

Two-Dimensional  Simul:-  .on  Results  of  Two-Phase  ^ 
Flow 

The  basic  setup  for  the  two-phase  simulation  b 
shown  in  Fig.  1.  Here  the  planar  shock  with  M$  —  2.8 
propagates  into  an  area  of  a  dusty  gas  and  impinges  on 
a  semicircular  cylinder.  The  interface  between  pure  air 
and  dusty  air  b  located  z  —  0.0  of  the  computational 
domain.  The  area  of  the  dusty  air  contains  a  semicylin¬ 
der  with  a  radius  of  Im.  The  size  of  the  computational 
domain,  initial  parameters  of  the  gas,  parameters  of  the 
incoming  shock,  size  of  the  semicylinder  and  its  locsr 
tion  in  the  computational  domain,  are  the  same  as  in  ^ 
the  reflection  and  diffraction  simulation  presented  in  the 
previous  section. 

The  main  objective  of  thb  set  of  siixmlations  b  to 
study  the  effects  of  particle  size  and  particle  loading 
on  the  parameters  of  the  reflected  and  difEracted  shock 
waves.  It  b  also  valuable  to  study  the  dynamics  of  parti-  • 
cle  media,  since  it  b  extremely  difficult  to  observe  these 
interactions  experimentally  in  an  optically  thiek  dusty 
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The  first  set  of  simulation  results  u  shown  for  the 
case  with  dust  parameters  Vp  =  lO/im  and  pp  =  0.25 
kg/m^.  The  gas  parameters  and  the  parameters  of  the  # 
incoming  shock  wave  are  the  same  as  in  the  pure  gas  case 
presented  above.  In  Figs.  6a  and  6b,  particle  density 
contours  and  gas  density  contours  are  shown  at  the  stage 
when  the  incident  shock  wave  has  reached  the  top  of  the 
semicylinder.  At  thb  stage,  the  largest  difference  of  ve¬ 
locity  and  temperature  between  the  two  phases  exurts  # 
and  the  nonequilibrium  between  the  two  phases  csuises 
extensive  heat  and  momentum  exchange  between  parti¬ 
cles  and  the  gas.  The  presence  of  the  particles  causes 
a  widening  of  the  shock  that  b  more  noticeable  for  the 
incident  shock.  Also,  an  additional  contour  line  b  ob¬ 
served  at  the  dusty  gas/pure  gas  interface.  Comparing# 
gas  density  for  pure  gas  flow  field  shown  in  Fig.  4b  and 
the  dusty  gas  density  of  Fig.  6b,  we  see  that  Mach  stem 
and  contact  discor'inuity  resulting  from  Mach  reflection 
are  smeared  in  the  dusty  gas  flow  due  to  the  presence  of 
the  particle.  The  particle  density  contours  depict  signif¬ 
icant  piling  up  of  the  dust  particle?  at  the  leading  edge  # 
stagnation  point  of  the  cylinder. 

In  Figs.  6c  and  6d,  the  particle  density  and  gas 
density  contours  are  shown  at  the  stage  where  signifi¬ 
cant  diffraction  has  taken  place  and  the  shock  front  is 


approaching  the  trailing  edge  of  the  cylinder.  Further 
widening  of  the  shock  and  some  smearing  of  the  slip  line 
that  originates  at  the  triple  point  is  evident.  The  particle 
density  contours  reveal  that  the  particles  were  swept  by 
the  gas  flow  to  the  area  of  triple  point  and  slip  line  for  the 
gas  flow,  leaving  a  small  amount  of  particles  at  the  lead* 
ing  edge.  We  should  note  that  this  behavior  is  specific 
for  our  problem,  where  at  t  =  0,  the  dusty  gas  area  was 
located  at  z  s  0  and  there  is  no  influx  of  the  dust  from 
the  left  boundary.  Also  in  Fig.  6c,  we  note  that  the  par¬ 
ticles  reach  a  distinct  local  maxima  at  the  distance  about 
25  cm  behind  the  incident  shock  front.  At  this  maxima 
the  particle  density  is  0.86  kg/rn^,  which  is  more  than 
three  times  the  initial  particle  density.  The  particle  den¬ 
sity  reaches  a  maximum  value  at  the  location  of  the  gas 
slip  line.  We  observe  a  significant  accumulation  of  the 
particles  that  have  been  moved  along  the  slip  line  by  the 
shear  flow.  The  larger  concentration  of  particles  in  the 
vicinity  of  triple  point  is,  in  fact,  the  remainder  of  the 
particles  that  were  swept  up  with  the  flow.  It  is  also  in¬ 
teresting  to  observe  that  an  essentially  particle-free  zone 
is  formed  due  to  the  effects  of  particles  slipping  over  the 
top  of  the  cylinder  and  the  rarefaction  wave  behind  the 
cylinder. 

To  study  the  influence  of  particle  loading  on  the 
dynamics  of  reflection  and  diffraction,  we  have  simu¬ 
lated  the  case  with  a  dust  density  of  pp  s  0.76,  and 
with  rp  s  lOftm.  The  results  for  this  simulation  are 
shown  in  Figs.  7a  and  7b  in  the  form  of  particle  and  gas 
density  contour  plots.  In  Fig.  7a,  the  particle  density 
contours  ate  shown  at  the  diffraction  phase.  Here  we 
can  observe  two  local  maxima  for  particles  accumulated 
in  the  regions  along  the  slip  line  characteristic  for  the 
shock  difiaction  process.  It  should  be  noted  here  that 
in  our  problem  the  conditions  behind  the  incident  shock 
wave  and  its  structure  are  in  constant  flux.  At  higher 
loading,  dost  will  have  a  profound  effect  on  the  gssdy- 
namics  of  reflection  and  difltactioa.  Figure  7b  shows  gas 
density  contours  for  the  reflection  stage  corresponding 
to  the  particle  doisity  contours  shown  iu  Fig.  7a.  We 
observe  from  Fig.  7b  that  the  incident  shock  wave  is  sig- 
niflcantiy  smeared  and  the  triple  point  cannot  be  clearly 
identified.  Because  of  the  widening  of  the  incident  shock, 
the  area  where  the  reflected  and  incident  shock  join  is 
spread  over  50  cm  distance.  F^om  Fig.  7a,  we  see  that 
the  high  density  particle  region  is  spread  wider  than  in 
the  previous  case,  and  the  particle  density  reaches  its 
maximum  at  about  25  cm  behind  the  front.  There  is  a 
visible  maximum  in  gas  density  in  the  area  where  the 
reflected  shock  is  interacting  with  the  area  of  maximum 
particle  density  behind  th<.  incident  shock.  A  part  of  the 
reflected  shock  front  that  is  moving  to  the  left  side  of  the 
comput<.>.ional  domain  is  not  affected  by  the  dust  since 
it  is  propagating  into  an  area  with  little  dust  concentra¬ 


tion.  The  parameters  and  structure  of  this  part  of  the 
front  remain  basically  the  same  as  m  the  case  of  pure 
gas  flow. 

To  examine  the  effect  of  particle  size  on  the 
reflection-diffraction  process,  we  simulated  a  case  where 
the  particle  loading  and  gas  flow  conditions  are  the  same 
as  in  the  previous  case  with  particle  density  pp  =  0.76. 
However,  the  particle  size  is  rp  —  50/im.  In  Figs.  8a 
and  fib,  results  for  this  simulation  are  illustrated  by  par¬ 
ticle  density  and  gas  density  contours  correspondingly. 
The  particle  contour  plots  depict  a  significantly  wider 
particle  relaxation  zone  than  in  the  previous  case.  The 
longer  relaxation  zone  is  caused  by  the  larger  inertia  of 
larger  particles.  The  maximum  particle  density  of  2.64 
kg/m^  is  reached  50  cm  behind  the  incident  shock  &ont. 
This  value  is  significantly  lower  than  4.01  kg/m^  reached 
behind  the  shock  in  calculation  with  10  pm  particles. 
Larger  particles  skip  above  the  apex  of  the  cylinder  cre¬ 
ating  a  void  where  particle  density  is  very  small.  Also, 
because  of  larger  particle  size,  the  maxima  of  particle 
concentration  that  has  been  created  by  a  slip  surface  of 
the  reflected  Mach  stem  is  indistinct.  The  mam  reason 
for  this  is  that  the  particles  do  not  follow  the  gas  flow 
as  closely  as  they  did  in  the  previous  case  due  to  the 
inertia  of  large  particles.  The  maximum  particle  density 
is  reached  here  at  the  slip  line  behind  the  Mach  stem. 

Comparing  gas  density  of  Fig.  fib  to  the  previous 
case  shown  in  Fig.  7b,  we  observe  that  the  slip  line  be¬ 
hind  the  curved  Mach  stem  becomes  less  distinguishable 
in  Fig.  7b.  This  result  is  expected,  since  at  fixed  particle 
loading,  smaller  particles  have  a  larger  surface/voiume 
ratio  and  the  larger  surface/voiume  ratio  increases  mo¬ 
mentum  and  heat  exchange  between  the  two  phases. 

One  general  comment  regarding  ail  three  cases  pre¬ 
sented  above;  Due  to  the  heat  and  momentum  exchange 
between  the  two  phases,  the  shock  is  decaying  as  it  tra- 
veraes  the  cylinder.  Ultimately,  it  will  teach  a  new  equi¬ 
librium  state  as  suggested  by  Fig.  2.  It  should  be  noted 
that  the  shock  considered  in  the  previous  three  cases  is 
still  in  the  process  of  transition  in  the  ga»i}8rticie  mix¬ 
ture. 

goncivigipn 

In  this  paper,  numerical  study  for  a  two-phase  com¬ 
pressible  flow  is  performed  for  the  reflection  and  diffrac¬ 
tion  of  a  shock  wave  propagating  over  a  semicircular 
cylinder  in  a  dusty  gas.  The  following  conclusions  can 
be  made: 

(1)  The  validation  study  for  a  one-dimensional 
shock  e  propagating  in  a  dusty  nuows  a  3000 
agreement  between  the  prediction  of  our  model  and  the 
results  of  the  experiment: 

(2)  For  a  two-dimensional  gas-only  flow,  numerical 
results  agree  well  with  existing  experimental  data  quali- 


tativeiy  and  quantitatively,  indicating  that  the  gas  phase 
is  accurately  simulated  by  the  adaptive  grid  technique; 

(3)  Particles  in  the  gas  can  have  a  profound  effect  on 
the  shock  wave  reflection  and  diffraction  pattern,  which 
is  a  function  of  particle  size  and  loading.  The  lesser  the 
particle  loading,  the  less  the  influence  of  particle  on  the 
flow  held; 

(4)  In  the  three  simulation  cases,  there  is  a  particle 
aceomulatbn  behind  the  “back  shoulder”  of  the  semi¬ 
circular  cylinder  due  to  the  effect  of  particle  inertia  and 
gas  rarefaction  wave; 

(5)  For  different  particle  size  at  fixed  particle  load¬ 
ing,  the  larger  particle  will  have  a  longer  relaxation  zone 
and  less  accumulation  at  “back  shoulder”  and  behind 
incident  shock.  The  gas  density  contours  show  a  less 
distinguishabie  slip  line  in  small  particle  case  than  in 
the  large  particle  case. 
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Figure  i.  An  illustration  of  the  considered  flow  field. 
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Figure  3.  Stages  of  shock  wave  refiectioa  over  a  seniicir* 
cuiar  cylinder,  (a)  before  coilision,  (b)  regular  refiectioa, 
(c)  Mach  reflection,  (d)  weil  develop^  Mach  refiectioa. 


Figure  2.  Comparison  between  computational  prediction 
and  experimental  measurement  of  shock  wave  attenua¬ 
tion  for  (a)  M,  =  1.49. 17  =  ^  =  0.63  and  (b)  M,  =  1.7, 
17  =  ^  =  1.4  (o  experiment.  -  calculation). 
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Figure  4.  Computed  density  contours  with  adapted  grid 
at  three  different  times;  (a)  regular  reflection  (RR),  (b) 
Mach  reflection  (MR)  and  (c)  diffraction  with  slipline 
(S). 
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Figure  5.  Comparison  for  /Vf,  =  2.80  gas  -  ^nly  flow, 
(a)  interferogram  from  experiment  conducted  by  Kaca 
(1988),  (b)  density  contours  from  present  calculation. 
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Figure  7.  Density  contours  for  the  case:  M,  =  2.8.  pp  = 
0.76  kg/m^  and  =  lO/im,  (a)  particle  density  and  (b) 
gas  density. 


Figure  8.  Density  contours  for  the  case:  M,  =  2.8,  pp 
=■  0.76  and  Vp  =  50pm,  (a)  particle  density  and  (b)  gas 
density. 
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Abstract 

Simulations  of  acoustic  wave  focusing  in  an  ellip¬ 
soidal  reflector  for  extracorporeal  shock-wave  lithotripsy 
(ESWL)  are  presented.  The  simulations  are  done  on  a 
structured/unstructuted  grid  with  a  modified  Tait  equa¬ 
tion  of  state  for  water.  The  Euler  equations  are  solved 
by  applying  a  second-order  Godunov  method.  The  com¬ 
puted  results  compare  very  well  with  the  experimental 
results. 

Introduction 

Research  relating  to  focusing  of  shock  and  acoustic 
waves  is  of  practical  interest  for  extracorporeal  shock- 
wave  lithotripsy  (ESWL).  A  considerable  body  of  work 
is  dedicated  to  this  subject  (see  e.g.,  review  in  Ref.  1), 
and  numerical  simulations  play  a  prominent  role  iu  re¬ 
search  on  these  devices.  It  is  conceivable  that  real-time 
numerical  simulation  can  be  used  ^or  better  assessment 
of  shock-wave  impact  on  the  targeted  areas  and  more 
effective  focusing.  Requirements  for  these  real-time  sim¬ 
ulations  in  terms  of  robustness,  accuracy  and  efficiency 
are  very  stringent,  and  can  be  satisfied  only  with  the 
most  advanced  numerical  methods. 

Structured  rectargular  grids  allow  the  construction 
of  numerical  algorithms  that  integrate  the  fluid  conserva¬ 
tion  equations  efficiently  and  accurately.  The  efficiency 
of  these  schemes  results  from  the  extremely  low  stor¬ 
age  overhead  needed  for  domain  decomposition  and  the 
efficient  and  compact  indexing,  which  also  defines  do¬ 
main  connectivity.  These  two  factors  allow  code  con¬ 
struction  based  on  a  structured  domain  decomposition 
that  can  be  highly  vectorized  and  parallelized.  Integra¬ 
tion  in  physical  space  on  orthogonal  and  uniform  grids 
produces  numerical  algorithms  with  the  highest  possible 
accuracy.  The  disadvantage  of  structured  rectangular 
g-’ds  is  that  they  cannot  be  used  to  decompose  com¬ 
putational  domains  with  complex  geometries.  Thus  it 
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is  difficult  to  represent  computationally  a  complex  com¬ 
putational  domain  with  the  curved  boundaries  charac¬ 
teristic  of  typical  reflectors  used  in  ESWL  devices. 

The  early  developers  of  computational  methods  re¬ 
alized  that,  for  many  important  applications  of  Compu¬ 
tational  Fluid  Dynamics  (CFD),  it  is  unacceptable  to 
describe  curved  computational  domain  boundaries  using 
the  stair-step  approximation  available  with  the  rectangu- 
Icir  domain  decomposition  technique.  To  overcome  ihb 
difficulty,  the  techniques  of  boundary-fitted  coordinates 
were  developed.  With  these  techniques,  the  computa¬ 
tional  domain  is  decomposed  on  quadrilaterals  that  can 
be  fitted  to  the  curved  domain.  The  solution  is  then  ob¬ 
tained  in  physical  space  using  the  geometrical  informa¬ 
tion  defining  the  quadrilaterals,  or  in  the  computational 
coordinate  system  that  is  obtained  by  transformation  of 
the  original  domain  into  a  rectangular  domain.  The  ad¬ 
vantage  of  this  technique  is  that  it  employs  the  same 
indexing  method  as  the  p.  ctangulau’  structured  domain 
decomposition  methods  that  also  serve  to  define  domain 
connectivity.  The  boundary  fitted  coordinate  approach 
leads  to  efficient  codes,  with  approximately  a  4; I  penalty 
in  terms  of  memory  requirement  per  cell  as  compared 
with  rectangular  domain  decomposition.  However,  this 
approach  is  somewhat  restricted  in  its  domain  decompo¬ 
sition  capability,  since  distortion  or  large  size  variations 
of  the  quadrilaterals  in  one  region  of  the  domain  lead 
to  unwanted  distortions  or  increased  resolution  in  other 
parts  of  the  domam.  An  example  of  this  is  the  case  of 
structured  body-fitted  coordinates  used  to  simulate  flows 
over  a  profile  with  sharp  trailing  edges.  In  this  case, 
increasing  the  resolution  in  the  vicinity  of  the  trailing 
edge  increases  resolution  in  the  whole  row  of  elements 
connected  to  the  trailing  edge  elements. 

The  most  effective  methods  of  domain  decomposi¬ 
tion  developed  to  overcome  this  disadvantage  ate  those 
using  unstructured  triangular  grids.  These  methods 
were  developed  to  cope  with  very  complex  computational 
domains.  The  unstructured  grid  method,  while  efficient 
and  powerful  in  domain  decomposition,  results  in  codes 
that  must  store  large  quantities  of  information  defining 
the  grid  geometry  and  connectivity,  and  have  large  com¬ 
putational  and  storage  overheads.  As  a  rule,  a  code  with 
an  unstructured  grid  requires  greater  storage  by  a  factor 
of  10,  and  will  run  about  5  times  slower  on  a  per  ceil  per 
iteration  basis  t.han  a  structured  rectanguia,-  code. 

Unstructured  triangular  meshes  are  designed  to  pro- 


vide  a  grid  that  is  fitted  to  the  boundary  of  complex  ge¬ 
ometry.  The  flexibility  of  the  unstructured  mesh  that  al¬ 
lows  complex  geometry  to  be  gridded  should  be  weighed 
against  the  huge  memory  requirement  needed  to  define 
the  inierconnectivity  of  the  triangles.  To  cut  down  on 
the  memory  overhead,  unstructured  grid  methods  are 
used  to  their  best  advantage  when  combined  with  grid 
adaptivity.  This  feature  usually  allows  the  dynamic  real- 
location  of  triangles  according  to  the  physics  and  geom¬ 
etry  of  the  problem  solved,  which  leads  to  a  substantial 
reduction  in  the  number  of  cells  needed  for  the  domain 
decomposition.  However,  this  advantage  is  highly  depen¬ 
dent  on  the  problem  solved.  Adaptive  unstructured  grids 
have  an  advantage  over  nonadaptive  unstructured  do¬ 
main  decomposition  if  the  area  of  high  resolution  needed 
is  around  one-tenth  of  the  global  area  of  the  computa¬ 
tional  domain.  As  a  result,  while  the  adaptive  unstruc¬ 
tured  method  may  be  extremely  effective  for  simulating 
flow  with  multiple  shock  waves  in  complex  geometries, 
it  becomes  extremely  inefficient  when  high  resolution  is 
needed  in  a  substantial  area  of  the  computational  do¬ 
main. 

Our  approach  to  domain  decomposition  for  ESWL 
applications  combines  the  structured  and  unstructured 
methods  to  achieve  better  efficiency  and  accuracy.  Un¬ 
der  this  method,  structured  rectangular  grids  are  used  to 
cover  most  of  the  computational  domain,  and  unstruc¬ 
tured  triangular  grids  are  used  only  to  patch  between  the 
rectangular  grids  (Fig.  1)  or  to  conform  to  the  curved 
boundaries  of  the  computational  domain  (Fig.  2).  In 
these  figures,  an  unstructured  triangular  grid  is  used  to 
accurately  define  the  curved  internal  or  external  bound¬ 
aries  and  a  structured  rectangular  grid  is  used  to  decom¬ 
pose  the  regions  of  the  computational  domain  that  have 
a  simple  geometry. 

Mathematical  Model 


We  consider  a  system  of  two-dimensional  Euler 
equations  written  in  conservation  law  form; 


aF  5G 
dt  ^  dz  ^  dy 


=  0 


(1) 


The  equation  of  state  for  water  was  adopted  from 
Ref.  2.  The  actual  pressure  and  density  in  water 
are  modified  and  then  applied  in  the  Euler  solver.  The  ® 
modified  pressure  and  density  are  given  as 

P-P  +  B.  (2) 


p  =  p/{l  +p/Br,  (2a)  # 

where  B  =  2955  bar  and  n  =  7.44  to  adjust  the  velocity 
of  sound  to  that  for  water  (ao  =  1483  m/sec). 

The  initial  pressure  distribution  p(r)  in  the  left  focal 
point  is  chosen  as 

p(r)  =  1.0  bar  +  Ap  exp  [_(r  -  ro)/(aQr)],  (26) 

where  Ap  is  the  intensity  of  the  blast,  r  is  a  time  scale 
and  a,  is  sound  speed  in  water  Ir  =  Spseci. 

It  is  assumed  that  an  initial  distribution  of  the  fluid 
parameters  is  given  at  t  =  0,  and  the  boundary  con-  ^ 
ditions  defining  a  unique  solution  are  specified  for  the 
computational  domain. 


Integration  Algorithm 

The  system  of  governing  equations  (I)  can  be  writ¬ 
ten  in  the  following  form: 


rr 


Q=0, 


(3) 


where  Q  represents  the  convective  flux  vector.  By  inte¬ 
grating  Eq.  (3)  over  space  and  using  Gauss'  theorem, 
we  obtain  the  following  expression; 


1  f  UdA+i  ( 
<7*  Jn  Jan 


Qdl  =  0, 


(4) 


where  dl  =  ndl,n  is  the  unit  normal  vector  in  the  out¬ 
ward  direction,  and  d<  is  the  element  of  length  on  the 
boundary  of  the  domain.  The  variable  12  is  the  domain 
of  computation  and  dQ  is  the  domain  boundary. 

Equation  (4)  can  be  discretized  for  each  element 
(cell-triangle)  of  the  domain: 


where 


p 

pu 

pv 

u  = 

pu 

,  F  = 

pu^  +p 

,  G  = 

puv 

pv 

puv 

pv*  +  p 

e 

u(e  -1-  p) 

v(e  +  p) 

Here  u.v  ate  the  x,y  velocity  vector  components,  p  is 
the  pressure,  p  is  the  density,  and  e  is  total  energy  of  the 
fluid. 


At 


A, 


j=i 


r.  +  4 


UjAtj, 


(5) 


where  A,  is  the  area  of  the  cell;  At  is  the  marching  time 
step;  and  Up  are  the  primitive  variables  at  the 

center  of  the  ceil  at  time  n  and  at  the  updated  (n  -(-  l)st  ^ 

timestep;  are  the  value  of  the  fluxes  across  the 

three  boundaries  edges  on  the  circumference  of  the  ceil, 
where  nj  is  the  unit  normal  vp'-tor  to  edge  j  of  the 
boundary,  and  A/j  is  the  length  of  the  boundary  edge 
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j.  Equation  (5)  is  used  to  update  the  physical  primi¬ 
tive  variables  £/,  according  to  computed  fluxes  for  each 
timestep  Af.  The  time  step  is  subjected  to  the  Courant- 
Fredrichs-Levy  (CFL)  constraint. 

To  ensure  a  second  order  spatial  accuracy,  the  gra¬ 
dient  of  each  primitive  variable  is  computed  in  the  bari- 
center  of  the  cell.  This  gradient  is  used  to  define  the 
projected  values  of  primitive  variables  at  the  two  sides 
of  the  ceil  edge,  as  shown  in  Fig.  3.  The  gradient  is 
approximated  by  a  path  integral 

/  .  (6) 

J(i  Jan 

The  notation  is  similar  to  the  one  used  for  Eq.  (5),  ex¬ 
cept  that  the  domain  is  a  single  cell  and  and 

j^edge  values  at  the  baricenter  and  on  the  edge  re¬ 
spectively.  The  gradient  is  estimated  as 


j=i 

where  is  an  average  value  representing  the  prim¬ 

itive  variable  value  for  edge  j . 

The  gradients  that  are  computed  at  each  baricen¬ 
ter  are  used  to  project  values  for  the  two  sides  of  each 
edge  by  piecewise  linear  interpolation.  The  interpolated 
values  are  subjected  to  monotonicity  constraints.^  The 
monotoniciiy  constraint  assures  that  the  interpolated 
values  are  not  creating  new  extrema. 

The  monotonicity  limiter  algorithm  can  be  written 
in  the  following  form: 

•  Ar.  (8) 

where  Ar  is  the  vector  from  the  baricenter  to  the  point 
of  intersection  of  the  edge  with  the  line  connecting  the 
baricenters  of  the  ceils  over  the  two  sides  of  this  edge,  ip 
is  the  limiter  coefficient  that  limits  the  gradient  Vff,  . 

First,  we  compute  the  maximum  and  minimum  val¬ 
ues  of  the  primitive  variable  in  the  i’s  cell  and  its  three 
neighboring  cells  that  share  common  edges  (see  Fig.  3): 


j) 


The  limiter  can  be  defined  as: 


^  =  min  {l.^n.  *  =  1.2.3,  (10) 

where  the  superscript  Ir  stands  for  left  and  right  of  the 
three  edges  (6  combinations  altogether).  is  defined 
by: 


[1  Sgn  (A£/r ))  A£f™tr  +  fl  "  Sgn  (^6^)1 

- 

k  =  l,2.  3,  (11) 

where  AU';  -  VUl''  ■  Ar*  and 

*  rrmax  _  rrmtx  r/Cell 

^^cell  -  ^cell  “ 

Arrmin  _  rrmin  trCtW 

^^cell  -  ^cell  “ 

To  obtain  second-order  accuracy  in  space  and  time, 
we  subject  the  projected  values  of  the  left  and  right  side 
of  the  cell  edge  to  characteristic  constraints  folbwmg 
Ref.  4.  The  one-dimensional  characteristic  predictor 
is  applied  to  the  projected  values  at  the  half  timestep 
t"  +  At/2.  The  characteristic  predictor  is  formulated  in 
the  local  system  of  coordinates  for  the  one  dimensional 
Euler  equation.  We  illustrate  the  implementation  of  the 
characteristic  predictor  m  the  direction  of  the  unit  vector 
De-  The  Euler  equations  for  this  direction  can  be  written 

W, -h /4(W)W„c  =  0,  (13) 

where 

fr)  /u  -r  0\ 

W  =  {  u  V  ;  A{W)=  p  u  T  \  ,  (14) 

IpJ  \0  u/ 

where  r  ==  p~^,  p  denotes  density,  and  u,p  are  the  veloc¬ 
ity  and  pressure.  The  matrix  A{W)  has  three  eigenvec¬ 
tors  {I  for  left  and  r  for  right,  where  #  denote 

-t-,0,-)  associated  with  the  eigenvalues  A+  =  u  -^c,  A°  = 
u.  A"  =  u  —  c. 

An  approximation  of  the  value  projected  to  an  edge, 
accurate  to  second  order  in  space  and  time,  can  be  writ¬ 
ten 


An  approximation  for  can  be  written  as 


-  ~(M,Af„)n.).VW,-, 

where 


(15) 


(16) 


(lif  M  \  -  /MaJt(At,0)  for  ceil  left  to  the  edge 
V  *  “  \Min(A~,0)  for  cell  right  to  the  edge  . 

(17) 
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The  gradients  led  in  the  process  of  computing  the 
projected  values  .ti,  -f  A</2  are  subjected  to  the  mono- 
tonicity  limiter. 

Following  the  characteristic  predictor  described 
above,  the  full  Riemann  problem  is  solved  at  the  edge. 
The  solution  of  the  Riemeum  problem  defines  the  flux 

Qy'*'’  through  the  edge.  The  fluxes  through  the  edges 
of  triangles  are  then  integrated  (Eq.  5),  thus  updates 
the  variables  at  .  One  of  the  advantages  of  this  al¬ 
gorithm  is  that  calculation  of  the  fluxes  is  done  over  the 
largest  loop  in  the  system  (the  loop  over  edges)  and  can 
be  carried  out  in  the  vectorized  or  parallelized  loop.  This 
makes  the  algorithm  efficient. 

The  algorithm  presented  is  a  modification  of  the  al¬ 
gorithm  of  Ref.  5,  which  was  derived  for  a  structured 
mesh.  The  present  algcvithm  has  been  applied  to  simu¬ 
late  a  wide  range  of  flow  problems  and  has  been  found  to 
be  very  accurate  in  predicting  the  features  of  the  physics. 
The  performance  of  the  algorithm  is  well  documented  in 
Refs.  6-9.  The  algorithm  for  the  rectangular  cells  are 
identical  except  the  cell  has  four  edges  (Eq.  5). 

Sound  Wave  Focusing  in  an  Ellipsoidal  Reflector 

For  our  simulations,  we  chose  a  deep  reflector 
shaped  like  an  ellipsoid,  which  was  used  for  ESWL  by 
Dornier  and  other  companies.  A  schematic  of  the  cross 
section  of  this  reflector  is  shown  in  Fig.  4.  Strong 
acoustic  waves  are  generated  in  the  left  focal  point  of 
the  ellipsoid  by  an  instantaneous  release  of  energy  and 
are  refocused  at  the  right  focal  point.  Ideally,  a  reflec¬ 
tor  should  employ  waves  of  acoustic  intensity,  since  the 
nonlinear  reflections  of  strong  shock  waves  lead  to  signif¬ 
icant  distortions  in  wave  propagation  and  impair  simple 
geometrical  focusing. 

Figure  2  shows  the  computational  domain  and  grid 
for  the  ellipsoidal  reflector  that  we  used  in  our  study.  In 
order  to  illustrate  the  concept  of  the  composite  struc¬ 
tured/unstructured  grid,  we  have  shown  only  every  six¬ 
teenth  ceil  of  the  grid  that  was  actually  used  for  the 
simulation.  In  this  example,  we  observe  that  the  struc¬ 
tured  rectangular  grid  covers  about  90%  of  the  compu¬ 
tational  domain,  and  the  unstructured  triangular  grid  is 
restricted  to  the  curved  surface  of  the  ellipsoid  and  cov¬ 
ers  about  10%  of  the  domain.  The  major  axis  of  the 
ellipsoid  is  150  mm  and  the  minor  axis  is  90  mm. 

Two  simulations  were  conducted  with  two  different 
Ap  values  to  study  how  the  intensity  of  the  blast  affects 
focusing  of  waves  in  the  reflector.  The  first  simulation 
was  done  with  Ap  =  725  bar  and  r  =  Sps  where  |r— roj  < 
10  mm.  The  other  simulation  was  done  by  using  pressure 
three  times  larger  than  in  first  simulation. 

In  Figs.  5a-5d  simulation  results  for  the  Ap  =;  725 
bar  conditions  are  shown  in  the  form  of  pressure  con¬ 


tour  plots.  Figure  5a  shows  pressure  distribution  for 
the  initial  stage  of  wave  propagation  before  the  wave 
front  has  reached  the  surface  of  the  r  dector.  The  con-® 
tour  plot?  nre  shown  at  t=l  10  xlC  'sec.  At  this  time 
the  maxunum  pressure  in  tl  wave  ^  dropped  to  173 
bar.  In  Fig.  5b  pressure  cf  ours  :  shown  at  t=:3.32 
X  10"*sec.  Here  we  observe  aat  t;  .vave  reflected  from 
the  surface  of  the  reflector  .as  mar  .num  pressure  about 
five  times  than  that  of  thr  incider:  wave.  However,  both® 
wave  fronts  propagate  through  tl  water  with  a  constant 
speed  equal  to  the  speed  of  send,  and  the  phase  shift 
observed  in  Fig.  5b  holds  through  the  calculation.  In 
Fig.  5c  the  simulation  results  are  shown  at  the  stage 
when  the  incident  wave  is  crossing  the  center  of  sym-^ 
metry  of  the  reflector.  Here  t  =  8.88  x  i0“®sec.  It  is® 


interesting  to  note  that  the  value  of  the  overpressure  at 
this  location  was  used  in  Ref.  1  as  a  normalizing  value 
for  presentation  of  the  experimental  and  computational 
results.  In  our  case  for  the  initialization  with  Ap  =  725 
bar  the  incident  pressure  at  the  center  of  the  ellipsoid  is. 
p—  1 1.1  bar.  In  Fig.  5d  simulation  results  are  shown  at^ 
t  =  19.2  X  I0“®sec,  when  maximum  focusing  of  the  re¬ 
flected  wave  take  place.  The  pressure  values  in  the  focal 
point  reaches  188  bar.  This  maximum  is  immediately 
followed  by  a  negative  phase  with  a  minimal  pressure 
of  163  bar.  This  strong  pressure  variations  can  cause, 
disintegration  of  the  stones  by  the  ESWL  apparatus.  ^ 
In  Figs,  fia^fib  simulation  results  are  shown  for  the 
second  case  of  Ap  =  2175  bar.  As  we  can  see  in  Fig.  6a, 
this  value  of  the  initial  overpressure  produces  an  incident 
wave  with  about  33  bar,  which  is  a  bit  higher  than  the 
29  bar  value  observed  in  Ref.  1.  The  wave  structure  at^ 
the  time  of  focusing  is  shown  in  Fig.  6b.  Here  we  can’ 
observe  that  for  this  case  the  maximum  pressure  reaches 
494  bar,  followed  by  a  371  bar  minimum.  Comparing 
this  case  with  that  reported  above,  we  conclude  that  the 
amplification  at  the  focal  point  is  smaller  in  the  second 


case. 

The  waves  observed  in  the  system  are  of  acoustic  in¬ 
tensity  and  are  propagating  at  the  speed  of  sound.  The 
reflected  wave  will  therefore  not  be  able  to  catch  up  with 
the  incident  wave.  Except  for  some  compressibility  ef¬ 
fects  in  the  initiation  and  focusing  stages  when  pressures 
are  high,  the  fluid  will  behave  as  incompressible.  Figure^ 
7  shows  the  density  contour  for  the  first  case  (Ap  =  725 
bar).  As  expected,  the  compressibility  effect  is  negligi¬ 
ble. 


In  Fig.  8  the  simulation  results  are  compared  with 
the  experimental  results  in  a  plot  of  normalized  pres¬ 
sures  as  function  of  distance  from  the  focal  point.  In# 
this  figure  the  simulation  results  for  the  case  of  initiatbn 
with  Ap  =  725  bar  and  Ap  =  2175  bar  are  shown  by  the 
curves  marked  with  triangles  and  rectangles  respectively. 
The  experimental  results  for  the  29-bar  incident  pressure 


# 
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(which  most  closely  fits  our  second  simulation)  are  shown 
by  the  curve  marked  by  circles.  In  Fig.  8  we  see  that  the 
maximum  reflection  factor  is  achieved  for  weaker  waves, 
which  is  consistent  with  the  results  reported  in  Ref.  1 . 
The  simulation  results  are  very  close  to  the  experimen* 
tal  ones  in  the  case  of  Ap  =  2175  bar  initiation  for  focal 
point  location  and  pressure  amplification  factor,  which 
validates  the  simulation  methodology. 

In  all  the  figures  presented,  the  method  of  composite 
domain  decomposition  works  extremely  well,  producing 
solutions  with  no  seams  at  the  interfaces.  We  should 
mention  here  that  our  test  problem  is  particularly  sen¬ 
sitive  because  the  main  acoustic  waves  are  weak,  and 
any  inaccuracy  introduced  at  the  grid  interfaces  would 
produce  a  distortion  in  the  phase  or  in  the  intensity  of 
the  traveling  waves  that  would  be  a  visible  disturbance 
evident  in  the  results. 


Cgnclusiona 


A  composite  method  of  structured/unstructured  do¬ 
main  decomposition  is  introduced  as  an  efficient  tech¬ 
nique  for  dealing  with  the  computational  domains  of 
complex  geometry.  We  have  simulated  a  demand¬ 
ing  acoustic  wave  focusing  problem  and  have  shown 
that  our  approach  leads  to  accurate  wave  propaga¬ 
tion  without  any  reflection  or  distortion  at  the  struc¬ 
tured/unstructured  grid  interfaces.  Note  that  for  the 
acoustic  focusing  problem  as  simulated  and  presented  in 
this  paper,  both  structured  and  unstructured  methods  of 
domain  decomposition  can  be  shown  to  be  inadequate  if 
used  separately.  The  structured  method  has  difficulty 
describing  the  curved  boundaries  of  the  computational 
domain,  while  the  unstructured  method  is  totally  inef¬ 
ficient  in  describing  phenomena  with  wide  fronts  that 
occupy  a  large  portion  of  the  computational  domain. 
Our  hybrid  method  combines  the  advantages  of  struc¬ 
tured  and  unstructured  methods  of  domain  decompo¬ 
sition.  This  hybrid  technique  combines  the  efficiency 
of  the  unstructured  grid,  which  accurately  represents 
curved  walls,  with  the  computational  and  memory  effi¬ 
ciency  of  the  structured  grid  in  the  majority  of  the  com¬ 
putational  domain.  We  also  attribute  the  quality  of  the 
numerical  result  to  the  Second  Order  Godunov  method, 
which  allows  a  consistent,  accurate  and  robust  formula¬ 
tion  for  handling  both  grids  and  boundary  conditions. 
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Figure  1.  A  possible  candidate  condguration  for  hybrid  structured/ unstructured 

domain  decomposition. 
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Figure  2.  A  possible  candidate  configuration  for  hybrid  structured/unstructured 
domain  decomposition,  representing  the  ellipsoid  reflector 
grid  used  for  the  numerical  simulation. 
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Figure  3.  Second  order  triangular  based  flux  calculation. 


Figure  4.  A  schematic  drawing  of  the  center  cross  section  of  the  ellipsoid  reflector. 
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Figure  7.  Density  contours  emphasizing  the  fact  that  the  compres¬ 
sibility  effect  is  negligible  (Ap  =  725  bar  at  t  =  1.92  xlO  *sec). 
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Figure  8.  Normalized  maximum  pressure  distribution  on  the  axis  of 
symmetry.  A  comparison  between  computed  and  experimental  results. 


